scheme-define-syntax « t4018 « t - git.kernel.org/pub/scm/git/git.git - Unnamed repository; edit this file 'description' to name the repository.

Welcome to mirror list, hosted at ThFree Co, Russian Federation.

scheme-define-syntax « t4018 « t - git.kernel.org/pub/scm/git/git.git - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/t/t4018/scheme-define-syntax

blob: 7d5e99e0fceb7b0f11af438d24d7ac3b648542ec (plain)

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