mirror of
https://github.com/heyarne/airsonic-ui.git
synced 2026-05-06 18:33:38 +02:00
29 lines
1.3 KiB
Clojure
29 lines
1.3 KiB
Clojure
(ns airsonic-ui.events-test
|
|
(:require [cljs.test :refer [deftest testing is]]
|
|
[clojure.string :as str]
|
|
[airsonic-ui.events :as events]))
|
|
|
|
(enable-console-print!)
|
|
|
|
(deftest authentication
|
|
(testing "Credential verification"
|
|
(let [server "https://localhost"
|
|
fx (events/authenticate {:db {}} [:_ "user" "pass" server])
|
|
request (:http-xhrio fx)]
|
|
(testing "uses correct server url"
|
|
(is (str/starts-with? (:uri request) server))
|
|
(is (str/includes? (:uri request) "/ping")))
|
|
(testing "saves the given server location"
|
|
(is (= server (get-in fx [:db :credentials :server]))))
|
|
(testing "invokes correct success callback"
|
|
(is (= ::events/credentials-verified (first (:on-success request)))))))
|
|
(testing "On succesfull response"
|
|
(let [fx (events/credentials-verified {:db {}} [:_ "user" "pass"])
|
|
credentials {:u "user" :p "pass"}]
|
|
(testing "credentials are sent to the router for access rights"
|
|
(is (= credentials (:routes/set-credentials fx))))
|
|
(testing "credentials are saved in the global state"
|
|
(is (= credentials (-> (get-in fx [:db :credentials])
|
|
(select-keys [:u :p])))))
|
|
(testing "the login process is finalized"
|
|
(is (= [::events/logged-in] (:dispatch fx)))))))
|