30 lines
1.5 KiB
Clojure
30 lines
1.5 KiB
Clojure
(ns auto-ap.import.yodlee-test
|
|
(:require [auto-ap.import.yodlee :as sut]
|
|
[clojure.test :as t]))
|
|
|
|
|
|
(def base-transaction {:postDate "2014-01-04"
|
|
:accountId 1234
|
|
:date "2014-01-02"
|
|
:id 1
|
|
:amount {:amount 12.0}
|
|
:description {:original "original-description"
|
|
:simple "simple-description"}
|
|
:merchant {:id "123"
|
|
:name "456"}
|
|
:baseType "DEBIT"
|
|
:status "POSTED"})
|
|
|
|
(t/deftest yodlee->transaction
|
|
(t/testing "Should parse dates"
|
|
(t/is (= #inst "2021-01-01T00:00:00-08:00" (:transaction/date (sut/yodlee->transaction (assoc base-transaction :date "2021-01-01")))))
|
|
(t/is (= #inst "2021-06-01T00:00:00-07:00" (:transaction/date (sut/yodlee->transaction (assoc base-transaction :date "2021-06-01"))))))
|
|
|
|
(t/testing "Should invert amount for debits"
|
|
(t/is (= -12.0 (:transaction/amount (sut/yodlee->transaction (assoc base-transaction
|
|
:amount {:amount 12.0}
|
|
:baseType "DEBIT")))))
|
|
(t/is (= 12.0 (:transaction/amount (sut/yodlee->transaction (assoc base-transaction
|
|
:amount {:amount 12.0}
|
|
:baseType "CREDIT")))))))
|