test/expand_test.clj

@@ -114,7 +114,11 @@
     '((b ...) ...)
     '((1 2) (3 4))
 
-    {} '_ 123))
+    {} '_ 123)
+  (t/testing "non-matches"
+    (t/are [pattern datum] (= nil (sut/unify pattern datum))
+      '(a b c) '(1 2)
+      '(a b c) '(1 2))))
 
 (t/deftest transcribe-test
   (t/are [result datum pattern template]