mirror of
https://github.com/metosin/reitit.git
synced 2026-01-15 18:59:51 +00:00
15 lines
497 B
Clojure
15 lines
497 B
Clojure
(ns reitit.frontend.test-utils)
|
|
|
|
(defn capture-console [f]
|
|
(let [messages (atom [])
|
|
original-console-warn js/console.warn
|
|
log (fn [t & message]
|
|
(swap! messages conj {:type t
|
|
:message message}))
|
|
value (try
|
|
(set! js/console.warn (partial log :warn))
|
|
(f)
|
|
(finally
|
|
(set! js/console.warn original-console-warn)))]
|
|
{:value value
|
|
:messages @messages}))
|