29 lines
1.0 KiB
Factor
29 lines
1.0 KiB
Factor
USING: io.encodings.iana io.encodings.iana.private
|
|
io.encodings.utf8 tools.test assocs namespaces ;
|
|
IN: io.encodings.iana.tests
|
|
|
|
{ utf8 } [ "UTF-8" name>encoding ] unit-test
|
|
{ utf8 } [ "utf8" name>encoding ] unit-test
|
|
{ "UTF-8" } [ utf8 encoding>name ] unit-test
|
|
|
|
! We will never implement EBCDIC-FI-SE-A
|
|
SINGLETON: ebcdic-fisea
|
|
ebcdic-fisea "EBCDIC-FI-SE-A" register-encoding
|
|
{ ebcdic-fisea } [ "EBCDIC-FI-SE-A" name>encoding ] unit-test
|
|
{ ebcdic-fisea } [ "csEBCDICFISEA" name>encoding ] unit-test
|
|
{ "EBCDIC-FI-SE-A" } [ ebcdic-fisea encoding>name ] unit-test
|
|
|
|
! Clean up after myself
|
|
{ } [
|
|
"EBCDIC-FI-SE-A" n>e-table get delete-at
|
|
"csEBCDICFISEA" n>e-table get delete-at
|
|
ebcdic-fisea e>n-table get delete-at
|
|
] unit-test
|
|
{ f } [ "EBCDIC-FI-SE-A" name>encoding ] unit-test
|
|
{ f } [ "csEBCDICFISEA" name>encoding ] unit-test
|
|
{ f } [ ebcdic-fisea encoding>name ] unit-test
|
|
|
|
[ ebcdic-fisea "foobar" register-encoding ] must-fail
|
|
{ f } [ "foobar" name>encoding ] unit-test
|
|
{ f } [ ebcdic-fisea encoding>name ] unit-test
|