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

   1 ! Copyright (C) 2009 Daniel Ehrenberg
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: arrays io.encodings.shift-jis io.encodings.string strings
   4 tools.test ;
   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