@leroysheep / CrazyWebTemps
Code Commits Pulls CI/CD 81,348
maint
bisect jch maint master next seen test todo
text 8 lines 252 Bytes
Raw
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)))))))