mirror of
https://github.com/heyarne/airsonic-ui.git
synced 2026-05-07 10:43:39 +02:00
35 lines
1.1 KiB
Clojure
35 lines
1.1 KiB
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))]
|
|
(boolean (some #(= ev (if (vector? ev) % (first %))) all-events))))
|
|
|
|
(defn rand-str
|
|
"Generates a random string; ported from https://stackoverflow.com/a/27747377/2345852"
|
|
([] (rand-str 40))
|
|
([len]
|
|
(let [arr (js/Uint8Array. (/ len 2))]
|
|
(.. js/window -crypto (getRandomValues arr))
|
|
(.. js/Array
|
|
(from arr #(-> (str 0 (.toString % 16))
|
|
(.substr -2)))
|
|
(join "")))))
|
|
|
|
(defn song []
|
|
(hash-map :id (rand-int 9999)
|
|
:coverArt (rand-int 9999)
|
|
:year (+ 1900 (rand-int 118))
|
|
:artist (rand-str)
|
|
:artistId (rand-int 100000)
|
|
:title (rand-str)
|
|
:album (rand-str)))
|
|
|
|
(defn song-queue
|
|
"Generates a seq of n different songs"
|
|
[n]
|
|
(let [r-int (atom 0)]
|
|
(with-redefs [rand-int #(mod (swap! r-int inc) %1)]
|
|
(repeatedly n song))))
|