From: Ramakrishnan Muthukrishnan Date: Sun, 27 May 2012 16:28:59 +0000 (+0530) Subject: add tests for unless X-Git-Url: https://git.rkrishnan.org/about.html?a=commitdiff_plain;h=85e95e6b02d3e9403cea92cc0085d8e053ebdaee;p=sicp.git add tests for unless --- 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