18 lines
1.1 KiB
Factor
18 lines
1.1 KiB
Factor
! Copyright (C) 2009 Daniel Ehrenberg
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: io.encodings.shift-jis tools.test io.encodings.string arrays strings ;
|
|
IN: io.encodings.shift-jis.tests
|
|
|
|
[ { CHAR: replacement-character } ] [ { 141 } shift-jis decode >array ] unit-test
|
|
[ "" ] [ "" shift-jis decode >string ] unit-test
|
|
[ "" ] [ "" shift-jis encode >string ] unit-test
|
|
[ { CHAR: replacement-character } shift-jis encode ] must-fail
|
|
[ "ab¥ｨ" ] [ { CHAR: a CHAR: b HEX: 5C HEX: A8 } shift-jis decode ] unit-test
|
|
[ { CHAR: a CHAR: b HEX: 5C HEX: A8 } ] [ "ab¥ｨ" shift-jis encode >array ] unit-test
|
|
[ "ab\\ｨ" ] [ { CHAR: a CHAR: b HEX: 5C HEX: A8 } windows-31j decode ] unit-test
|
|
[ { CHAR: a CHAR: b HEX: 5C HEX: A8 } ] [ "ab\\ｨ" windows-31j encode >array ] unit-test
|
|
[ "\u000081\u0000c8" ] [ CHAR: logical-and 1string windows-31j encode >string ] unit-test
|
|
[ "\u000081\u0000c8" ] [ CHAR: logical-and 1string shift-jis encode >string ] unit-test
|
|
[ { CHAR: logical-and } ] [ "\u000081\u0000c8" windows-31j decode >array ] unit-test
|
|
[ { CHAR: logical-and } ] [ "\u000081\u0000c8" shift-jis decode >array ] unit-test
|