notid/integreat
1
0
Fork 0
Code Issues Pull Requests 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"

4
test/clj/auto_ap/integration/graphql.clj
View File

@@ -5,9 +5,7 @@
[clojure.test :as t :refer [deftest is testing use-fixtures]]
[clj-time.core :as time]
[datomic.api :as d]
[auto-ap.datomic :refer [uri conn]]
[buddy.sign.jwt :as jwt]
[config.core :refer [env]]))
[auto-ap.datomic :refer [uri conn]]))
(defn wrap-setup
[f]
(with-redefs [auto-ap.datomic/uri "datomic:mem://datomic-transactor:4334/invoice"]

15
test/clj/auto_ap/integration/graphql/clients.clj
View File

@@ -1,12 +1,11 @@
(ns auto-ap.integration.graphql.clients
(:require [auto-ap.graphql.clients :as sut]
[auto-ap.datomic :refer [uri conn]]
[auto-ap.datomic.migrate :as m]
[auto-ap.ledger :as ledger]
[clojure.test :as t :refer [deftest is testing use-fixtures]]
[datomic.api :as d]
[clj-time.core :as time]))
(:require
[auto-ap.datomic :refer [conn uri]]
[auto-ap.datomic.migrate :as m]
[auto-ap.graphql.clients :as sut]
[clj-time.core :as time]
[clojure.test :as t :refer [deftest is testing use-fixtures]]
[datomic.api :as d]))
(defn wrap-setup
[f]

2
test/clj/auto_ap/integration/graphql/vendors.clj
View File

@@ -44,7 +44,7 @@
(deftest vendors
(testing "vendors"
(let [{:strs [vendor client]} (:tempids @(d/transact (d/connect uri) [{:vendor/name "Test" :db/id "vendor"}
(let [{:strs [vendor]} (:tempids @(d/transact (d/connect uri) [{:vendor/name "Test" :db/id "vendor"}
{:db/id "client"
:client/code "DEF"}]))]
(testing "it should find vendors"

14
test/clj/auto_ap/integration/rule_matching.clj
View File

@@ -1,11 +1,10 @@
(ns auto-ap.integration.rule-matching
(:require [auto-ap.rule-matching :as sut]
[datomic.api :as d]
[auto-ap.datomic :refer [uri]]
[auto-ap.datomic.migrate :as m]
[clojure.test :as t]
[clojure.tools.logging :as log]
[clojure.set :as set]))
(:require
[auto-ap.datomic :refer [uri]]
[auto-ap.datomic.migrate :as m]
[auto-ap.rule-matching :as sut]
[clojure.test :as t]
[datomic.api :as d]))
(defn wrap-setup
[f]
@@ -19,6 +18,7 @@
(t/use-fixtures :each wrap-setup)
#_{:clj-kondo/ignore [:unused-binding]}
(defn noop-rule [transaction locations]
transaction)

10
test/clj/auto_ap/ledger_test.clj
View File

@@ -1,9 +1,9 @@
(ns auto-ap.ledger-test
(:require [auto-ap.datomic :refer [conn uri]]
[auto-ap.datomic.migrate :as m]
[auto-ap.ledger :as sut]
[clojure.test :as t]
[datomic.api :as d]))
(:require
[auto-ap.datomic :refer [uri]]
[auto-ap.datomic.migrate :as m]
[clojure.test :as t]
[datomic.api :as d]))
(defn wrap-setup
[f]