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 IN: io.encodings.iana.tests
   4
   5 [ utf8 ] [ "UTF-8" name>encoding ] unit-test
   6 [ utf8 ] [ "utf8" name>encoding ] unit-test
   7 [ "UTF-8" ] [ utf8 encoding>name ] unit-test
   8
   9 ! We will never implement EBCDIC-FI-SE-A
  10 SINGLETON: ebcdic-fisea
  11 ebcdic-fisea "EBCDIC-FI-SE-A" register-encoding
  12 [ ebcdic-fisea ] [ "EBCDIC-FI-SE-A" name>encoding ] unit-test
  13 [ ebcdic-fisea ] [ "csEBCDICFISEA" name>encoding ] unit-test
  14 [ "EBCDIC-FI-SE-A" ] [ ebcdic-fisea encoding>name ] unit-test
  15
  16 ! Clean up after myself
  17 [ ] [
  18     "EBCDIC-FI-SE-A" n>e-table get delete-at
  19     "csEBCDICFISEA" n>e-table get delete-at
  20     ebcdic-fisea e>n-table get delete-at
  21 ] unit-test
  22 [ f ] [ "EBCDIC-FI-SE-A" name>encoding ] unit-test
  23 [ f ] [ "csEBCDICFISEA" name>encoding ] unit-test
  24 [ f ] [ ebcdic-fisea encoding>name ] unit-test
  25
  26 [ ebcdic-fisea "foobar" register-encoding ] must-fail
  27 [ f ] [ "foobar" name>encoding ] unit-test
  28 [ f ] [ ebcdic-fisea encoding>name ] unit-test