We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 01c7e5b commit e304a8dCopy full SHA for e304a8d
1 file changed
src/provisdom/test/core.cljc
@@ -90,7 +90,7 @@
90
"Enables instrumentation for `sym-or-syms` while executing `body`. Once `body`
91
has completed, unstrument will be called."
92
[sym-or-syms & body]
93
- (let [sym-or-syms (if (= :all sym-or-syms) `:all sym-or-syms)]
+ (let [sym-or-syms (if (= :all sym-or-syms) `(st/instrumentable-syms) sym-or-syms)]
94
`(with-instrument* ~[sym-or-syms] ~@body)))
95
96
#?(:clj (defn instrumentation
@@ -101,7 +101,7 @@
101
[{:keys [instrument]}]
102
(let [syms (cond
103
(coll? instrument) instrument
104
- (= instrument :all) :all
+ (= instrument :all) (st/instrumentable-syms)
105
:else (throw (ex-info "Instrument must be passed a collection of symbols or :all"
106
{:instrument instrument})))
107
unstrument-syms (set (filter (complement function-instrumented?) syms))
0 commit comments