Add tests for helper functions

test/cljs/airsonic_ui/events_test.cljs

@@ -1,6 +1,7 @@
 (ns airsonic-ui.events-test
   (:require [cljs.test :refer [deftest testing is]]
             [clojure.string :as str]
+            [airsonic-ui.test-helpers :refer [dispatches?]]
             [airsonic-ui.fixtures :refer [responses]]
             [airsonic-ui.db :as db]
             [airsonic-ui.routes :as routes]
@@ -8,18 +9,6 @@
 
 (enable-console-print!)
 
-(into [] (conj [[:foo :bar :baz]] nil))
-
-(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 (or (:dispatch-n cofx) []) (:dispatch cofx))]
-    (some #(if (vector? ev)
-             (= ev %)
-             (= ev (first %)))
-          all-events)))
-
 (deftest session-restoration
   (letfn [(no-previous-session []
             (events/restore-previous-session {} [:_]))