Adding more tests to lisp

2008-05-15 22:58:32 -04:00 · 2008-05-15 22:58:32 -04:00 · ced3a4b632
parent 88576aefe4
commit ced3a4b632
1 changed files with 10 additions and 0 deletions
--- 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