mirror of
https://github.com/heyarne/airsonic-ui.git
synced 2026-05-07 02:33:39 +02:00
Implement set-current-track
This commit is contained in:
parent
b529b2fabe
commit
4043eb48e7
6 changed files with 67 additions and 32 deletions
|
|
@ -2,27 +2,11 @@
|
|||
(:require [cljs.test :refer [deftest testing is]]
|
||||
[airsonic-ui.audio.playlist :as playlist]
|
||||
[airsonic-ui.fixtures :as fixtures]
|
||||
[airsonic-ui.test-helpers :as helpers]
|
||||
[debux.cs.core :refer-macros [dbg]]))
|
||||
[airsonic-ui.test-helpers :refer [song song-queue]]
|
||||
#_[debux.cs.core :refer-macros [dbg]]))
|
||||
|
||||
(enable-console-print!)
|
||||
|
||||
(defn- song []
|
||||
(hash-map :id (rand-int 9999)
|
||||
:coverArt (rand-int 9999)
|
||||
:year (+ 1900 (rand-int 118))
|
||||
:artist (helpers/rand-str)
|
||||
:artistId (rand-int 100000)
|
||||
:title (helpers/rand-str)
|
||||
:album (helpers/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))))
|
||||
|
||||
(def fixture
|
||||
{:audio {:current-song fixtures/song
|
||||
:playlist (song-queue 20)
|
||||
|
|
|
|||
|
|
@ -1,10 +1,29 @@
|
|||
(ns airsonic-ui.components.audio-player.events-test
|
||||
(:require [cljs.test :refer-macros [deftest testing is]]
|
||||
[airsonic-ui.test-helpers :refer [dispatches?]]
|
||||
[airsonic-ui.audio.core :as audio]
|
||||
[airsonic-ui.audio.playlist :as playlist]
|
||||
[airsonic-ui.fixtures :as fixtures]
|
||||
[airsonic-ui.test-helpers :refer [dispatches? song-queue]]
|
||||
[airsonic-ui.components.audio-player.events :as events]))
|
||||
|
||||
|
||||
(deftest song-has-ended
|
||||
(testing "Should play the next song when current song has ended"
|
||||
(is (not (dispatches? (events/audio-update {} [:audio/update {:ended? false}]) :audio-player/next-song)))
|
||||
(is (dispatches? (events/audio-update {} [:audio/update {:ended? true}]) :audio-player/next-song))))
|
||||
|
||||
(deftest changing-current-song
|
||||
(testing "Should correctly set the current song index"
|
||||
(doseq [playback-mode [:linear :shuffled]
|
||||
repeat-mode [:repeat-none :repeat-single :repeat-all]]
|
||||
(let [n-songs 100
|
||||
next-idx (rand-int n-songs)
|
||||
fixture {:db {:credentials fixtures/credentials
|
||||
:audio {:current-playlist (playlist/->playlist (song-queue n-songs) :playback-mode playback-mode :repeat-mode repeat-mode)}}}
|
||||
effects (events/set-current-song fixture [:audio/set-current-song next-idx])]
|
||||
(is (= next-idx
|
||||
(-> (:db effects)
|
||||
(audio/summary [:audio/summary])
|
||||
(audio/current-playlist [:audio/current-playlist])
|
||||
(:current-idx)))
|
||||
(str "for playback-mode " playback-mode " and repeat-mode " repeat-mode))
|
||||
(is (contains? effects :audio/play))))))
|
||||
|
|
|
|||
|
|
@ -17,3 +17,19 @@
|
|||
(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))))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue