test/expand/syntax_rules_test.clj

@@ -20,7 +20,7 @@
            (sut/unify* '(x y) '(1 2 3))))
   (t/is (= nil
            (sut/unify* '((x y) ...)
-                  '((1 2) (1 2 3)))))
+                       '((1 2) (1 2 3)))))
   (t/is (= '{x (1 2 3)}
            (sut/unify* 'x '(1 2 3))))
   (t/is (= '{x [:ellipsis (1 2 3)]}
@@ -33,7 +33,7 @@
   (t/is (= '{x [:ellipsis (1 3)]
              y [:ellipsis (2 4)]}
            (sut/unify* '((x y) ...)
-                  '((1 2) (3 4))))))
+                       '((1 2) (3 4))))))
 
 (t/deftest transcribe-test
   (t/is (= 123
@@ -41,4 +41,8 @@
   (t/is (= 4
            (sut/transcribe* 'x '(x y) '(4 5))))
   (t/is (= '(3 2 1)
-           (sut/transcribe* '(z y x) '(x y z) '(1 2 3)))))
+           (sut/transcribe* '(z y x) '(x y z) '(1 2 3))))
+  (t/is (= '(1 3 6)
+           (sut/transcribe* '(x ...)
+                             '((x _ ...) ...)
+                             '((1 2) (3 4 5) (6 7 8 9))))))