add tests for unless
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Sun, 27 May 2012 16:28:59 +0000 (21:58 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Sun, 27 May 2012 16:28:59 +0000 (21:58 +0530)
src/sicp/metacircular2-test.rkt

index cda363a446632ae0ccbb9dafe186e7a51429772e..aa167f8b01649bca91727b90cf3f343cfedc53d9 100644 (file)
@@ -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