diff options
Diffstat (limited to 'tests/common.tl')
| -rw-r--r-- | tests/common.tl | 41 |
1 files changed, 21 insertions, 20 deletions
diff --git a/tests/common.tl b/tests/common.tl index dbd4ef24..e6697f47 100644 --- a/tests/common.tl +++ b/tests/common.tl @@ -9,26 +9,27 @@ (if-match (quote @(as sym @(or :error :warning))) expected (set expected sym)) (if *compile-test* - (if (meq expected :error :warning) - (with-gensyms (code) - ^(let ((,code (catch - (compile-toplevel ',expr) - (error (exc) - (if (eq ,expected :warning) - (error "test case ~s produced error during compilation, expected ~s" - ',expr ,expected))) - (warning (exc) - (if (eq ,expected :error) - (error "test case ~s warned during compilation, expected ~s" - ',expr ,expected)))))) - (ifa (not (equal (error-to-sym (call ,code)) ,expected)) - (error "test case ~s failed: produced ~s; expected ~s" - ',expr it ,expected)))) - (with-gensyms (expval) - ^(let ((,expval ,expected)) - (ifa (not (equal (call (compile-toplevel ',expr)) ,expval)) - (error "test case ~s failed: produced ~s; expected ~s" - ',expr it ,expval))))) + (with-compile-opts (nil unused) + (if (meq expected :error :warning) + (with-gensyms (code) + ^(let ((,code (catch + (compile-toplevel ',expr) + (error (exc) + (if (eq ,expected :warning) + (error "test case ~s produced error during compilation, expected ~s" + ',expr ,expected))) + (warning (exc) + (if (eq ,expected :error) + (error "test case ~s warned during compilation, expected ~s" + ',expr ,expected)))))) + (ifa (not (equal (error-to-sym (call ,code)) ,expected)) + (error "test case ~s failed: produced ~s; expected ~s" + ',expr it ,expected)))) + (with-gensyms (expval) + ^(let ((,expval ,expected)) + (ifa (not (equal (call (compile-toplevel ',expr)) ,expval)) + (error "test case ~s failed: produced ~s; expected ~s" + ',expr it ,expval)))))) (if (meq expected :error :warning) (catch (let ((expr-expn (expand expr env))) |