steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding more tests

db4
James Cash 2008-04-29 23:10:47 -04:00
parent 062facb809
commit ec95cef85e
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/lisp/lisp-tests.factor
View File

@ -1,5 +1,9 @@
! Copyright (C) 2008 James Cash ! Copyright (C) 2008 James Cash
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: lisp tools.test ; USING: lisp lisp.parser tools.test ;
IN: lisp.tests IN: lisp.test
{ [ "aoeu" 2 1 T{ lisp-symbol f "foo" } ] } [
"(foo 1 2 \"aoeu\")" lisp-string>factor
] unit-test

8
extra/lisp/parser/parser-tests.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 James Cash ! Copyright (C) 2008 James Cash
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: lisp.parser tools.test ; USING: lisp.parser tools.test peg peg.ebnf ;
IN: lisp.parser.tests IN: lisp.parser.tests
@ -12,6 +12,10 @@ IN: lisp.parser.tests
"123.98" "atom" \ lisp-expr rule parse parse-result-ast "123.98" "atom" \ lisp-expr rule parse parse-result-ast
] unit-test ] unit-test
{ "" } [
"\"\"" "atom" \ lisp-expr rule parse parse-result-ast
] unit-test
{ "aoeu" } [ { "aoeu" } [
"\"aoeu\"" "atom" \ lisp-expr rule parse parse-result-ast "\"aoeu\"" "atom" \ lisp-expr rule parse parse-result-ast
] unit-test ] unit-test
@ -30,5 +34,5 @@ IN: lisp.parser.tests
{ T{ s-exp f { T{ s-exp f
V{ T{ lisp-symbol f "foo" } 1 2 "aoeu" } } } [ V{ T{ lisp-symbol f "foo" } 1 2 "aoeu" } } } [
"(foo 1 2 \"aoeu\")" "(foo 1 2 \"aoeu\")" lisp-expr parse-result-ast
] unit-test ] unit-test