From: Andrew Wilcox <schematics-dev@an...> - 2005-05-04 17:40:34
Could you please verify that this test case in test-test.ss from
SchemeUnit version 2.0 is incorrect? I want to ensure that I
understand how the framework works.
"Test setup and teardown on test suite"
(let ((foo 1))
(assert-equal? foo 1)
'setup (set! foo 2)
(assert-equal? foo 2))
'teardown (set! foo 3))
(assert-equal? foo 3)))
MAKE-TEST-SUITE is an ordinary procedure (yes?) and so the
(SET! FOO 2) and (SET! FOO 3) forms are executed immediately. The
test suite and the inner test case aren't ever actually executed.