(cloud) experimental approach to ensure the ledgers do not get out of sync

2023-04-02 07:45:12 -07:00
parent baa1c2e001
commit 68e809d8fb
10 changed files with 301 additions and 134 deletions
--- a/test/clj/auto_ap/integration/util.clj
+++ b/test/clj/auto_ap/integration/util.clj
@@ -108,5 +108,10 @@
                                                             :client/bank-accounts [(test-bank-account :db/id "test-bank-account-id")])
                                                (test-vendor :db/id "test-vendor-id")
                                                {:db/id                "accounts-payable-id"
+                                                 :account/name "Accounts Payable"
+                                                 :db/ident :account/accounts-payable
                                                 :account/numeric-code 21000
                                                 :account/account-set  "default"}])})))
+
+(defn apply-tx [data]
+    (:db-after (dc/transact conn {:tx-data data})))