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

[factor.git] / core / classes / intersection / intersection-tests.factor

diff --git a/core/classes/intersection/intersection-tests.factor b/core/classes/intersection/intersection-tests.factor
index b0435a211996f9c095297392d2cd0a3b087bd19e..b0749b8723d0bb3e594bfa9d7ef442eb552449c8 100644 (file)
--- a/core/classes/intersection/intersection-tests.factor
+++ b/core/classes/intersection/intersection-tests.factor
@@ -14,13 +14,13 @@ GENERIC: x ( a -- b )
 M: c x drop c ;
 M: a x drop a ;
 
-[ a ] [ T{ a } x ] unit-test
-[ a ] [ T{ a1 } x ] unit-test
-[ a ] [ T{ a2 } x ] unit-test
+{ a } [ T{ a } x ] unit-test
+{ a } [ T{ a1 } x ] unit-test
+{ a } [ T{ a2 } x ] unit-test
 
-[ t ] [ T{ a3 } c? ] unit-test
-[ t ] [ T{ a3 } \ x effective-method M\ c x eq? nip ] unit-test
-[ c ] [ T{ a3 } x ] unit-test
+{ t } [ T{ a3 } c? ] unit-test
+{ t } [ T{ a3 } \ x effective-method M\ c x eq? nip ] unit-test
+{ c } [ T{ a3 } x ] unit-test
 
 ! More complex case
 TUPLE: t1 ;
@@ -35,8 +35,8 @@ GENERIC: g ( a -- b )
 M: i g drop i ;
 M: t4 g drop t4 ;
 
-[ t4 ] [ T{ t4 } g ] unit-test
-[ i ] [ T{ t5 } g ] unit-test
+{ t4 } [ T{ t4 } g ] unit-test
+{ i } [ T{ t5 } g ] unit-test
 
 PREDICATE: odd-integer < integer odd? ;
 
@@ -45,15 +45,15 @@ PREDICATE: odd-integer < integer odd? ;
 
 TUPLE: omg { a intersection{ fixnum odd-integer } initial: 1 } ;
 
-[ 1 ] [ omg new a>> ] unit-test
-[ 3 ] [ omg new 3 >>a a>> ] unit-test
+{ 1 } [ omg new a>> ] unit-test
+{ 3 } [ omg new 3 >>a a>> ] unit-test
 [ omg new 1.2 >>a a>> ] [ bad-slot-value? ] must-fail-with
 
 PREDICATE: odd/float-between-10-20 < union{ odd-integer float }
     10 20 between? ;
 
-[ t ] [ 17 odd/float-between-10-20? ] unit-test
-[ t ] [ 17.4 odd/float-between-10-20? ] unit-test
-[ f ] [ 18 odd/float-between-10-20? ] unit-test
-[ f ] [ 5 odd/float-between-10-20? ] unit-test
-[ f ] [ 5.75 odd/float-between-10-20? ] unit-test
+{ t } [ 17 odd/float-between-10-20? ] unit-test
+{ t } [ 17.4 odd/float-between-10-20? ] unit-test
+{ f } [ 18 odd/float-between-10-20? ] unit-test
+{ f } [ 5 odd/float-between-10-20? ] unit-test
+{ f } [ 5.75 odd/float-between-10-20? ] unit-test