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

much smaller build (hopefully) and transactions progress.

Browse Source
This commit is contained in:
Bryce
2025-03-10 22:13:53 -07:00
parent fcb46bf756
commit e22beb149e
118 changed files with 428 additions and 35477 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/clj/auto_ap/ssr/transaction/edit_test.clj
View File

@@ -7,8 +7,8 @@
check-vendor-default-account
clientize-vendor get-vendor
location-select*
match-autopay-invoices link-payment
match-unpaid-invoices
link-autopay-invoices link-payment
link-unpaid-invoices
transaction-account-row*
unlink-payment]]
[clojure.test :as t]
@@ -106,7 +106,7 @@
:transaction/amount -50.0
:transaction/client {:db/id "client-id"}}])
;; Perform match-autopay-invoices
(match-autopay-invoices {:form-params {"transaction-id" "transaction-id" "autopay-invoice-ids" ["invoice-id"]}})
(link-autopay-invoices {:form-params {"transaction-id" "transaction-id" "autopay-invoice-ids" ["invoice-id"]}})
;; Verify transaction and invoices are linked
(let [transaction (d-transactions/get-by-id "transaction-id")
payment (dc/pull (dc/db conn) '[:db/id :payment/status] (:transaction/payment transaction))]
@@ -123,7 +123,7 @@
:transaction/amount -50.0
:transaction/client {:db/id "client-id"}}])
;; Perform match-unpaid-invoices
(match-unpaid-invoices {:form-params {"transaction-id" "transaction-id" "unpaid-invoice-ids" ["invoice-id"]}})
(link-unpaid-invoices {:form-params {"transaction-id" "transaction-id" "unpaid-invoice-ids" ["invoice-id"]}})
;; Verify transaction and invoices are linked
(let [transaction (d-transactions/get-by-id "transaction-id")
payment (dc/pull (dc/db conn) '[:db/id :payment/status] (:transaction/payment transaction))]