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