You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

8 lines
252 B

(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)))))))