also-fails.clj

; fails

(defn calls-callback [callback]
  (fn [thing] (callback thing)))

(defn callback [a] (print a))

(fact "calls-callback can be mocked to check the callback is called"
      (let [closed (calls-callback callback)]
        (closed 1) => anything
        (provided (callback 1) => ...ignored... :times 1)))

calls-callback.clj

; fails

(defn calls-callback [callback]
  (fn [thing] (callback thing)))

(fact "calls-callback can be mocked to check the callback is called"
      (let [closed (calls-callback ...callback...)]
        (closed 1) => anything
        (provided (...callback... 1) => ...ignored... :times 1)))

; passes
(fact "calls-callback can be mocked to check the callback is called"
      ((calls-callback ...callback...) 1) => anything
      (provided (...callback... 1) => ...ignored... :times 1))