]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/slots/syntax/syntax-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / extra / slots / syntax / syntax-tests.factor
index 01335f54d12bd52091d675428966fb70ab39fe2b..c8b1c18a0884758fed5690fae9ec2d22ab57f831 100755 (executable)
@@ -5,15 +5,15 @@ IN: slots.syntax.tests
 
 TUPLE: slot-test1 a b c ;
 
-[ 1 2 3 ] [ T{ slot-test1 f 1 2 3 } slots[ a b c ] ] unit-test
-[ 3 ] [ T{ slot-test1 f 1 2 3 } slots[ c ] ] unit-test
-[ ] [ T{ slot-test1 f 1 2 3 } slots[ ] ] unit-test
+[ 1 2 3 ] { T{ slot-test1 f 1 2 3 } slots[ a b c } ] unit-test
+[ 3 ] { T{ slot-test1 f 1 2 3 } slots[ c } ] unit-test
+[ ] { T{ slot-test1 f 1 2 3 } slots[ } ] unit-test
 
-[ { 1 2 3 } ] [ T{ slot-test1 f 1 2 3 } slots{ a b c } ] unit-test
-[ { 3 } ] [ T{ slot-test1 f 1 2 3 } slots{ c } ] unit-test
-[ { } ] [ T{ slot-test1 f 1 2 3 } slots{ } ] unit-test
+{ { 1 2 3 } } [ T{ slot-test1 f 1 2 3 } slots{ a b c } ] unit-test
+{ { 3 } } [ T{ slot-test1 f 1 2 3 } slots{ c } ] unit-test
+{ { } } [ T{ slot-test1 f 1 2 3 } slots{ } ] unit-test
 
 TUPLE: slot-test2 a b c d ;
 
-[ T{ slot-test2 f 1 2 33 44 } ]
+{ T{ slot-test2 f 1 2 33 44 } }
 [ 1 2 3 slot-test1 boa 11 22 33 44 slot-test2 boa copy-slots{ a b } ] unit-test