basis/io/encodings/gb18030/gb18030-tests.factor

   1 ! Copyright (C) 2009 Daniel Ehrenberg
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io.encodings.gb18030 io.encodings.string strings tools.test arrays ;
   4 IN: io.encodings.gb18030.tests
   5
   6 { "hello" } [ "hello" gb18030 encode >string ] unit-test
   7 { "hello" } [ "hello" gb18030 decode ] unit-test
   8 { B{ 0xA1 0xA4 0x81 0x30 0x86 0x30 } }
   9 [ B{ 0xB7 0xB8 } >string gb18030 encode ] unit-test
  10 { { 0xB7 0xB8 } }
  11 [ B{ 0xA1 0xA4 0x81 0x30 0x86 0x30 } gb18030 decode >array ] unit-test
  12 { { 0xB7 CHAR: replacement-character } }
  13 [ B{ 0xA1 0xA4 0x81 0x30 0x86 } gb18030 decode >array ] unit-test
  14 { { 0xB7 CHAR: replacement-character } }
  15 [ B{ 0xA1 0xA4 0x81 0x30 } gb18030 decode >array ] unit-test
  16 { { 0xB7 CHAR: replacement-character } }
  17 [ B{ 0xA1 0xA4 0x81 } gb18030 decode >array ] unit-test
  18 { { 0xB7 } }
  19 [ B{ 0xA1 0xA4 } gb18030 decode >array ] unit-test
  20 { { CHAR: replacement-character } }
  21 [ B{ 0xA1 } >string gb18030 decode >array ] unit-test
  22 { { 0x44D7 0x464B } }
  23 [ B{ 0x82 0x33 0xA3 0x39 0x82 0x33 0xC9 0x31 }
  24   gb18030 decode >array ] unit-test
  25 { { 0x82 0x33 0xA3 0x39 0x82 0x33 0xC9 0x31 } }
  26 [ { 0x44D7 0x464B } >string gb18030 encode >array ] unit-test