]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/ui/tools/browser/history/history-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / basis / ui / tools / browser / history / history-tests.factor
index 9095881c78b71b755dc759eb8bef81bce4f5d593..df5c55c9e5a4ad85dbe75a2d1519dc2d4098486a 100644 (file)
@@ -11,31 +11,31 @@ dummy new <history> "history" set
 
 "history" get add-history
 
-[ t ] [ "history" get back>> empty? ] unit-test
-[ t ] [ "history" get forward>> empty? ] unit-test
+{ t } [ "history" get back>> empty? ] unit-test
+{ t } [ "history" get forward>> empty? ] unit-test
 
 "history" get add-history
 3 "history" get owner>> set-history-value
 
-[ t ] [ "history" get back>> empty? ] unit-test
-[ t ] [ "history" get forward>> empty? ] unit-test
+{ t } [ "history" get back>> empty? ] unit-test
+{ t } [ "history" get forward>> empty? ] unit-test
 
 "history" get add-history
 4 "history" get owner>> set-history-value
 
-[ f ] [ "history" get back>> empty? ] unit-test
-[ t ] [ "history" get forward>> empty? ] unit-test
+{ f } [ "history" get back>> empty? ] unit-test
+{ t } [ "history" get forward>> empty? ] unit-test
 
 "history" get go-back
 
-[ 3 ] [ "history" get owner>> history-value ] unit-test
+{ 3 } [ "history" get owner>> history-value ] unit-test
 
-[ t ] [ "history" get back>> empty? ] unit-test
-[ f ] [ "history" get forward>> empty? ] unit-test
+{ t } [ "history" get back>> empty? ] unit-test
+{ f } [ "history" get forward>> empty? ] unit-test
 
 "history" get go-forward
 
-[ 4 ] [ "history" get owner>> history-value ] unit-test
+{ 4 } [ "history" get owner>> history-value ] unit-test
 
-[ f ] [ "history" get back>> empty? ] unit-test
-[ t ] [ "history" get forward>> empty? ] unit-test
+{ f } [ "history" get back>> empty? ] unit-test
+{ t } [ "history" get forward>> empty? ] unit-test