Bryce
6b5d33a32f
- Auth: 30 tests (97 assertions) covering OAuth, sessions, JWT, impersonation, roles - Company: 35 tests (92 assertions) covering profile, 1099, expense reports, permissions - Ledger: 113 tests (148 assertions) covering grid, journal entries, import, reports - Fix existing test failures in running_balance, insights, tx, plaid, graphql - Fix InMemSolrClient to handle Solr query syntax properly - Update behavior docs: auth (42 done), company (32 done), ledger (120 done) - All 478 tests pass with 0 failures, 0 errors
56 lines
2.8 KiB
Clojure
56 lines
2.8 KiB
Clojure
(ns auto-ap.integration.jobs.ntg
|
|
(:require [auto-ap.jobs.ntg :as sut]
|
|
[auto-ap.integration.util :refer [wrap-setup admin-token setup-test-data test-vendor test-account dissoc-id]]
|
|
[clojure.test :as t :refer [deftest is testing use-fixtures]]
|
|
[clojure.java.io :as io]))
|
|
|
|
(use-fixtures :each wrap-setup)
|
|
|
|
(deftest extract-invoice-details-cintas
|
|
(testing "Should parse a single cintas invoice"
|
|
(let [client {:db/id 1
|
|
:client/name "NICK THE GREEK"
|
|
:client/locations ["OP"]
|
|
:client/matches ["2034 BROADWAY ST"]}]
|
|
(is (=
|
|
[{:invoice/invoice-number "1500000592"
|
|
:invoice/date #inst "2023-03-09T08:00:00-00:00"
|
|
:invoice/due #inst "2023-04-08T07:00:00-00:00"
|
|
:invoice/import-status :import-status/imported
|
|
:invoice/client-identifier "2034 BROADWAY ST"
|
|
:invoice/location "OP"
|
|
:invoice/status :invoice-status/unpaid
|
|
:invoice/vendor :vendor/cintas
|
|
:invoice/scheduled-payment #inst "2023-04-08T07:00:00-00:00"
|
|
:invoice/client 1
|
|
:invoice/total 39.88
|
|
:invoice/outstanding-balance 39.88}]
|
|
(map #(dissoc % :invoice/expense-accounts :db/id)
|
|
(sut/extract-invoice-details "ntg-invoices/Cintas/123.zcic"
|
|
(io/input-stream (io/resource "test-cintas/o.zcic.230310093903"))
|
|
[client]))))))
|
|
|
|
(testing "Should disable automatic payment based on feature flag"
|
|
(let [client {:db/id 1
|
|
:client/name "NICK THE GREEK"
|
|
:client/locations ["OP"]
|
|
:client/matches ["2034 BROADWAY ST"]
|
|
:client/feature-flags ["manually-pay-cintas"]}]
|
|
(is (nil? (->> (sut/extract-invoice-details "ntg-invoices/Cintas/123"
|
|
(io/input-stream (io/resource "test-cintas/o.zcic.230310093903"))
|
|
[client])
|
|
first
|
|
:invoice/scheduled-payment)))))
|
|
|
|
(testing "Should not import anything when there isn't an exact match"
|
|
(let [client {:db/id 1
|
|
:client/name "NICK THE GREEK"
|
|
:client/locations ["OP"]
|
|
:client/matches ["123 time square"]}]
|
|
(is (=
|
|
[]
|
|
(sut/extract-invoice-details "ntg-invoices/Cintas/123"
|
|
(io/input-stream (io/resource "test-cintas/o.zcic.230310093903"))
|
|
[client]))))))
|
|
|