mirror of
https://github.com/heyarne/airsonic-ui.git
synced 2026-05-07 10:43:39 +02:00
Arne Schlüter
149fd07566* Use rf instead of re-frame * Add bulma modal component * Add option to toggle a modal * Add rudimentary keyboard shortcuts; closes #41
36 lines
2 KiB
Clojure
36 lines
2 KiB
Clojure
(ns bulma.modal-test
|
|
(:require [cljs.test :refer-macros [deftest testing is]]
|
|
[bulma.modal.subs :as sub]
|
|
[bulma.modal.events :as ev]))
|
|
|
|
(enable-console-print!)
|
|
|
|
(deftest bulma-modals
|
|
(testing "Should create a collection of modals if there is none"
|
|
(let [new-db (ev/show-modal {} [::ev/show :some-modal-id])]
|
|
(is (= :some-modal-id (sub/visible-modal new-db [::sub/visible-modal])))))
|
|
(testing "Should hide other modals when displaying a new one"
|
|
(let [modal-ids [:some-id-1 :some-id-2 :some-id-3]
|
|
new-db (reduce (fn [db modal-id]
|
|
(ev/show-modal db [::ev/show modal-id]))
|
|
{} modal-ids)]
|
|
(is (= :some-id-3 (sub/visible-modal new-db [::sub/visible-modal])))))
|
|
(testing "Should remove a modal from the collection when we hide it"
|
|
(let [modal-ids [:some-id-1 :some-id-2 :some-id-3]
|
|
new-db (-> (reduce (fn [db modal-id]
|
|
(ev/show-modal db [::ev/show modal-id]))
|
|
{} modal-ids)
|
|
(ev/hide-modal [::ev/hide]))]
|
|
(is (not (some? (sub/visible-modal new-db [::sub/visible-modal]))))))
|
|
(testing "Should tell us about the visibility of a modal with a predicate"
|
|
(is (true? (-> (ev/show-modal {} [::ev/show :getting-repetitive])
|
|
(sub/visible-modal [::sub/visible-modal])
|
|
(sub/visible? [::sub/visible? :getting-repetitive])))))
|
|
(testing "Modal toggling"
|
|
(is (true? (-> (ev/toggle-modal {} [::ev/toggle :some-generic-modal])
|
|
(sub/visible-modal [::sub/visible-modal])
|
|
(sub/visible? [::sub/visible? :some-generic-modal]))))
|
|
(is (not (true? (-> (ev/toggle-modal {} [::ev/toggle :some-generic-modal])
|
|
(ev/toggle-modal [::ev/toggle :some-generic-modal])
|
|
(sub/visible-modal [::sub/visible-modal])
|
|
(sub/visible? [::sub/visible? :some-generic-modal])))))))
|