factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!

[factor.git] / basis / furnace / furnace-tests.factor

diff --git a/basis/furnace/furnace-tests.factor b/basis/furnace/furnace-tests.factor
index ca1faa7729e9cdbe0deb6553dc1f127b7ca14707..92e91ab3c908366bcca2db206ba63ccfb9cc41d9 100644 (file)
--- a/basis/furnace/furnace-tests.factor
+++ b/basis/furnace/furnace-tests.factor
@@ -16,7 +16,7 @@ M: base-path-check-responder call-responder*
     "$funny-dispatcher" resolve-base-path
     <text-content> ;
 
-[ ] [
+{ } [
     <dispatcher>
         <dispatcher>
             <funny-dispatcher>
@@ -26,17 +26,17 @@ M: base-path-check-responder call-responder*
     main-responder set
 ] unit-test
 
-[ "/a/b/" ] [
+{ "/a/b/" } [
     V{ } responder-nesting set
     "a/b/c" split-path main-responder get call-responder body>>
 ] unit-test
 
-[ "<input type=\"hidden\" value=\"&amp;&amp;&amp;\" name=\"foo\"/>" ]
+{ "<input type=\"hidden\" value=\"&amp;&amp;&amp;\" name=\"foo\"/>" }
 [ "&&&" "foo" hidden-form-field xml>string ]
 unit-test
 
-[ f ] [ <request> request [ referrer ] with-variable ] unit-test
+{ f } [ <request> request [ referrer ] with-variable ] unit-test
 
-[ t ] [ URL" http://foo" dup url [ same-host? ] with-variable ] unit-test
+{ t } [ URL" http://foo" dup url [ same-host? ] with-variable ] unit-test
 
-[ f ] [ f URL" http://foo" url [ same-host? ] with-variable ] unit-test
+{ f } [ f URL" http://foo" url [ same-host? ] with-variable ] unit-test