git.ipfire.org Git - thirdparty/git.git/blob - t/t4018/scheme-define-syntax

]> git.ipfire.org Git - thirdparty/git.git/blob - t/t4018/scheme-define-syntax

projects / thirdparty / git.git / blob

summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD

[thirdparty/git.git] / t / t4018 / scheme-define-syntax

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

Unnamed repository; edit this file 'description' to name the repository.