                               (? [:d Z] :as Z)]
                              [a c C Z])
               two-data))))
-  #_(t/testing "Fall back to given default value."
+  (t/testing "Fall back to given default value."
     (t/is (= ["a" "C" "C" 42]
              ((p/map-matcher [(:kind #"two")
                               (? :a :as a)


  (t/testing "optional clauses"

    #_(t/is (= (p/make-optional-key-exists-with-binding-clause :k "Binding")
             (p/parse-clause (? :k :as Binding))))

    (t/is (= (p/make-optional-path-exists-with-binding-clause [:k "bar" "baz"] "Binding")

    (t/is (= ["d"] ((p/map-matcher [([:a b c] "d" :as z)] [z]) {:a { "b" {"c" "d"}}})))))

(t/deftest map-matcher-optional-test
  (t/testing "Optional values"
    (t/is (= ["a" "c" "C" 42]
             ((p/map-matcher [(:kind #"two")
                              (? :a :as a)
