[plt-scheme] SRFI 64 in plt-scheme

From: Chongkai Zhu (czhu at cs.utah.edu)
Date: Sun Sep 30 20:26:10 EDT 2007


Joseph Holsten wrote:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> Being a novice, I may have screwed this up myself. Knowing that, I 
> can't seem to use (test-group) when using sfri-64.
>
> This works fine:
> (test-begin "Truthiness")
> (test-eqv 1 (- (+ 1 1) 1))
> (test-end "Truthiness")
>
> But this doesn't seem to work:
> (test-group "Truthiness"
>   (test-eqv 1 (- (+ 1 1) 1)))
>
> With much ignorance, I copied and adapted some code in testing.ss into 
> the following:
> (define-syntax test-group
>   (syntax-rules ()
>     ((test-group suite-name . body)
>      (dynamic-wind
>       (lambda () (test-begin suite-name))
>       (lambda () . body)
>       (lambda () (test-end  suite-name))))))
>
> Of course, I stripped out half of the functionality to make it work.
>
> Is this a bug that can be fixed another way?
>
>

Thanks for the report. It is a bug: test-group is defined but not 
exported in the module. I will fix it.

Chongkai


Posted on the users mailing list.