From e30be7c65dad643063b6d5b9f85f7eb969c8bc50 Mon Sep 17 00:00:00 2001 From: Scott Bell Date: Sat, 5 Dec 2015 08:41:04 -0800 Subject: [PATCH] Minor test tweaks --- test.l | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/test.l b/test.l index 8121afa..265f45b 100644 --- a/test.l +++ b/test.l @@ -72,7 +72,9 @@ (test= more (read "`(a b ,(z" more)) (test= more (read "`\"biz" more)) (test= more (read "'\"boz" more))) - (test= (list false "Expected ) at 5") (cut (guard (read "(open")) 0 2)))) + (let ((ok msg) (guard (read "(open"))) + (test= false ok) + (test= "Expected ) at 5" msg)))) (define-test boolean (test= true (or true false)) @@ -466,13 +468,13 @@ c" (test= 12 a)))) (define-test guard - (let-macro ((guard2 (x) `(cut (guard ,x) 0 2))) - (test= '(true 42) (guard2 42)) - (test= '(false foo) (guard2 (error "foo"))) - (test= '(false foo) (guard2 (do (error "foo") (error "baz")))) - (test= '(false baz) (guard2 (do (guard2 (error "foo")) (error "baz")))) - (test= '(true 42) (guard2 (if true 42 (error "baz")))) - (test= '(false baz) (guard2 (if false 42 (error "baz")))))) + (let-macro ((guard1 (x) `(cut (guard ,x) 0 2))) + (test= '(true 42) (guard1 42)) + (test= '(false foo) (guard1 (error "foo"))) + (test= '(false foo) (guard1 (do (error "foo") (error "baz")))) + (test= '(false baz) (guard1 (do (guard1 (error "foo")) (error "baz")))) + (test= '(true 42) (guard1 (if true 42 (error "baz")))) + (test= '(false baz) (guard1 (if false 42 (error "baz")))))) (define-test let (let a 10