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

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