supports locking transactions

This commit is contained in:
Bryce Covert
2022-03-14 11:07:41 -07:00
parent ee6669253f
commit 37ea2c7e97
4 changed files with 49 additions and 13 deletions

View File

@@ -43,6 +43,15 @@
(sut/categorize-transaction (assoc base-transaction :transaction/date #inst "2020-01-02")
(assoc bank-account :bank-account/start-date #inst "2020-01-01")
{}))))
(t/testing "Should exclude a transaction before locked-until"
(t/is (= :not-ready
(sut/categorize-transaction (assoc base-transaction :transaction/date #inst "2020-01-01")
(assoc-in bank-account [:client/_bank-accounts :client/locked-until] #inst "2030-01-01")
{})))
(t/is (= :import
(sut/categorize-transaction (assoc base-transaction :transaction/date #inst "2020-01-01")
(assoc-in bank-account [:client/_bank-accounts :client/locked-until] #inst "2010-01-01")
{}))))
(t/testing "Should error a transaction without a client"
(t/is (= :error
(sut/categorize-transaction (dissoc base-transaction :transaction/client)