st/fail-on-extra-keys-transformer does not work?

[miikka]

I'd expect st/explain to reply Success!, but it fails instead:

(require '[clojure.spec.alpha :as s] '[spec-tools.core :as st] '[spec-tools.data-spec :as ds])
(s/def ::bar (ds/spec {:name ::bar, :spec {:foo int?}}))
(st/explain ::bar {:foo 123} st/fail-on-extra-keys-transformer)
;; => {:foo 123} - failed: (keys :req-un [:user$bar/foo]) spec: :user/bar

It fails with non-data specs as well:

(s/def ::quux (st/spec (s/keys :req-un [::foo])))
(st/explain ::quux {:foo 123} st/fail-on-extra-keys-transformer)
;; => {:foo 123} - failed: (keys :req-un [:user/foo]) spec: :user/quux

[miikka]

Probably broken since 0.8.0 where :keys was renamed to ::parse/keys.