mirror of
https://github.com/git/git
synced 2024-10-30 14:03:28 +00:00
9 lines
252 B
Text
9 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)))))))
|