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{ HEX: A1 HEX: A4 HEX: 81 HEX: 30 HEX: 86 HEX: 30 } ]
   9 [ B{ HEX: B7 HEX: B8 } >string gb18030 encode ] unit-test
  10 [ { HEX: B7 HEX: B8 } ]
  11 [ B{ HEX: A1 HEX: A4 HEX: 81 HEX: 30 HEX: 86 HEX: 30 } gb18030 decode >array ] unit-test
  12 [ { HEX: B7 CHAR: replacement-character } ]
  13 [ B{ HEX: A1 HEX: A4 HEX: 81 HEX: 30 HEX: 86 } gb18030 decode >array ] unit-test
  14 [ { HEX: B7 CHAR: replacement-character } ]
  15 [ B{ HEX: A1 HEX: A4 HEX: 81 HEX: 30 } gb18030 decode >array ] unit-test
  16 [ { HEX: B7 CHAR: replacement-character } ]
  17 [ B{ HEX: A1 HEX: A4 HEX: 81 } gb18030 decode >array ] unit-test
  18 [ { HEX: B7 } ]
  19 [ B{ HEX: A1 HEX: A4 } gb18030 decode >array ] unit-test
  20 [ { CHAR: replacement-character } ]
  21 [ B{ HEX: A1 } >string gb18030 decode >array ] unit-test
  22 [ { HEX: 44D7 HEX: 464B } ]
  23 [ B{ HEX: 82 HEX: 33 HEX: A3 HEX: 39 HEX: 82 HEX: 33 HEX: C9 HEX: 31 }
  24   gb18030 decode >array ] unit-test
  25 [ { HEX: 82 HEX: 33 HEX: A3 HEX: 39 HEX: 82 HEX: 33 HEX: C9 HEX: 31 } ]
  26 [ { HEX: 44D7 HEX: 464B } >string gb18030 encode >array ] unit-test