[plt-scheme] problem with schemeunit #:before / #:after not working

From: Chris Wright (chris.wright at southernhealth.org.au)
Date: Wed Oct 25 07:18:20 EDT 2006

So, I've got this simple file:

(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 2)))

(define foo-test
   "Suite name"
   #:before (lambda () (display "before"))
   #:after (lambda () (display "after"))
     (check = 1 1))))

(require (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2)))

(test/text-ui foo-test 'verbose)

the test-suite is copied from the HelpDesk entry on schemeunit

Then execute:

Welcome to DrScheme, version 350.
Language: Pretty Big (includes MrEd and Advanced Student).
1 success(es) 0 failure(s) 0 error(s) 1 test(s) run

corrrect test output, and correct return value, but I can't get the
before / after stuff to work.

I would be grateful for some pointers!



Posted on the users mailing list.