unifyish

test/expand_test.clj

@@ -28,9 +28,12 @@
       '(a b) nil nil '(a b)
       '(a) 'b nil '(a b ...)
       '(a) 'b '(c) '(a b ... c)
-      '(a) 'b '(c d) '(a b ... c d)))
+      '(a) 'b '(c d) '(a b ... c d))
+    (t/are [p] (s/invalid? ::pattern p)
+      '... '(...) '(... a b c)
+      '(a ... b ...)))
   (t/testing "simple data"
-    (t/is (= 'a (sut/parse-pattern 'a)))))
+    (t/is (= 'a (sut/conform ::patern 'a)))))
 
 (t/deftest expand-test
   (t/testing "unbound symbol"
@@ -81,3 +84,8 @@
                   '(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))