Author: yamakenz
Date: Sat Sep 8 06:25:24 2007
New Revision: 4945
Modified:
sigscheme-trunk/lib/unittest.scm
Log:
* lib/unittest.scm
- (test-error): Fix non-toplevel expr evaluation
Modified: sigscheme-trunk/lib/unittest.scm
==============================================================================
--- sigscheme-trunk/lib/unittest.scm (original)
+++ sigscheme-trunk/lib/unittest.scm Sat Sep 8 06:25:24 2007
@@ -294,7 +294,9 @@
(let-optionals* (reverse (cons first rest)) ((expr #f)
(err-type #t)
(tname '(test-name)))
- `(assert-error ,tname (lambda () ,expr)))))
+ `(assert-error ,tname
+ (lambda ()
+ (eval ',expr (interaction-environment)))))))
(define test-read-eval-string
(lambda (str)
