25 lines
1.2 KiB
Clojure
25 lines
1.2 KiB
Clojure
(ns auto-ap.import.plaid-test
|
|
(:require [auto-ap.import.plaid :as sut]
|
|
[clojure.test :as t]))
|
|
|
|
(def base-transaction {:name "This is a bank transaction text"
|
|
:transaction_id "123"
|
|
:account {:type "debit"}
|
|
:amount 123.45
|
|
:date "2023-01-01"})
|
|
|
|
(t/deftest plaid->transaction
|
|
|
|
|
|
(t/testing "Should assign a plaid merchant if a merchant is found"
|
|
(t/is (= "Home Depot" (-> (sut/plaid->transaction (assoc base-transaction
|
|
:merchant_name "Home Depot")
|
|
{})
|
|
:transaction/plaid-merchant
|
|
:plaid-merchant/name))))
|
|
(t/testing "Should assign a default vendor if a merchant is found, with a matching vendor lookup"
|
|
(t/is (= 12354 (-> (sut/plaid->transaction (assoc base-transaction
|
|
:merchant_name "Home Depot")
|
|
{"Home Depot" 12354})
|
|
:transaction/default-vendor)))))
|