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

kind of applies rules.

Browse Source
This commit is contained in:
Bryce Covert
2019-05-15 07:15:03 -07:00
parent 70714a2de1
commit 79500ba157
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/clj/auto_ap/yodlee/import.clj
View File

@@ -133,7 +133,10 @@
(fn [transaction]
(let [matching-rules (filter #(rule-applies? transaction %) rules)]
(if-let [top-match (first matching-rules)]
(assoc transaction :transaction/approval-status (:transaction-rule/transaction-approval-status (first matching-rules)))
(assoc transaction
:transaction/approval-status (:transaction-rule/transaction-approval-status top-match)
:transaction/vendor (:db/id (:transaction-rule/vendor top-match))
)
transaction)))))
(defn manual-import [manual-transactions]

10
test/clj/auto_ap/yodlee/import.clj
View File

@@ -147,15 +147,17 @@
:transaction-rule/transaction-approval-status :transaction-approval-status/requires-feedback
:transaction-rule/vendor {:db/id 456}}])]
(t/is (= {:transaction/description-original "Hello XXX039",
:transaction/vendor 123
:transaction/approval-status :transaction-approval-status/approved}
(-> {:transaction/description-original "Hello XXX039"}
apply-rules)))
(t/is (= {:transaction/description-original "OtherMatch",
:transaction/approval-status :transaction-approval-status/requires-feedback}
:transaction/approval-status :transaction-approval-status/requires-feedback
:transaction/vendor 456}
(-> {:transaction/description-original "OtherMatch"}
apply-rules)))
(t/is (= {:transaction/description-original "Hello Not match"}
(-> {:transaction/description-original "Hello Not match"}
apply-rules
))))))))
apply-rules))))))))