            {:type      :pass
             :message   ~msg
             :expected  '~form
-            :actual    '~form})))))+            :actual    '~form})))))


(defn atom-logger
  "A logger factory that logs output to the supplied atom"
  ([output-atom] (atom-logger false))
  ([output-atom debug]
   (reify impl/LoggerFactory
     (name [_] "test factory")


(defn atom-appender
  "Creates a log4j appender that writes log messages to the supplied atom"
  ([output-atom] (atom-appender output-atom false))
  ([output-atom debug]
   (proxy [AppenderSkeleton] []
     (append [logging-event]
