From f02ca2284cf3046dd3037a42a171e7d06ac97c7b Mon Sep 17 00:00:00 2001 From: James Cash Date: Sun, 27 Apr 2008 23:12:52 -0400 Subject: [PATCH] Starting tests for lisp --- extra/lisp/lisp-tests.factor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor index a3db32c915..6266693571 100644 --- a/extra/lisp/lisp-tests.factor +++ b/extra/lisp/lisp-tests.factor @@ -1,4 +1,5 @@ -[ [ 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 +! Copyright (C) 2008 James Cash +! See http://factorcode.org/license.txt for BSD license. +USING: lisp tools.test ; + +IN: lisp.tests \ No newline at end of file