]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/c/lexer/lexer-tests.factor
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...
[factor.git] / extra / c / lexer / lexer-tests.factor
index e27e2257771a6714757415f8f7322dc4d35b84f0..6d883b469a471eb06c85078c282712cfca4bf972 100644 (file)
 USING: accessors c.lexer kernel sequences.parser tools.test ;
 IN: c.lexer.tests
 
-{ 36 }
+[ 36 ]
 [
     "    //jofiejoe\n    //eoieow\n/*asdf*/\n      "
     <sequence-parser> skip-whitespace/comments n>>
 ] unit-test
 
-{ f "33asdf" }
+[ f "33asdf" ]
 [ "33asdf" <sequence-parser> [ take-c-identifier ] [ take-rest ] bi ] unit-test
 
-{ "asdf" }
+[ "asdf" ]
 [ "asdf" <sequence-parser> take-c-identifier ] unit-test
 
-{ "_asdf" }
+[ "_asdf" ]
 [ "_asdf" <sequence-parser> take-c-identifier ] unit-test
 
-{ "_asdf400" }
+[ "_asdf400" ]
 [ "_asdf400" <sequence-parser> take-c-identifier ] unit-test
 
-{ "asdfasdf" } [
+[ "asdfasdf" ] [
     "/*asdfasdf*/" <sequence-parser> take-c-comment
 ] unit-test
 
-{ "k" } [
+[ "k" ] [
     "/*asdfasdf*/k" <sequence-parser> [ take-c-comment drop ] [ take-rest ] bi
 ] unit-test
 
-{ "omg" } [
+[ "omg" ] [
     "//asdfasdf\nomg" <sequence-parser>
     [ take-c++-comment drop ] [ take-rest ] bi
 ] unit-test
 
-{ "omg" } [
+[ "omg" ] [
     "omg" <sequence-parser>
     [ take-c++-comment drop ] [ take-rest ] bi
 ] unit-test
 
-{ "/*asdfasdf" } [
+[ "/*asdfasdf" ] [
     "/*asdfasdf" <sequence-parser> [ take-c-comment drop ] [ take-rest ] bi
 ] unit-test
 
-{ "asdf" "eoieoei" } [
+[ "asdf" "eoieoei" ] [
     "//asdf\neoieoei" <sequence-parser>
     [ take-c++-comment ] [ take-rest ] bi
 ] unit-test
 
-{ f }
+[ f ]
 [
     "\"abc\" asdf" <sequence-parser>
     [ CHAR: \ CHAR: " take-quoted-string drop ] [ "asdf" take-sequence ] bi
 ] unit-test
 
-{ "abc\\\"def" }
+[ "abc\\\"def" ]
 [
     "\"abc\\\"def\" asdf" <sequence-parser>
     CHAR: \ CHAR: " take-quoted-string
 ] unit-test
 
-{ "asdf" }
+[ "asdf" ]
 [
     "\"abc\" asdf" <sequence-parser>
     [ CHAR: \ CHAR: " take-quoted-string drop ]
     [ skip-whitespace "asdf" take-sequence ] bi
 ] unit-test
 
-{ f }
+[ f ]
 [
     "\"abc asdf" <sequence-parser>
     CHAR: \ CHAR: " take-quoted-string
 ] unit-test
 
-{ "\"abc" }
+[ "\"abc" ]
 [
     "\"abc asdf" <sequence-parser>
     [ CHAR: \ CHAR: " take-quoted-string drop ]
     [ "\"abc" take-sequence ] bi
 ] unit-test
 
-{ "c" }
+[ "c" ]
 [ "c" <sequence-parser> take-token ] unit-test
 
-{ f }
+[ f ]
 [ "" <sequence-parser> take-token ] unit-test
 
-{ "abcd e \\\"f g" }
+[ "abcd e \\\"f g" ]
 [ "\"abcd e \\\"f g\"" <sequence-parser> CHAR: \ CHAR: " take-token* ] unit-test
 
-{ "123" }
+[ "123" ]
 [ "123jjj" <sequence-parser> take-c-integer ] unit-test
 
-{ "123uLL" }
+[ "123uLL" ]
 [ "123uLL" <sequence-parser> take-c-integer ] unit-test
 
-{ "123ull" }
+[ "123ull" ]
 [ "123ull" <sequence-parser> take-c-integer ] unit-test
 
-{ "123u" }
+[ "123u" ]
 [ "123u" <sequence-parser> take-c-integer ] unit-test