made cloud tests work again.
This commit is contained in:
@@ -5,7 +5,8 @@
|
||||
:refer [apply-tx setup-test-data test-invoice test-transaction wrap-setup]]
|
||||
[clojure.test :as t :refer [deftest is testing use-fixtures]]
|
||||
[datomic.api :as dc]
|
||||
[iol-ion.tx :as sut]))
|
||||
[iol-ion.tx.upsert-invoice :as sut-i]
|
||||
[iol-ion.tx.upsert-transaction :as sut-t]))
|
||||
|
||||
(use-fixtures :each wrap-setup)
|
||||
|
||||
@@ -36,8 +37,8 @@
|
||||
|
||||
(is (nil? (:db/id (dc/pull (dc/db conn) journal-pull
|
||||
[:journal-entry/original-entity invoice-id]))))
|
||||
(let [db-after (apply-tx (sut/upsert-invoice
|
||||
(dc/with-db conn)
|
||||
(let [db-after (apply-tx (sut-i/upsert-invoice
|
||||
(dc/db conn)
|
||||
{:db/id invoice-id
|
||||
:invoice/import-status :import-status/imported}))]
|
||||
|
||||
@@ -64,8 +65,8 @@
|
||||
[:journal-entry/original-entity invoice-id])))
|
||||
|
||||
(testing "voiding an invoice should remove the journal entry"
|
||||
(let [db-after (apply-tx (sut/upsert-invoice
|
||||
(dc/with-db conn)
|
||||
(let [db-after (apply-tx (sut-i/upsert-invoice
|
||||
(dc/db conn)
|
||||
{:db/id invoice-id
|
||||
:invoice/status :invoice-status/voided}))]
|
||||
|
||||
@@ -73,7 +74,7 @@
|
||||
(dc/pull db-after journal-pull
|
||||
[:journal-entry/original-entity invoice-id])))))
|
||||
(testing "invoice should remove the journal entry"
|
||||
(let [db-after (apply-tx (sut/upsert-invoice
|
||||
(let [db-after (apply-tx (sut-i/upsert-invoice
|
||||
(dc/db conn)
|
||||
{:db/id invoice-id
|
||||
:invoice/status :invoice-status/unpaid
|
||||
@@ -96,7 +97,7 @@
|
||||
)
|
||||
{:db/id "test-import-batch-id"
|
||||
:import-batch/date #inst "2022-01-01"}])
|
||||
update (sut/upsert-transaction (dc/db conn) {:db/id test-transaction-id
|
||||
update (sut-t/upsert-transaction (dc/db conn) {:db/id test-transaction-id
|
||||
:transaction/id "hello"
|
||||
:transaction/bank-account test-bank-account-id
|
||||
:transaction/amount 500.00
|
||||
|
||||
Reference in New Issue
Block a user