summaryrefslogtreecommitdiffstats
path: root/t/t4018/scheme-define-syntax
diff options
context:
space:
mode:
Diffstat (limited to 't/t4018/scheme-define-syntax')
-rw-r--r--t/t4018/scheme-define-syntax8
1 files changed, 8 insertions, 0 deletions
diff --git a/t/t4018/scheme-define-syntax b/t/t4018/scheme-define-syntax
new file mode 100644
index 0000000..7d5e99e
--- /dev/null
+++ b/t/t4018/scheme-define-syntax
@@ -0,0 +1,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)))))))