mirror of
https://github.com/heyarne/airsonic-ui.git
synced 2026-05-06 18:33:38 +02:00
8 lines
346 B
Clojure
8 lines
346 B
Clojure
(ns airsonic-ui.test-helpers)
|
|
|
|
(defn dispatches?
|
|
"Helper to see whether an event is dispatched in a coeffect; `ev` can either
|
|
be a whole vector or a keyword which is interpreted as the event name."
|
|
[cofx ev]
|
|
(let [all-events (conj (get cofx :dispatch-n []) (:dispatch cofx))]
|
|
(some #(= ev (if (vector? ev) % (first %))) all-events)))
|