summaryrefslogtreecommitdiff
path: root/t/t4018/scheme-user-defined-define
diff options
context:
space:
mode:
Diffstat (limited to 't/t4018/scheme-user-defined-define')
-rw-r--r--t/t4018/scheme-user-defined-define6
1 files changed, 6 insertions, 0 deletions
diff --git a/t/t4018/scheme-user-defined-define b/t/t4018/scheme-user-defined-define
new file mode 100644
index 0000000000..35fe7cc9bf
--- /dev/null
+++ b/t/t4018/scheme-user-defined-define
@@ -0,0 +1,6 @@
+(define-test-suite record\ case-tests RIGHT
+ (record-case-1 (lambda (fail)
+ (let ((a (make-foo 1 2)))
+ (record-case a
+ ((bar x) (ChangeMe))
+ ((foo a b) (+ a b)))))))