]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/infix/tokenizer/tokenizer-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / extra / infix / tokenizer / tokenizer-tests.factor
index b068881b84e0bf64dbfc1a43c17ebda33aa12d4f..b5392f52918d754be6365373ead063853cd0947c 100644 (file)
@@ -3,19 +3,19 @@
 USING: infix.ast infix.tokenizer tools.test ;
 IN: infix.tokenizer.tests
 
-[ V{ T{ ast-number f 1 } } ] [ "1" tokenize-infix ] unit-test
-[ V{ T{ ast-number f 1.02 } CHAR: * T{ ast-number f 3 } } ] [ "1.02*3" tokenize-infix ] unit-test
-[ V{ T{ ast-number f 3 } CHAR: / CHAR: ( T{ ast-number f 3 } CHAR: + T{ ast-number f 4 } CHAR: ) } ]
+{ V{ T{ ast-number f 1 } } } [ "1" tokenize-infix ] unit-test
+{ V{ T{ ast-number f 1.02 } CHAR: * T{ ast-number f 3 } } } [ "1.02*3" tokenize-infix ] unit-test
+{ V{ T{ ast-number f 3 } CHAR: / CHAR: ( T{ ast-number f 3 } CHAR: + T{ ast-number f 4 } CHAR: ) } }
 [ "3/(3+4)" tokenize-infix ] unit-test
-[ V{ "foo"  CHAR: ( "x" CHAR: , "y" CHAR: , "z" CHAR: ) } ] [ "foo(x,y,z)" tokenize-infix ] unit-test
-[ V{ "arr"  CHAR: [ "x" CHAR: + T{ ast-number f 3 } CHAR: ] } ]
+{ V{ "foo"  CHAR: ( "x" CHAR: , "y" CHAR: , "z" CHAR: ) } } [ "foo(x,y,z)" tokenize-infix ] unit-test
+{ V{ "arr"  CHAR: [ "x" CHAR: + T{ ast-number f 3 } CHAR: ] } }
 [ "arr[x+3]" tokenize-infix ] unit-test
 [ "1.0.4" tokenize-infix ] must-fail
-[ V{ CHAR: + CHAR: ] T{ ast-number f 3.4 } CHAR: , "bar" } ]
+{ V{ CHAR: + CHAR: ] T{ ast-number f 3.4 } CHAR: , "bar" } }
 [ "+]3.4,bar" tokenize-infix ] unit-test
-[ V{ "baz_34c" } ] [ "baz_34c" tokenize-infix ] unit-test
-[ V{ T{ ast-number f 34 } "c_baz" } ] [ "34c_baz"  tokenize-infix ] unit-test
-[ V{ CHAR: ( T{ ast-number f 1 } CHAR: + T{ ast-number f 2 } CHAR: ) } ]
+{ V{ "baz_34c" } } [ "baz_34c" tokenize-infix ] unit-test
+{ V{ T{ ast-number f 34 } "c_baz" } } [ "34c_baz"  tokenize-infix ] unit-test
+{ V{ CHAR: ( T{ ast-number f 1 } CHAR: + T{ ast-number f 2 } CHAR: ) } }
 [ "(1+2)" tokenize-infix ] unit-test
-[ V{ T{ ast-number f 1 } CHAR: + T{ ast-number f 2 } CHAR: / T{ ast-number f 3 } } ]
+{ V{ T{ ast-number f 1 } CHAR: + T{ ast-number f 2 } CHAR: / T{ ast-number f 3 } } }
 [ "1\n+\r2\t/ 3" tokenize-infix ] unit-test