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

I'll look into this.

Thanks,
Noel

--- Chris Wright <chris.wright at southernhealth.org.au>
wrote:

> So, I've got this simple file:
> 
> (require (planet "test.ss" ("schematics" "schemeunit.plt"
> 2 2)))
> 
> (define foo-test
>   (test-suite
>    "Suite name"
>    #:before (lambda () (display "before"))
>    #:after (lambda () (display "after"))
>    (test-case
>      "Foo"
>      (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
> 0
> >
> 
> 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!
> 
> cheers
> 
> Chris

Email: noelwelsh <at> yahoo <dot> com   noel <at> untyped <dot> com
AIM: noelhwelsh
Blogs: http://monospaced.blogspot.com/  http://www.untyped.com/untyping/

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com