t/t4018/scheme-define-syntax


1
2
3
4
5
6
7
8

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