X-Git-Url: https://git.rkrishnan.org/?a=blobdiff_plain;f=src%2Fsicp%2Fmetacircular2-test.rkt;fp=src%2Fsicp%2Fmetacircular2-test.rkt;h=cda363a446632ae0ccbb9dafe186e7a51429772e;hb=f225ca5e374ba315b4fefb9d24174cb942c59036;hp=1644f95a9ac1aee0b8a548f614eeb0894f5d0c72;hpb=8d49e7ae3465fb5c51b446671b2a109e9c405122;p=sicp.git

diff --git a/src/sicp/metacircular2-test.rkt b/src/sicp/metacircular2-test.rkt
index 1644f95..cda363a 100644
--- a/src/sicp/metacircular2-test.rkt
+++ b/src/sicp/metacircular2-test.rkt
@@ -77,7 +77,8 @@
                   1
                   (* (factorial (- n 1)) n)))
            env1)
-     (check-equal? (eval '(factorial 10) env1) 3628800 "factorial test"))))
+     (check-equal? (eval '(factorial 10) env1) 3628800 "factorial test")
+     (check-equal? (eval '(unless true "true" "false") env1) "false" "unless test 1"))))
 
 
 (run-tests metacircular2-tests)
\ No newline at end of file