near/airsonic-ui
1
0
Fork 0
mirror of https://github.com/heyarne/airsonic-ui.git synced 2026-05-06 18:33:38 +02:00
Code Issues Projects Releases Wiki Activity

Add tests for helper functions

Browse source
This commit is contained in:
Arne Schlüter 2018-07-16 12:29:26 +02:00
commit 84450479ae
3 changed files with 26 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/cljs/airsonic_ui/test_helpers.cljs Normal file
View file

@ -0,0 +1,8 @@
(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)))