]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/ui/tools/listener/history/history-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / basis / ui / tools / listener / history / history-tests.factor
index 331437c4721f21ac7dab37c08f997200dc25e50e..762cec9f44a92685f65d286bf058e2b619758a82 100644 (file)
@@ -6,68 +6,68 @@ sequences tools.test ui.tools.listener.history ;
 
 IN: ui.tools.listener.history.tests
 
-[ ] [ <document> "d" set ] unit-test
-[ ] [ "d" get <history> "h" set ] unit-test
+{ } [ <document> "d" set ] unit-test
+{ } [ "d" get <history> "h" set ] unit-test
 
-[ ] [ "1" "d" get set-doc-string ] unit-test
-[ T{ input f "1" } ] [ "h" get history-add ] unit-test
+{ } [ "1" "d" get set-doc-string ] unit-test
+{ T{ input f "1" } } [ "h" get history-add ] unit-test
 
-[ ] [ "2" "d" get set-doc-string ] unit-test
-[ T{ input f "2" } ] [ "h" get history-add ] unit-test
+{ } [ "2" "d" get set-doc-string ] unit-test
+{ T{ input f "2" } } [ "h" get history-add ] unit-test
 
-[ ] [ "3" "d" get set-doc-string ] unit-test
-[ T{ input f "3" } ] [ "h" get history-add ] unit-test
+{ } [ "3" "d" get set-doc-string ] unit-test
+{ T{ input f "3" } } [ "h" get history-add ] unit-test
 
-[ ] [ "" "d" get set-doc-string ] unit-test
+{ } [ "" "d" get set-doc-string ] unit-test
 
-[ ] [ "h" get history-recall-previous ] unit-test
-[ "3" ] [ "d" get doc-string ] unit-test
+{ } [ "h" get history-recall-previous ] unit-test
+{ "3" } [ "d" get doc-string ] unit-test
 
-[ ] [ "h" get history-recall-previous ] unit-test
-[ "2" ] [ "d" get doc-string ] unit-test
+{ } [ "h" get history-recall-previous ] unit-test
+{ "2" } [ "d" get doc-string ] unit-test
 
-[ ] [ "h" get history-recall-previous ] unit-test
-[ "1" ] [ "d" get doc-string ] unit-test
+{ } [ "h" get history-recall-previous ] unit-test
+{ "1" } [ "d" get doc-string ] unit-test
 
-[ ] [ "h" get history-recall-previous ] unit-test
-[ "1" ] [ "d" get doc-string ] unit-test
+{ } [ "h" get history-recall-previous ] unit-test
+{ "1" } [ "d" get doc-string ] unit-test
 
-[ ] [ "h" get history-recall-next ] unit-test
-[ "2" ] [ "d" get doc-string ] unit-test
+{ } [ "h" get history-recall-next ] unit-test
+{ "2" } [ "d" get doc-string ] unit-test
 
-[ ] [ "22" "d" get set-doc-string ] unit-test
+{ } [ "22" "d" get set-doc-string ] unit-test
 
-[ ] [ "h" get history-recall-next ] unit-test
-[ "3" ] [ "d" get doc-string ] unit-test
+{ } [ "h" get history-recall-next ] unit-test
+{ "3" } [ "d" get doc-string ] unit-test
 
-[ ] [ "h" get history-recall-previous ] unit-test
-[ "22" ] [ "d" get doc-string ] unit-test
+{ } [ "h" get history-recall-previous ] unit-test
+{ "22" } [ "d" get doc-string ] unit-test
 
-[ ] [ "h" get history-recall-previous ] unit-test
-[ "1" ] [ "d" get doc-string ] unit-test
+{ } [ "h" get history-recall-previous ] unit-test
+{ "1" } [ "d" get doc-string ] unit-test
 
-[ ] [ "222" "d" get set-doc-string ] unit-test
-[ T{ input f "222" } ] [ "h" get history-add ] unit-test
+{ } [ "222" "d" get set-doc-string ] unit-test
+{ T{ input f "222" } } [ "h" get history-add ] unit-test
 
-[ ] [ "h" get history-recall-previous ] unit-test
-[ ] [ "h" get history-recall-previous ] unit-test
-[ ] [ "h" get history-recall-previous ] unit-test
+{ } [ "h" get history-recall-previous ] unit-test
+{ } [ "h" get history-recall-previous ] unit-test
+{ } [ "h" get history-recall-previous ] unit-test
 
-[ "22" ] [ "d" get doc-string ] unit-test
+{ "22" } [ "d" get doc-string ] unit-test
 
-[ ] [ <document> "d" set ] unit-test
-[ ] [ "d" get <history> "h" set ] unit-test
+{ } [ <document> "d" set ] unit-test
+{ } [ "d" get <history> "h" set ] unit-test
 
-[ ] [ "aaa" "d" get set-doc-string ] unit-test
-[ T{ input f "aaa" } ] [ "h" get history-add ] unit-test
+{ } [ "aaa" "d" get set-doc-string ] unit-test
+{ T{ input f "aaa" } } [ "h" get history-add ] unit-test
 
-[ ] [ "" "d" get set-doc-string ] unit-test
-[ T{ input f "" } ] [ "h" get history-add ] unit-test
-[ T{ input f "" } ] [ "h" get history-add ] unit-test
-[ ] [ "   " "d" get set-doc-string ] unit-test
-[ ] [ "h" get history-recall-previous ] unit-test
+{ } [ "" "d" get set-doc-string ] unit-test
+{ T{ input f "" } } [ "h" get history-add ] unit-test
+{ T{ input f "" } } [ "h" get history-add ] unit-test
+{ } [ "   " "d" get set-doc-string ] unit-test
+{ } [ "h" get history-recall-previous ] unit-test
 
-[ 1 ] [
+{ 1 } [
     "abc" <document> [ set-doc-string ] [ <history> ] bi
     [ history-add drop ]
     [ history-add drop ]