8 lines
252 B
Text
8 lines
252 B
Text
(define-syntax define-test-suite RIGHT
|
|
(syntax-rules ()
|
|
((_ suite-name (name test) ChangeMe ...)
|
|
(define suite-name
|
|
(let ((tests
|
|
`((name . ,test) ...)))
|
|
(lambda ()
|
|
(run-suite 'suite-name tests)))))))
|