gistfile1.clj

(defn one-time-setup []
  (println "one time setup"))

(defn one-time-teardown []
  (println "one time teardown"))

(defn once-fixture [f]
  (one-time-setup)
  (println (type f))
  (f)
  (one-time-teardown))


(defn setup []
  (println "setup"))

(defn teardown []
  (println "teardown"))

(defn each-fixture [f]
  (setup)
  (println (type f))
  (f)
  (teardown))

(use-fixtures :once once-fixture)
(use-fixtures :each each-fixture)