diff options
-rw-r--r-- | tests/012/struct.tl | 2 | ||||
-rw-r--r-- | tests/common.tl | 21 | ||||
-rw-r--r-- | txr.1 | 4 |
3 files changed, 15 insertions, 12 deletions
diff --git a/tests/012/struct.tl b/tests/012/struct.tl index 88f37e4d..57234913 100644 --- a/tests/012/struct.tl +++ b/tests/012/struct.tl @@ -62,7 +62,7 @@ (test (new foo) #S(foo a 42)) -(set *gensym-counter* 0) +(set *gensym-counter* 4) (stest (expand '(defstruct (boa x y) nil (x 0) (y 0))) "(sys:make-struct-type 'boa '() '()\n \ diff --git a/tests/common.tl b/tests/common.tl index 157cd7e1..9f7e6eb3 100644 --- a/tests/common.tl +++ b/tests/common.tl @@ -3,16 +3,19 @@ (error (cond) :error))) (defmacro vtest (:env env expr expected) - (catch - (let ((expr-expn (expand expr env)) - (expval (gensym))) - ^(let ((,expval ,expected)) - (ifa (not (equal (error-to-sym ,expr-expn) ,expval)) + (if (mequal expected :error '':error) + (catch + (let ((expr-expn (expand expr env))) + ^(ifa (not (equal (error-to-sym ,expr-expn) :error)) (error "test case ~s failed: produced ~s; expected ~s" - ',expr it ,expval)))) - (error (exc) - (unless (eq (eval expected) :error) - (error "test case ~s failed to expand: expected is ~s" expr expected))))) + ',expr it :error))) + (error (exc))) + (let ((expr-expn (expand expr env)) + (expval (gensym))) + ^(let ((,expval ,expected)) + (ifa (not (equal ,expr-expn ,expval)) + (error "test case ~s failed: produced ~s; expected ~s" + ',expr it ,expval)))))) (defmacro test (expr expected) ^(vtest ,expr ',expected)) @@ -33969,8 +33969,8 @@ being the first four elements of an infinite repetition of .verb ;; change characters between angle brackets to upper case. [window-map 1 nil (lambda (x y z) - (if (and (eq x #\<) - (eq z #\>)) + (if (and (eq x #\e<) + (eq z #\e>)) (chr-toupper y) y)) "ab<c>de<f>g"] |