 
   (t/testing "optional clauses"
 
-    #_(t/is (= (p/make-optional-key-exists-with-binding-clause :k "Binding")
+    (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")

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

                   "W" {"foo" "bar"}}}))))
  (t/testing "More optionals"
    ;; key match with binding
    (t/is (= [nil] ((p/map-matcher [(? :a :as a)] [a]) {})))
    (t/is (= ["a"] ((p/map-matcher [(? :a :as a)] [a]) {:a "a"})))
    ;; key match with default value with binding
    (t/is (= ["A"] ((p/map-matcher [(? :a "A" :as a)] [a]) {})))
