X-Git-Url: https://git.rkrishnan.org/?a=blobdiff_plain;f=src%2Fsicp%2Fmetacircular2-test.rkt;h=aa167f8b01649bca91727b90cf3f343cfedc53d9;hb=85e95e6b02d3e9403cea92cc0085d8e053ebdaee;hp=91ea502fd664082146a675ac884d82f63c9e66ff;hpb=871a4a8e2869b365b7bde907ec5762426dabfba0;p=sicp.git

diff --git a/src/sicp/metacircular2-test.rkt b/src/sicp/metacircular2-test.rkt
index 91ea502..aa167f8 100644
--- a/src/sicp/metacircular2-test.rkt
+++ b/src/sicp/metacircular2-test.rkt
@@ -71,7 +71,15 @@
                     b
                     (fib-iter (+ a b) a (- count 1)))))
            env1)
-     (check-equal? (eval '(fib 10) env1) 55 "named let"))))
+     (check-equal? (eval '(fib 10) env1) 55 "named let")
+     (eval '(define (factorial n)
+              (if (= n 1)
+                  1
+                  (* (factorial (- n 1)) n)))
+           env1)
+     (check-equal? (eval '(factorial 10) env1) 3628800 "factorial test")
+     (check-equal? (eval '(unless true "true" "false") env1) "false" "unless test 1")
+     (check-equal? (eval '(unless false "true" "false") env1) "true" "unless test 2"))))
 
 
 (run-tests metacircular2-tests)
\ No newline at end of file