please verify incorrect test case in test-test.ss

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.

     (make-test-case
      "Test setup and teardown on test suite"
      (let ((foo 1))
        (assert-equal? foo 1)
        (make-test-suite
         'setup (set! foo 2)
         (make-test-case
          "Test foo"
          (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.

Thanks,

Andrew


-------------------------------------------------------
This SF.Net email is sponsored by: NEC IT Guy Games.
Get your fingers limbered up and give it your best shot. 4 great events, 4
opportunities to win big! Highest score wins.NEC IT Guy Games. Play to
win an NEC 61 plasma display. Visit http://www.necitguy.com/?r=20