mirror of
https://github.com/penpot/penpot.git
synced 2025-02-03 21:09:00 -05:00
46 lines
1.5 KiB
Clojure
46 lines
1.5 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) 2019 Andrey Antukh <niwi@niwi.nz>
|
|
|
|
(ns uxbox.tests.test-services-auth
|
|
(:require
|
|
[clojure.test :as t]
|
|
[promesa.core :as p]
|
|
[uxbox.db :as db]
|
|
[uxbox.services.mutations :as sm]
|
|
[uxbox.tests.helpers :as th]))
|
|
|
|
(t/use-fixtures :once th/state-init)
|
|
(t/use-fixtures :each th/database-reset)
|
|
|
|
(t/deftest failed-auth
|
|
(let [user @(th/create-user db/pool 1)
|
|
event {:username "user1"
|
|
::sm/type :login
|
|
:password "foobar"
|
|
:metadata "1"
|
|
:scope "foobar"}
|
|
out (th/try-on! (sm/handle event))]
|
|
;; (th/print-result! out)
|
|
(let [error (:error out)]
|
|
(t/is (th/ex-info? error))
|
|
(t/is (th/ex-of-type? error :service-error)))
|
|
|
|
(let [error (ex-cause (:error out))]
|
|
(t/is (th/ex-info? error))
|
|
(t/is (th/ex-of-type? error :validation))
|
|
(t/is (th/ex-of-code? error :uxbox.services.mutations.auth/wrong-credentials)))))
|
|
|
|
(t/deftest success-auth
|
|
(let [user @(th/create-user db/pool 1)
|
|
event {:username "user1"
|
|
::sm/type :login
|
|
:password "123123"
|
|
:metadata "1"
|
|
:scope "foobar"}
|
|
out (th/try-on! (sm/handle event))]
|
|
;; (th/print-result! out)
|
|
(t/is (nil? (:error out)))
|
|
(t/is (= (get-in out [:result :id]) (:id user)))))
|