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

Merged vendor tests, got them working

Browse Source
This commit is contained in:
Bryce Covert
2023-03-27 16:59:15 -07:00
parent 17841934a5 24366058cf
commit 3a126e0b23
3 changed files with 125 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
test/clj/auto_ap/integration/graphql/vendors.clj
View File

@@ -1,21 +1,78 @@
(ns auto-ap.integration.graphql.vendors
(:require
[auto-ap.datomic :refer [conn]]
[auto-ap.graphql.vendors :as sut2]
[auto-ap.integration.util :refer [admin-token wrap-setup]]
[clojure.test :as t :refer [deftest is testing use-fixtures]]
[datomic.client.api :as dc]))
(:require [auto-ap.graphql.vendors :as sut2]
[auto-ap.integration.util :refer [wrap-setup admin-token setup-test-data test-vendor test-account dissoc-id]]
[clojure.test :as t :refer [deftest is testing use-fixtures]]))
(use-fixtures :each wrap-setup)
(deftest vendors
(testing "vendors"
(let [{:strs [vendor]} (:tempids (dc/transact conn {:tx-data [{:vendor/name "Test" :db/id "vendor"}
{:db/id "client"
:client/code "DEF"}]}))]
(let [{:strs [test-vendor-id]} (setup-test-data [])]
(testing "it should find vendors"
(let [result (sut2/get-graphql {:id (admin-token)} {} {})]
(is ((into #{} (map :id (:vendors result))) vendor )))))))
(is ((into #{} (map :id (:vendors result))) test-vendor-id )))))))
(deftest upsert-vendor
(testing "Should allow upsert of an extant vendor"
(let [{:strs [test-vendor-id
test-client-id
test-account-id-2
test-account-id]} (setup-test-data [(test-account :db/id "test-account-id-2")])]
(let [result (sut2/upsert-vendor {:id (admin-token)}
{:vendor {:id test-vendor-id
:name "New Vendor Name!"
:hidden true
:terms 30
:code "mycode"
:print_as "PrintME"
:primary_contact {:name "Bryce"}
:secondary_contact {:name "Ben"}
:address {:street1 "1900 Penn ave"
:street2 "oval office suite"
:city "Washington"
:state "DC"
:zip "10110"}
:default_account_id test-account-id
:schedule_payment_dom [{:client_id test-client-id
:dom 12}]
:terms_overrides [{:client_id test-client-id
:terms 100}]
:account_overrides [{:client_id test-client-id
:account_id test-account-id-2}]
:automatically_paid_when_due [test-client-id]}}
nil)]
(is (= {:address {:street1 "1900 Penn ave",
:street2 "oval office suite",
:city "Washington",
:state "DC",
:zip "10110"},
:print_as "PrintME",
:search_terms ["New Vendor Name!"],
:terms 30,
:name "New Vendor Name!",
:secondary_contact { :name "Ben"},
:usage nil,
:hidden true,
:id test-vendor-id,
:code "mycode",
:schedule_payment_dom
[{:client {:id test-client-id}, :dom 12}],
:primary_contact {:name "Bryce"},
:default_account {:id test-account-id, :name "Account"}
:account_overrides [{:account {:id test-account-id-2, :name "Account"} :client {:id test-client-id}}]
:terms_overrides [{:terms 100 :client {:id test-client-id}}]}
(-> result
(dissoc :automatically_paid_when_due)
(update :primary_contact dissoc-id)
(update :secondary_contact dissoc-id)
(update :address dissoc-id)
(update :schedule_payment_dom #(map dissoc-id %))
(update :terms_overrides #(map dissoc-id %))
(update :account_overrides #(map dissoc-id %)))))
(is (= 1 (count (:automatically_paid_when_due result))))
))))

3
test/clj/auto_ap/integration/util.clj
View File

@@ -98,6 +98,9 @@
:transaction-rule/note "Test"}
kwargs))
(defn dissoc-id [x]
(dissoc x :id))
(defn setup-test-data [data]
(:tempids (dc/transact conn {:tx-data (into data
[(test-account :db/id "test-account-id")