From 85e95e6b02d3e9403cea92cc0085d8e053ebdaee Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan 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.37.2