repo.or.cz
/
git.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Git 2.42.2
[git.git]
/
t
/
t4018
/
scheme-define-syntax
blob
7d5e99e0fceb7b0f11af438d24d7ac3b648542ec
1
(define-syntax define-test-suite RIGHT
2
(syntax-rules ()
3
((_ suite-name (name test) ChangeMe ...)
4
(define suite-name
5
(let ((tests
6
`((name . ,test) ...)))
7
(lambda ()
8
(run-suite 'suite-name tests)))))))