From b2cbe83be8c7159d53a000d5b1c3f2711b2ac177 Mon Sep 17 00:00:00 2001 From: James Cash Date: Mon, 19 May 2008 17:09:30 -0400 Subject: [PATCH] Adding tests for 'begin' --- extra/lisp/lisp-tests.factor | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor index fd6e2d93ae..05ce63a69d 100644 --- a/extra/lisp/lisp-tests.factor +++ b/extra/lisp/lisp-tests.factor @@ -34,4 +34,12 @@ init-env { "b" } [ "(cond (#f \"a\") (#t \"b\"))" lisp-string>factor call +] unit-test + +{ 5 } [ + "(begin (+ 1 4))" lisp-string>factor call +] unit-test + +{ 3 } [ + "((lambda (x) (if x (begin (+ 1 2)) (- 3 5))) #t)" lisp-string>factor call ] unit-test \ No newline at end of file