add unit tests #360

LIPS-scheme · May 2, 2024 · 9558f56 · 9558f56
1 parent f7e0f74
commit 9558f56
Showing 1 changed file with 14 additions and 0 deletions.
diff --git 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 ())))))