From 9558f566a78a45852c971f6a7dd454dfb3146ef9 Mon Sep 17 00:00:00 2001 From: Jakub Jankiewicz <jcubic@onet.pl> Date: Fri, 3 May 2024 01:12:19 +0200 Subject: [PATCH] add unit tests #360 --- tests/syntax.scm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/tests/syntax.scm b/tests/syntax.scm index d42cdae5..4423c3ee 100644 --- a/tests/syntax.scm +++ b/tests/syntax.scm @@ -1626,3 +1626,17 @@ (begin (lambda () (throw 'ZONK)))) (awhen (assoc 'bar alist) "msg")) "msg"))) + +(test "syntax: improper pattern" + (lambda (t) + (define-syntax f + (syntax-rules () + ((f a ... x . y) + (let ((output (vector))) + (begin + (begin + (output.push (list a x y))) ...) + output)))) + + (t.is (f 10 20 30 'a 'b) + #((10 b ()) (20 b ()) (30 b ()) (a b ())))))