It seems, that make-test-suite+ can be further simplified
[(_ suite-name setup teardown test ...)
(let make-suite-proc ([a-suit-name suite-name]
[a-setup (lambda () setup)]
[a-teardown (lambda () teardown)]
[tests (list test ...)])
[($ test-case name action)
(make-test-case name (action) (a-setup) (a-teardown))]
[($ test-suite name tests) ;;; apply setup/teardown
(make-suite-proc name a-setup a-teardown tests)]))
The person whose clothes are extremely fine I am too apt to consider
as not being possessed of any superiority of fortune, but resembling
those Indians who are found to wear all the gold they have in the
world in a bob at the nose.
-- Oliver Goldsmith
Get latest updates about Open Source Projects, Conferences and News.