factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / basis / io / encodings / iana / iana-tests.factor

diff --git a/basis/io/encodings/iana/iana-tests.factor b/basis/io/encodings/iana/iana-tests.factor
index 67b849b2b24a3b4f9dadc67a23b9b3f86f10db2d..cf946df13b10c0c4c45343dc2f89fa74ad1f8a9d 100644 (file)
--- a/basis/io/encodings/iana/iana-tests.factor
+++ b/basis/io/encodings/iana/iana-tests.factor
@@ -2,27 +2,27 @@ 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
+{ 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
+{ 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
+{ 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
+{ f } [ "foobar" name>encoding ] unit-test
+{ f } [ ebcdic-fisea encoding>name ] unit-test