notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

made user test pass.

Browse Source
This commit is contained in:
Bryce Covert
2023-03-24 14:45:15 -07:00
parent 5b694cec63
commit 1057a263a9
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
test/clj/auto_ap/integration/graphql/users.clj
View File

@@ -6,7 +6,7 @@
[auto-ap.integration.util :refer [admin-token user-token wrap-setup]]
[clojure.test :as t :refer [deftest is testing use-fixtures]]
[com.brunobonacci.mulog :as mu]
[datomic.api :as d]))
[datomic.client.api :as d]))
(use-fixtures :each wrap-setup)
@@ -15,22 +15,21 @@
(testing "should allow editing a user"
(let [{{:strs [user-id] } :tempids} @(d/transact conn [{:db/id "user-id" :user/name "Bryce"}])
(let [{{:strs [user-id] } :tempids} (d/transact conn {:tx-data [{:db/id "user-id" :user/name "Bryce"}]})
result (sut/edit-user {:id (admin-token)} {:edit_user {:role :power_user :id user-id}} nil)]
(is (some? (:id result))
(= :power_user (:role result)))
(testing "Should allow adding clients"
(let [{{:strs [client-id] } :tempids} @(d/transact conn [{:db/id "client-id" :client/name "Bryce"}])
(let [{{:strs [client-id] } :tempids} (d/transact conn {:tx-data [{:db/id "client-id" :client/name "Bryce"}]})
result (sut/edit-user {:id (admin-token)} {:edit_user {:role :power_user
:id user-id
:clients [(str client-id)]}} nil)]
(= [client-id] (:clients result))))
(is (= client-id (get-in result [:clients 0 :id])))))
(testing "Should allow adding clients"
(let [{{:strs [client-id] } :tempids} @(d/transact conn [{:db/id "client-id" :client/name "Bryce"}])
result (sut/edit-user {:id (admin-token)} {:edit_user {:role :power_user
(let [result (sut/edit-user {:id (admin-token)} {:edit_user {:role :power_user
:id user-id
:clients []}} nil)]
(= [] (:clients result))))
(is (not (seq (:clients result))))))
(testing "Should disallow normies"
(is (thrown? Exception (sut/edit-user {:id (user-token)} {:edit_user {:role :power_user
:id user-id