gistfile1.clj

(deftest using-hooke
  (let [count (atom 0)]

    (defn log-create [f & args]
      (let [result (apply f args)]
        (when (= Company (first args))
          (swap! count inc))
        result))

    (add-hook #'create log-create)

    (try
      (create Company {:name "Dell"})
      (expect @count => 1)
      (finally
       (remove-hook #'create log-create)))))