Adding unit tests

2008-04-23 09:01:54 -04:00 · 2008-04-23 09:01:54 -04:00 · 1069db6d05
parent 761e3bb8f5
commit 1069db6d05
1 changed files with 4 additions and 0 deletions
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@ -0,0 +1,4 @@
+[ [ T{ lisp-symbol f "foo" } [ 2 T{ lisp-symbol f "bar" } ] [ 3 4 T{ lisp-symbol f "baz" } ] if ] ]
+  [ "(if foo (bar 2) (baz 3 4))" lisp-expr parse-result-ast convert-if ] unit-test
+  
+