add faling tests for SRFI 139 #210

jcubic · Jan 14, 2024 · e416c32 · e416c32
1 parent 15fd687
commit e416c32
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/tests/syntax.scm b/tests/syntax.scm
@@ -1094,3 +1094,26 @@
                 (foo x y)
                 (list x y))
               '(1 2))))
+
+(test.failing "syntax: syntax-parameterize SRFI 139"
+      (lambda (t)
+        (define-syntax aif
+          (syntax-rules (aux)
+            ((_ aux test x y ...)
+             (let ((value test))
+               (syntax-parameterize
+                ((it (syntax-rules ()
+                       ((it) value))))
+                (if value
+                    x
+                    y ...))))
+            ((_ test true)
+             (aif aux test true))
+            ((_ test true false)
+             (aif aux test true false))))
+
+        (let ((alist '((foo . 10) (bar . 20))))
+          (it.s (aif (assoc 'foo alist) (cdr (it)))
+                10)
+          (t.is (aif (assoc 'x alist) (cdr (it)))
+                (if #f #f)))))