From ced3a4b632c583b620ad8388df14d1265781fd8f Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Thu, 15 May 2008 22:58:32 -0400
Subject: [PATCH] Adding more tests to lisp

---
 extra/lisp/lisp-tests.factor | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index 06c2260d72..98e1c9e943 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -14,4 +14,14 @@ init-env
 
 { 3 } [
   "((lambda (x y) (+ x y)) 1 2)" lisp-string>factor call
+] unit-test
+
+"-" "math" "-" define-primitve
+
+{ 8.3 } [
+ [ 10.4 2.1 ] "-" <lisp-symbol> funcall
+] unit-test
+
+{ 42 } [
+  "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-string>factor call
 ] unit-test
\ No newline at end of file