 
 (deftest println-style-ex
   (let [e (Exception.)]
-    (are [f kw] (with-test-logging [all-levels log-entry]
+    (are [f kw] (with-log
                   (f e "hello" "world")
-                  (= ["clojure.tools.test-logging" kw e "hello world"]
-                     @log-entry))
+                  (logged? "clojure.tools.test-logging" kw e "hello world"))
       trace :trace
       debug :debug
       info :info

      (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 (nil? (log* disabled-logger :debug nil :msg))))))

(deftest log-single-eval
  (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-log
    (let [cnt (atom 0)]
      (logp :debug (str (swap! cnt inc)))
      (logp :debug (str (swap! cnt inc)) :foo)
