supports locking transactions
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user