pattern spec

test/expand_test.clj

@@ -18,11 +18,11 @@
            (sut/nearest ['x #{0 1 2}]
                         [#{0} #{0 1} #{0 3}]))))
 
-(t/deftest parse-pattern-test
+(t/deftest pattern-spec
   (t/testing "list"
     (t/are [l e t x] (= [l e t]
                         ((juxt :leading :ellipsis :trailing)
-                         (sut/parse-pattern x)))
+                         (s/conform ::pattern x)))
       nil nil nil '()
       '(a) nil nil '(a)
       '(a b) nil nil '(a b)