]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/pairs/pairs-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / extra / pairs / pairs-tests.factor
index 524f7680ed0c3c7757fc0de66e1b23ef21d5519b..90e5f8c8a81e2a1285f84965db250e50a4649a30 100644 (file)
@@ -5,19 +5,19 @@ SYMBOL: blah
 
 "blah" blah <pair> "b" set
 
-[ "blah" t ] [ blah "b" get at* ] unit-test
-[ f f ] [ "fdaf" "b" get at* ] unit-test
-[ 1 ] [ "b" get assoc-size ] unit-test
-[ { { blah "blah" } } ] [ "b" get >alist ] unit-test
-[ ] [ "bleah" blah "b" get set-at ] unit-test
-[ 1 ] [ "b" get assoc-size ] unit-test
-[ { { blah "bleah" } } ] [ "b" get >alist ] unit-test
-[ "bleah" t ] [ blah "b" get at* ] unit-test
-[ f f ] [ "fdaf" "b" get at* ] unit-test
+{ "blah" t } [ blah "b" get at* ] unit-test
+{ f f } [ "fdaf" "b" get at* ] unit-test
+{ 1 } [ "b" get assoc-size ] unit-test
+{ { { blah "blah" } } } [ "b" get >alist ] unit-test
+{ } [ "bleah" blah "b" get set-at ] unit-test
+{ 1 } [ "b" get assoc-size ] unit-test
+{ { { blah "bleah" } } } [ "b" get >alist ] unit-test
+{ "bleah" t } [ blah "b" get at* ] unit-test
+{ f f } [ "fdaf" "b" get at* ] unit-test
 [ blah "b" get delete-at ] must-fail
-[ ] [ 1 2 "b" get set-at ] unit-test
-[ "bleah" t ] [ blah "b" get at* ] unit-test
-[ 1 t ] [ 2 "b" get at* ] unit-test
-[ f f ] [ "fdaf" "b" get at* ] unit-test
-[ 2 ] [ "b" get assoc-size ] unit-test
-[ { { 2 1 } { blah "bleah" } } ] [ "b" get >alist ] unit-test
+{ } [ 1 2 "b" get set-at ] unit-test
+{ "bleah" t } [ blah "b" get at* ] unit-test
+{ 1 t } [ 2 "b" get at* ] unit-test
+{ f f } [ "fdaf" "b" get at* ] unit-test
+{ 2 } [ "b" get assoc-size ] unit-test
+{ { { 2 1 } { blah "bleah" } } } [ "b" get >alist ] unit-test