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