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

scrubbed all reference to datomic.api

Browse Source
This commit is contained in:
Bryce Covert
2023-03-20 12:54:56 -07:00
parent 8290138156
commit 9260834135
19 changed files with 731 additions and 611 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
test/clj/auto_ap/ezcater_test.clj
View File

@@ -1,22 +1,9 @@
(ns auto-ap.ezcater-test
(:require [auto-ap.ezcater.core :as sut]
[clojure.test :as t]
[datomic.api :as d ]
[auto-ap.utils :refer [dollars=]]
[auto-ap.datomic :refer [uri]]
[auto-ap.datomic.migrate :as m]
[auto-ap.time-reader]))
(defn wrap-setup
[f]
(with-redefs [auto-ap.datomic/uri "datomic:mem://datomic-transactor:4334/invoice"]
(d/create-database uri)
(with-redefs [auto-ap.datomic/conn (d/connect uri)]
(m/migrate auto-ap.datomic/conn)
(f)
(d/release auto-ap.datomic/conn)
(d/delete-database uri))))
(:require
[auto-ap.ezcater.core :as sut]
[auto-ap.integration.util :refer [wrap-setup]]
[auto-ap.utils :refer [dollars=]]
[clojure.test :as t]))
(t/use-fixtures :each wrap-setup)
@@ -138,7 +125,7 @@
(assoc-in [:catererCart :feesAndDiscounts 0 :cost :subunits] 10000)
sut/commision)))))
(t/testing "Should calculate 2.75% ccp fee"
(t/is (dollars= 8.25
(t/is (dollars= 8.97
(-> known-order
(assoc :orderSourceType "MARKETPLACE")
(assoc-in [:totals :subTotal :subunits] 10000)
@@ -151,7 +138,7 @@
sut/order->sales-order
:sales-order/total))))
(t/testing "Should derive adjustments food-total + sales-tax - caterer-total - service fee - ccp fee"
(t/is (dollars= -41.8975
(t/is (dollars= -42.99
(-> known-order
sut/order->sales-order
:sales-order/discount))))