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

fixed warnings.

Browse Source
This commit is contained in:
Bryce Covert
2022-07-26 05:56:41 -07:00
parent f6f73a6110
commit 96c80853ef
133 changed files with 670 additions and 1640 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,11 +1,7 @@
(ns auto-ap.import.manual-test
(:require [auto-ap.datomic :refer [conn uri]]
[auto-ap.import.manual :as sut]
[auto-ap.time :as time]
[clj-time.coerce :as coerce]
[clojure.test :as t]
[datomic.api :as d]
[auto-ap.datomic.migrate :as m]))
(:require
[auto-ap.import.manual :as sut]
[clojure.test :as t]))
(def raw-tsv "Status Date Original Description High Level Category Category-Subcategory End Here Amount Amount Split Type Note Account Name SLO Acct Name SLO F1 Code Comp ID
posted 8/23/2021 MOUNTAIN MIKES PIZZA - -24.27 -24.27 - - MVSC - BofA Corp Card Sean - 7187 MVSC - BofA Corp Card Sean - 7187 MVSC-6 MVSC

23
test/clj/auto_ap/import/transactions_test.clj
View File

@@ -4,6 +4,7 @@
[auto-ap.import.transactions :as sut]
[clojure.test :as t]
[datomic.api :as d]
[digest :as di]
[clj-time.coerce :as coerce]))
(defn wrap-setup
@@ -18,12 +19,12 @@
(t/use-fixtures :each wrap-setup)
(defn noop-rule [transaction locations]
(defn noop-rule [transaction _]
transaction)
(def base-transaction #:transaction {:date #inst "2020-01-02T00:00:00-08:00"
:raw-id "1"
:id (digest/sha-256 "1")
:id (di/sha-256 "1")
:amount 12.0
:description-original "original-description"
:status "POSTED"
@@ -99,7 +100,7 @@
result))))
(t/testing "Should match an uncleared check"
(let [{:strs [bank-account-id client-id payment-id]} (->> [#:payment {:status :payment-status/pending
(let [{:strs [bank-account-id payment-id]} (->> [#:payment {:status :payment-status/pending
:date #inst "2019-01-01"
:bank-account "bank-account-id"
:client "client-id"
@@ -265,7 +266,7 @@
deref
:tempids)]
(t/testing "Should find a single invoice that matches exactly"
(let [{:strs [client-id invoice-id]} (->> [#:invoice {:status :invoice-status/paid
(let [{:strs [client-id]} (->> [#:invoice {:status :invoice-status/paid
:vendor vendor1-id
:scheduled-payment #inst "2019-01-04"
:date #inst "2019-01-01"
@@ -281,7 +282,7 @@
))
(t/testing "Should not match paid invoice that isn't a scheduled payment"
(let [{:strs [client-id invoice-id]} (->> [#:invoice {:status :invoice-status/paid
(let [{:strs [client-id]} (->> [#:invoice {:status :invoice-status/paid
:vendor vendor1-id
:date #inst "2019-01-01"
:client "client-id"
@@ -296,7 +297,7 @@
(t/is (= [] invoices-matches))))
(t/testing "Should not match unpaid invoice"
(let [{:strs [client-id invoice-id]} (->> [#:invoice {:status :invoice-status/unpaid
(let [{:strs [client-id]} (->> [#:invoice {:status :invoice-status/unpaid
:scheduled-payment #inst "2019-01-04"
:vendor vendor1-id
:date #inst "2019-01-01"
@@ -312,7 +313,7 @@
(t/is (= [] invoices-matches))))
(t/testing "Should not match invoice that already has a payment"
(let [{:strs [client-id invoice-id]} (->> [#:invoice {:status :invoice-status/paid
(let [{:strs [client-id]} (->> [#:invoice {:status :invoice-status/paid
:scheduled-payment #inst "2019-01-04"
:vendor vendor1-id
:date #inst "2019-01-01"
@@ -330,7 +331,7 @@
client-id)]
(t/is (= [] invoices-matches))))
(t/testing "Should match multiple invoices for same vendor that total to transaction amount"
(let [{:strs [client-id invoice1-id invoice2-id]} (->> [#:invoice {:status :invoice-status/paid
(let [{:strs [client-id]} (->> [#:invoice {:status :invoice-status/paid
:vendor vendor1-id
:scheduled-payment #inst "2019-01-04"
:date #inst "2019-01-01"
@@ -352,7 +353,7 @@
(t/is (= 2 (count invoices-matches))
(str "Expected " (vec invoices-matches) " to have a singular match of two invoices."))))
(t/testing "Should not match if there are multiple candidate matches"
(let [{:strs [client-id invoice1-id invoice2-id]} (->> [#:invoice {:status :invoice-status/paid
(let [{:strs [client-id]} (->> [#:invoice {:status :invoice-status/paid
:vendor vendor1-id
:scheduled-payment #inst "2019-01-04"
:date #inst "2019-01-01"
@@ -375,7 +376,7 @@
(str "Expected " (vec invoices-matches) " to not match due to multiple possibilities."))))
(t/testing "Should not match if invoices are for different vendors"
(let [{:strs [client-id invoice1-id invoice2-id]} (->> [#:invoice {:status :invoice-status/paid
(let [{:strs [client-id]} (->> [#:invoice {:status :invoice-status/paid
:vendor vendor1-id
:scheduled-payment #inst "2019-01-04"
:date #inst "2019-01-01"
@@ -398,7 +399,7 @@
(str "Expected " (vec invoices-matches) " to only consider invoices for the same vendor."))))
(t/testing "Should only consider invoices chronologically"
(let [{:strs [client-id invoice1-id invoice2-id]} (->> [#:invoice {:status :invoice-status/paid
(let [{:strs [client-id]} (->> [#:invoice {:status :invoice-status/paid
:vendor vendor1-id
:scheduled-payment #inst "2019-01-04"
:date #inst "2019-01-01"