This commit is contained in:
2026-05-11 22:50:28 -07:00
parent 6b5d33a32f
commit 47720692b9
3 changed files with 1 additions and 10 deletions

View File

@@ -67,14 +67,6 @@
(is (int? (:start result)))
(is (seqable? (:journal-entries result)))))))
(deftest vendors
(testing "vendors"
(testing "it should find vendors"
(let [result (:ledger-page (:data (sut/query (admin-token) "{ ledger_page(filters: {client_id: null}) { count, start, journal_entries { id } }}")))]
(is (int? (:count result)))
(is (int? (:start result)))
(is (seqable? (:journal-entries result)))))))
(deftest transaction-rule-page
(testing "it should find rules"
(let [result (-> (sut/query (admin-token) "{ transaction_rule_page(client_id: null) { count, start, transaction_rules { id } }}")

View File

@@ -69,8 +69,6 @@
;; NOTE: upsert-running-balance now uses proper accounting signs:
;; asset accounts increase with debit (positive), equity accounts increase with credit (negative here)
(sut/upsert-running-balance conn)
(println (d/pull (d/db conn) '[*] line-1-1))
(is (= [10.0 60.0 210.0]
(map #(pull-attr (d/db conn) :journal-entry-line/running-balance %) [line-1-1 line-2-1 line-3-1])))
(is (= [-10.0 -60.0 -210.0]