From 1057a263a90f505ecad2afee0d59045139951999 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Fri, 24 Mar 2023 14:45:15 -0700 Subject: [PATCH] made user test pass. --- test/clj/auto_ap/integration/graphql/users.clj | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/test/clj/auto_ap/integration/graphql/users.clj b/test/clj/auto_ap/integration/graphql/users.clj index e58dfed0..4998b6d4 100644 --- a/test/clj/auto_ap/integration/graphql/users.clj +++ b/test/clj/auto_ap/integration/graphql/users.clj @@ -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