]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/models/arrow/arrow-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / basis / models / arrow / arrow-tests.factor
index 2cb9b6ee5aaefbf0ca03477c1c8c56fc86c4919e..06058f0e5bda12920bc02e0be21dd4a30e0e4619 100644 (file)
@@ -5,13 +5,13 @@ IN: models.arrow.tests
 3 <model> "x" set
 "x" get [ 2 * ] <arrow> dup "z" set
 [ 1 + ] <arrow> "y" set
-[ ] [ "y" get activate-model ] unit-test
-[ t ] [ "z" get "x" get connections>> member-eq? ] unit-test
-[ 7 ] [ "y" get value>> ] unit-test
-[ ] [ 4 "x" get set-model ] unit-test
-[ 9 ] [ "y" get value>> ] unit-test
-[ ] [ "y" get deactivate-model ] unit-test
-[ f ] [ "z" get "x" get connections>> member-eq? ] unit-test
+{ } [ "y" get activate-model ] unit-test
+{ t } [ "z" get "x" get connections>> member-eq? ] unit-test
+{ 7 } [ "y" get value>> ] unit-test
+{ } [ 4 "x" get set-model ] unit-test
+{ 9 } [ "y" get value>> ] unit-test
+{ } [ "y" get deactivate-model ] unit-test
+{ f } [ "z" get "x" get connections>> member-eq? ] unit-test
 
 3 <model> "x" set
 "x" get [ sq ] <arrow> "y" set
@@ -19,5 +19,5 @@ IN: models.arrow.tests
 4 "x" get set-model
 
 "y" get activate-model
-[ 16 ] [ "y" get value>> ] unit-test
+{ 16 } [ "y" get value>> ] unit-test
 "y" get deactivate-model