24 lines
1002 B
Clojure
24 lines
1002 B
Clojure
(ns beherbergung.resolver.login-test
|
|
(:require [clojure.test :refer [use-fixtures deftest is]]
|
|
[mount.core :as mount]
|
|
[beherbergung.resolver.core :refer [graphql]]
|
|
[beherbergung.auth.jwt.login :refer [jwt->id]]))
|
|
|
|
(def mail "praxis@max.mueller.de")
|
|
(def password "i!A;z\\\"'^G3Q)w])%83)")
|
|
|
|
(use-fixtures :once (fn [testcases] (mount/stop) (mount/start) (testcases) (mount/stop)))
|
|
|
|
(deftest correct-login
|
|
(let [response (graphql {:query "query x($auth: Auth) { login(auth: $auth){ jwt } }"
|
|
:variables {:auth {:mail mail :password password}}})
|
|
jwt (get-in response [:data :login :jwt])]
|
|
(is (string? jwt))
|
|
(is (= "login_max_mueller" (jwt->id jwt)))))
|
|
|
|
(deftest wrong-login
|
|
(let [response (graphql {:query "query x($auth: Auth) { login(auth: $auth){ jwt } }"
|
|
:variables {:auth {:mail mail :password "wrong"}}})
|
|
jwt (get-in response [:data :login :jwt])]
|
|
(is (nil? jwt))))
|