disable test from srfi-46 #43

jcubic · Aug 22, 2020 · f2f70ed · f2f70ed
1 parent 27f0db9
commit f2f70ed
Showing 1 changed file with 11 additions and 3 deletions.
diff --git a/tests/syntax.scm b/tests/syntax.scm
@@ -360,9 +360,17 @@
                         (f :::)))
         (t.is result '((1) 2 (3) (4)))))
 
-;; (test "syntax-rules: method caller (srfi-46)"
-;;       (lambda (t)
-;;
+(test_ "syntax-rules: elipsis in middle of pattern (srfi-46)"
+      (lambda (t)
+
+        (define result (let-syntax
+                          ((foo (syntax-rules ()
+                                  ((foo ?x ?y ... ?z)
+                                   (list ?x (list ?y ...) ?z)))))
+                        (foo 1 2 3 4 5)))
+
+        (t.is result '(1 (2 3 4) 5))))
+
 
 (test "syntax-rules: rec macro (srfi-31)"
       (lambda (t)