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

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

diff --git a/basis/validators/validators-tests.factor b/basis/validators/validators-tests.factor
index 6b5936977f433bae7745c8cc48c1a2660301242f..1685a99626330d0ebec1ce04d84e2b47ca03c09b 100644 (file)
--- a/basis/validators/validators-tests.factor
+++ b/basis/validators/validators-tests.factor
@@ -2,23 +2,23 @@ IN: validators.tests
 USING: kernel sequences tools.test validators accessors
 namespaces assocs ;
 
-[ t ] [ "on" v-checkbox ] unit-test
-[ f ] [ "off" v-checkbox ] unit-test
+{ t } [ "on" v-checkbox ] unit-test
+{ f } [ "off" v-checkbox ] unit-test
 
-[ "default test" ] [ "" "default test" v-default ] unit-test
-[ "blah" ] [ "blah" "default test" v-default ] unit-test
+{ "default test" } [ "" "default test" v-default ] unit-test
+{ "blah" } [ "blah" "default test" v-default ] unit-test
 
 [ "foo" v-number ] must-fail
-[ 123 ] [ "123" v-number ] unit-test
-[ 123 ] [ "123" v-integer ] unit-test
+{ 123 } [ "123" v-number ] unit-test
+{ 123 } [ "123" v-integer ] unit-test
 
 [ "1.0" v-integer ] [ "must be an integer" = ] must-fail-with
 
-[ "slava@factorcode.org" ] [
+{ "slava@factorcode.org" } [
     "slava@factorcode.org" v-email
 ] unit-test
 
-[ "slava+foo@factorcode.org" ] [
+{ "slava+foo@factorcode.org" } [
     "slava+foo@factorcode.org" v-email
 ] unit-test
 
@@ -31,25 +31,25 @@ namespaces assocs ;
 [ "slava@factorcodeorg" v-email ]
 [ "invalid e-mail" = ] must-fail-with
 
-[ "http://www.factorcode.org" ]
+{ "http://www.factorcode.org" }
 [ "http://www.factorcode.org" v-url ] unit-test
 
 [ "http:/www.factorcode.org" v-url ]
 [ "invalid URL" = ] must-fail-with
 
 [ "" v-one-line ] must-fail
-[ "hello world" ] [ "hello world" v-one-line ] unit-test
+{ "hello world" } [ "hello world" v-one-line ] unit-test
 [ "hello\nworld" v-one-line ] must-fail
 
 [ "" v-one-word ] must-fail
-[ "hello" ] [ "hello" v-one-word ] unit-test
+{ "hello" } [ "hello" v-one-word ] unit-test
 [ "hello world" v-one-word ] must-fail
 
-[ 4561261212345467 ] [ "4561261212345467" v-credit-card ] unit-test
+{ 4561261212345467 } [ "4561261212345467" v-credit-card ] unit-test
 
-[ 4561261212345467 ] [ "4561-2612-1234-5467" v-credit-card ] unit-test
+{ 4561261212345467 } [ "4561-2612-1234-5467" v-credit-card ] unit-test
 
-[ 0 ] [ "0000000000000000" v-credit-card ] unit-test
+{ 0 } [ "0000000000000000" v-credit-card ] unit-test
 
 [ "000000000" v-credit-card ] must-fail
 
@@ -59,4 +59,4 @@ namespaces assocs ;
 
 [ "4561-2621-1234-5467" v-credit-card ] must-fail
 
-[ t ] [ "http://double.co.nz/w?v=foo" dup v-url = ] unit-test
+{ t } [ "http://double.co.nz/w?v=foo" dup v-url = ] unit-test