                  ["My info"
                   "My warn"
                   "My normal output"])))
-
-;;;; ___________________________________________________________________________
-;;;; ---- canonicalise-line-endings ----
-
-(defn canonicalise-line-endings [s]
-  (str/replace s "\r\n" "\n"))
-
-;;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
-(fact "`canonicalise-line-endings` works"
-  (fact (canonicalise-line-endings "a\nb\r\nc\rd") => "a\nb\nc\rd"))
 
 ;;;; ___________________________________________________________________________
 ;;;; ---- chan->seq ----

            [midje.sweet :refer :all]
            [slingshot.slingshot :as slingshot :refer [throw+ try+]]
            [taoensso.timbre :as timbre]))

;;;; ___________________________________________________________________________
;;;; ---- with-ignore-logging ----

;;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

(defn ^:private do-test-logging []
  (canonicalise-line-endings
   (with-out-str
     (with-test-log-config {}
       (timbre/info  "My info")
       (timbre/warn  "My warn")
       (print "My normal output")))))

(fact "`with-ignore-logging` works"
  
