       (is (nil? (log* disabled-logger :debug nil :msg))))))
 
 (deftest log-single-eval
-  (with-test-logging []
+  (with-log
     (let [cnt (atom 0)]
       (log :debug (swap! cnt inc))
       (log :debug (Exception. (str (swap! cnt inc))) (swap! cnt inc))
       (is (== 3 @cnt)))))
 
 (deftest logp-single-eval
-  (with-test-logging []
+  (with-log
     (let [cnt (atom 0)]
       (logp :debug (str (swap! cnt inc)))
       (logp :debug (str (swap! cnt inc)) :foo)

      (is (== 6 @cnt)))))

(deftest log-msg
  (with-test-logging [#{:debug} log-entry]
    (log :debug "foo")
    (is (= ["clojure.tools.test-logging"
            :debug
            nil
            "foo"]
           @log-entry))))

(deftest log-ex
  (with-test-logging [#{:debug} log-entry]
    (let [e (Exception.)]
      (log :debug e "foo")
      (is (= ["clojure.tools.test-logging"
              :debug
              e
              "foo"]
             @log-entry)))))

(deftest log-custom-ns
  (with-test-logging [#{:debug} log-entry]
    (let [e (Exception.)]
      (log "other.ns" :debug e "foo")
      (is (= ["other.ns"
              :debug
              e
              "foo"]
             @log-entry)))))

(def all-levels #{:trace :debug :info :warn :error :fatal})
(def default-tx-agent-levels #{:info :warn})

      (is (== 6 @cnt)))))

(deftest logf-single-eval
  (with-log
    (let [cnt (atom 0)]
      (logf :debug (str (swap! cnt inc)))
      (logf :debug (str (swap! cnt inc)) :foo)
