]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/xmode/keyword-map/keyword-map-tests.factor
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
[factor.git] / basis / xmode / keyword-map / keyword-map-tests.factor
index 0e5c03fb571163f2b5dfccb811ca79cf2e30140f..17644fb451bedd7f4a9c238e1a3e1f144d8fdff8 100644 (file)
@@ -10,11 +10,11 @@ f <keyword-map> dup "k" set
     { "size_t" KEYWORD3 }
 } assoc-union! drop
 
-[ 3 ] [ "k" get assoc-size ] unit-test
-[ KEYWORD1 ] [ "int" "k" get at ] unit-test
-[ "_" ] [ "k" get keyword-map-no-word-sep* >string ] unit-test
-[ ] [ LITERAL1 "x-y" "k" get set-at ] unit-test
-[ "-_" ] [ "k" get keyword-map-no-word-sep* >string ] unit-test
+{ 3 } [ "k" get assoc-size ] unit-test
+{ KEYWORD1 } [ "int" "k" get at ] unit-test
+{ "_" } [ "k" get keyword-map-no-word-sep* >string ] unit-test
+{ } [ LITERAL1 "x-y" "k" get set-at ] unit-test
+{ "-_" } [ "k" get keyword-map-no-word-sep* >string ] unit-test
 
 t <keyword-map> dup "k" set
 {
@@ -23,8 +23,8 @@ t <keyword-map> dup "k" set
     { "BAZ" KEYWORD3 }
 } assoc-union! drop
 
-[ KEYWORD1 ] [ "fOo" "k" get at ] unit-test
+{ KEYWORD1 } [ "fOo" "k" get at ] unit-test
 
-[ KEYWORD2 ] [ "BBAR" "k" get at ] unit-test
+{ KEYWORD2 } [ "BBAR" "k" get at ] unit-test
 
-[ KEYWORD3 ] [ "baz" "k" get at ] unit-test
+{ KEYWORD3 } [ "baz" "k" get at ] unit-test