basis/io/encodings/shift-jis/shift-jis-tests.factor

   1 ! Copyright (C) 2009 Daniel Ehrenberg
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io.encodings.shift-jis tools.test io.encodings.string arrays strings ;
   4 IN: io.encodings.shift-jis.tests
   5
   6 [ { CHAR: replacement-character } ] [ { 141 } shift-jis decode >array ] unit-test
   7 [ "" ] [ "" shift-jis decode >string ] unit-test
   8 [ "" ] [ "" shift-jis encode >string ] unit-test
   9 [ { CHAR: replacement-character } shift-jis encode ] must-fail
  10 [ "ab¥ｨ" ] [ { CHAR: a CHAR: b 0x5C 0xA8 } shift-jis decode ] unit-test
  11 [ { CHAR: a CHAR: b 0x5C 0xA8 } ] [ "ab¥ｨ" shift-jis encode >array ] unit-test
  12 [ "ab\\ｨ" ] [ { CHAR: a CHAR: b 0x5C 0xA8 } windows-31j decode ] unit-test
  13 [ { CHAR: a CHAR: b 0x5C 0xA8 } ] [ "ab\\ｨ" windows-31j encode >array ] unit-test
  14 [ "\u000081\u0000c8" ] [ CHAR: logical-and 1string windows-31j encode >string ] unit-test
  15 [ "\u000081\u0000c8" ] [ CHAR: logical-and 1string shift-jis encode >string ] unit-test
  16 [ { CHAR: logical-and } ] [ "\u000081\u0000c8" windows-31j decode >array ] unit-test
  17 [ { CHAR: logical-and } ] [ "\u000081\u0000c8" shift-jis decode >array ] unit-test