From 1069db6d053095278c7c9cf1b855b4784c3c788d Mon Sep 17 00:00:00 2001 From: James Cash Date: Wed, 23 Apr 2008 09:01:54 -0400 Subject: [PATCH] Adding unit tests --- extra/lisp/lisp-tests.factor | 4 ++++ 1 file changed, 4 insertions(+) create mode 100644 extra/lisp/lisp-tests.factor diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor new file mode 100644 index 0000000000..a3db32c915 --- /dev/null +++ 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 + + \ No newline at end of file