basis/io/encodings/iana/iana-tests.factor

   1 USING: io.encodings.iana io.encodings.iana.private
   2 io.encodings.utf8 tools.test assocs namespaces ;
   3
   4 { utf8 } [ "UTF-8" name>encoding ] unit-test
   5 { utf8 } [ "utf8" name>encoding ] unit-test
   6 { "UTF-8" } [ utf8 encoding>name ] unit-test
   7
   8 ! We will never implement EBCDIC-FI-SE-A
   9 SINGLETON: ebcdic-fisea
  10 ebcdic-fisea "EBCDIC-FI-SE-A" register-encoding
  11 { ebcdic-fisea } [ "EBCDIC-FI-SE-A" name>encoding ] unit-test
  12 { ebcdic-fisea } [ "csEBCDICFISEA" name>encoding ] unit-test
  13 { "EBCDIC-FI-SE-A" } [ ebcdic-fisea encoding>name ] unit-test
  14
  15 ! Clean up after myself
  16 { } [
  17     "EBCDIC-FI-SE-A" n>e-table get delete-at
  18     "csEBCDICFISEA" n>e-table get delete-at
  19     ebcdic-fisea e>n-table get delete-at
  20 ] unit-test
  21 { f } [ "EBCDIC-FI-SE-A" name>encoding ] unit-test
  22 { f } [ "csEBCDICFISEA" name>encoding ] unit-test
  23 { f } [ ebcdic-fisea encoding>name ] unit-test
  24
  25 [ ebcdic-fisea "foobar" register-encoding ] must-fail
  26 { f } [ "foobar" name>encoding ] unit-test
  27 { f } [ ebcdic-fisea encoding>name ] unit-test