basic transcription

test/expand_test.clj

@@ -104,3 +104,18 @@
                   '(syntax-rules
                     ()
                     ((m) 123)))))
+
+(t/deftest unify-test
+  (t/are [result pattern datum] (= result (sut/unify pattern datum))
+    {'a 123 'b 456} '(a b) '(123 456)
+    nil '(a b) 123
+
+    '{b [:ellipsis ([:ellipsis (1 2)] [:ellipsis (3 4)])]}
+    '((b ...) ...)
+    '((1 2) (3 4))
+
+    {} '_ 123)
+  (t/testing "non-matches"
+    (t/are [pattern datum] (= nil (sut/unify pattern datum))
+      '(a b c) '(1 2)
+      '(a b c) '(1 2))))