]> gitweb.factorcode.org Git - factor.git/blobdiff - core/namespaces/namespaces-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / core / namespaces / namespaces-tests.factor
index 27cd6a9d090ce30326eb42917a553e92dd5f7823..08aef97fdcc900fb1ef1fe492e9f829e1107f773 100644 (file)
@@ -7,10 +7,10 @@ H{ } clone "test-namespace" set
 : test-namespace ( -- ? )
     H{ } clone dup [ namespace = ] with-variables ;
 
-[ t ] [ test-namespace ] unit-test
+{ t } [ test-namespace ] unit-test
 
 10 "some-global" set
-[ f ]
+{ f }
 [ H{ } clone [ f "some-global" set "some-global" get ] with-variables ]
 unit-test
 
@@ -21,20 +21,20 @@ f test-initialize set-global
 test-initialize [ 1 ] initialize
 test-initialize [ 2 ] initialize
 
-[ 1 ] [ test-initialize get-global ] unit-test
+{ 1 } [ test-initialize get-global ] unit-test
 
 f test-initialize set-global
 test-initialize [ 5 ] initialize
 
-[ 5 ] [ test-initialize get-global ] unit-test
+{ 5 } [ test-initialize get-global ] unit-test
 
 SYMBOL: toggle-test
-[ f ] [ toggle-test get ] unit-test
-[ t ] [ toggle-test [ toggle ] [ get ] bi ] unit-test
-[ f ] [ toggle-test [ toggle ] [ get ] bi ] unit-test
+{ f } [ toggle-test get ] unit-test
+{ t } [ toggle-test [ toggle ] [ get ] bi ] unit-test
+{ f } [ toggle-test [ toggle ] [ get ] bi ] unit-test
 
-[ t ] [ toggle-test [ on ] [ get ] bi ] unit-test
-[ f ] [ toggle-test [ off ] [ get ] bi ] unit-test
+{ t } [ toggle-test [ on ] [ get ] bi ] unit-test
+{ f } [ toggle-test [ off ] [ get ] bi ] unit-test
 
-[ t ] [ [ test-initialize get-global ] { at* set-at } inlined? ] unit-test
-[ t ] [ [ test-initialize set-global ] { at* set-at } inlined? ] unit-test
+{ t } [ [ test-initialize get-global ] { at* set-at } inlined? ] unit-test
+{ t } [ [ test-initialize set-global ] { at* set-at } inlined? ] unit-test