core/io/encodings/utf16/utf16-tests.factor

   1 USING: kernel tools.test io.encodings.utf16 arrays sbufs
   2 io.streams.byte-array sequences io.encodings io unicode
   3 io.encodings.string alien.c-types alien.strings accessors classes ;
   4 IN: io.encodings.utf16.tests
   5
   6 [ { CHAR: x } ] [ { 0 CHAR: x } utf16be decode >array ] unit-test
   7 [ { HEX: 1D11E } ] [ { HEX: D8 HEX: 34 HEX: DD HEX: 1E } utf16be decode >array ] unit-test
   8 [ { CHAR: replacement-character } ] [ { BIN: 11011111 CHAR: q } utf16be decode >array ] unit-test
   9 [ { CHAR: replacement-character } ] [ { BIN: 11011011 CHAR: x BIN: 11011011 CHAR: x } utf16be decode >array ] unit-test
  10
  11 [ { 0 120 216 52 221 30 } ] [ { CHAR: x HEX: 1d11e } utf16be encode >array ] unit-test
  12
  13 [ { CHAR: x } ] [ { CHAR: x 0 } utf16le decode >array ] unit-test
  14 [ { 119070 } ] [ { HEX: 34 HEX: D8 HEX: 1E HEX: DD } utf16le decode >array ] unit-test
  15 [ { CHAR: replacement-character } ] [ { 0 BIN: 11011111 } utf16le decode >array ] unit-test
  16 [ { CHAR: replacement-character } ] [ { 0 BIN: 11011011 0 0 } utf16le decode >array ] unit-test
  17 [ { 119070 } ] [ { HEX: 34 HEX: D8 HEX: 1E HEX: DD } utf16le decode >array ] unit-test
  18
  19 [ { 120 0 52 216 30 221 } ] [ { CHAR: x HEX: 1d11e } utf16le encode >array ] unit-test
  20
  21 [ { CHAR: x } ] [ { HEX: ff HEX: fe CHAR: x 0 } utf16 decode >array ] unit-test
  22 [ { CHAR: x } ] [ { HEX: fe HEX: ff 0 CHAR: x } utf16 decode >array ] unit-test
  23
  24 [ { HEX: ff HEX: fe 120 0 52 216 30 221 } ] [ { CHAR: x HEX: 1d11e } utf16 encode >array ] unit-test
  25
  26 : correct-endian
  27     code>> class little-endian? [ utf16le = ] [ utf16be = ] if ;
  28
  29 [ t ] [ B{ } utf16n <byte-reader> correct-endian ] unit-test
  30 [ t ] [ utf16n <byte-writer> correct-endian ] unit-test