From 85e95e6b02d3e9403cea92cc0085d8e053ebdaee Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Sun, 27 May 2012 21:58:59 +0530
Subject: [PATCH] add tests for unless

---
 src/sicp/metacircular2-test.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/sicp/metacircular2-test.rkt b/src/sicp/metacircular2-test.rkt
index cda363a..aa167f8 100644
--- a/src/sicp/metacircular2-test.rkt
+++ b/src/sicp/metacircular2-test.rkt
@@ -78,7 +78,8 @@
                   (* (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 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
-- 
2.45.2