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
60 lines
3.0 KiB
Clojure
60 lines
3.0 KiB
Clojure
(ns auto-ap.integration.routes.ezcater-xls
|
|
(:require
|
|
[auto-ap.integration.util
|
|
:refer [setup-test-data test-client wrap-setup]]
|
|
[auto-ap.routes.ezcater-xls :as sut]
|
|
[clojure.java.io :as io]
|
|
[clojure.test :refer [deftest is testing use-fixtures]]))
|
|
|
|
(use-fixtures :each wrap-setup)
|
|
|
|
(deftest stream->sales-orders
|
|
(with-redefs [auto-ap.solr/impl (auto-ap.solr/->InMemSolrClient (atom {}))]
|
|
(testing "Should import nothing when there are no clients"
|
|
(with-open [s (io/input-stream (io/resource "sample-ezcater.xlsx"))]
|
|
(is (= [:missing "Nick The Greek (Santa Cruz)"] (first (sut/stream->sales-orders s))))))
|
|
(testing "should import for a single client"
|
|
(let [{:strs [test-client]} (setup-test-data [(test-client
|
|
:db/id "test-client"
|
|
:client/code "NGOP"
|
|
:client/locations ["DT"]
|
|
:client/name "The client"
|
|
:client/matches ["Nick the Greek (Elk Grove)"])])]
|
|
(with-open [s (io/input-stream (io/resource "sample-ezcater.xlsx"))]
|
|
(is (seq (sut/stream->sales-orders s))))
|
|
(with-open [s (io/input-stream (io/resource "sample-ezcater.xlsx"))]
|
|
(is (= #:sales-order
|
|
{:vendor :vendor/ccp-ezcater
|
|
:service-charge -95.9
|
|
:date #inst "2023-04-03T18:30:00"
|
|
:reference-link "ZA2-320"
|
|
:charges
|
|
[#:charge{:type-name "CARD"
|
|
:date #inst "2023-04-03T18:30:00"
|
|
:client test-client
|
|
:location "DT"
|
|
:external-id
|
|
(str "ezcater/charge/" test-client "-DT-ZA2-320-0")
|
|
:processor :ccp-processor/ezcater
|
|
:total 516.12
|
|
:tip 0.0}]
|
|
:client test-client
|
|
:tip 0.0
|
|
:tax 37.12
|
|
:external-id (str "ezcater/order/" test-client "-DT-ZA2-320")
|
|
:total 516.12
|
|
:line-items
|
|
[#:order-line-item{:external-id
|
|
(str "ezcater/order/" test-client "-DT-ZA2-320-0")
|
|
:item-name "EZCater Catering"
|
|
:category "EZCater Catering"
|
|
:discount 0.0
|
|
:tax 37.12
|
|
:total 516.12}]
|
|
:discount 0.0
|
|
:location "DT"
|
|
:returns 0.0}
|
|
(last (first (filter (comp #{:order} first)
|
|
(sut/stream->sales-orders s)))))))))))
|
|
|