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

Merge branch 'staging' of gitea.story-basking.ts.net:notid/integreat into staging

Browse Source
This commit is contained in:
Bryce
2026-08-04 22:59:46 -07:00
parent a17e16e31b 46fdc29712
commit acc5a7aa1b
5 changed files with 206 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

86
test/clj/auto_ap/ssr/ledger/export_modal_test.clj Normal file
View File

@@ -0,0 +1,86 @@
(ns auto-ap.ssr.ledger.export-modal-test
(:require
[auto-ap.datomic :refer [conn]]
[auto-ap.integration.util :refer [admin-token test-client user-token
wrap-setup]]
[auto-ap.ssr.ledger.export-modal :as sut]
[clojure.string :as str]
[clojure.test :refer [deftest is testing use-fixtures]]
[datomic.api :as dc]))
(use-fixtures :each wrap-setup)
(def report {:report/name "Profit-and-loss-2026-07-31-for-Acme"
:report/url "https://data.example.com/reports/pnl/abc/report.pdf"})
(defn client-with-emails
"Transacts a client with `emails` contacts. :client/emails is a plain ref, not
a component, so each nested contact needs its own tempid."
[emails]
(let [suffix (rand-int 1000000)
client-tid (str "client-" suffix)
contacts (map-indexed (fn [i e] (assoc e :db/id (str "email-contact-" suffix "-" i)))
emails)
tempids (:tempids @(dc/transact conn
(into [(test-client :db/id client-tid
:client/emails (map :db/id contacts))]
contacts)))]
{:db/id (get tempids client-tid)}))
(defn modal-body [request report]
(:body (sut/export-modal request report)))
(deftest export-modal-download-link
(testing "Should always offer the report for download"
(let [client (client-with-emails [])
body (modal-body {:identity (admin-token)}
(assoc report :report/clients [client]))]
(is (str/includes? body (:report/url report))
"the S3 url should be linked")
(is (str/includes? body "to download")))))
(deftest export-modal-email-handoff
(testing "Should offer a mailto hand-off addressed to the client's contacts"
(let [client (client-with-emails [{:email-contact/email "owner@acme.com"
:email-contact/description "Owner"}
{:email-contact/email "cpa@acme.com"}])
body (modal-body {:identity (admin-token)}
(assoc report :report/clients [client]))]
(is (str/includes? body "mailto:"))
(is (str/includes? body "owner@acme.com"))
(is (str/includes? body "cpa@acme.com"))
(is (str/includes? body "Owner")
"contacts should be described so the sender can see who it goes to")))
(testing "Should not offer a hand-off when the client has no email contacts"
(let [client (client-with-emails [])
body (modal-body {:identity (admin-token)}
(assoc report :report/clients [client]))]
(is (not (str/includes? body "mailto:")))))
(testing "Should not offer a hand-off to non-admins"
(let [client (client-with-emails [{:email-contact/email "owner@acme.com"}])
body (modal-body {:identity (user-token (:db/id client))}
(assoc report :report/clients [client]))]
(is (not (str/includes? body "mailto:")))))
(testing "Should not offer a hand-off for a multi-client report"
(let [a (client-with-emails [{:email-contact/email "owner@acme.com"}])
b (client-with-emails [{:email-contact/email "owner@beta.com"}])
body (modal-body {:identity (admin-token)}
(assoc report :report/clients [a b]))]
(is (not (str/includes? body "mailto:"))
"one client's numbers must not be mailed to another client's contacts"))))
(deftest mailto-href-encoding
(let [contacts [{:email-contact/email "owner@acme.com"}
{:email-contact/email "cpa@acme.com"}]
href (sut/mailto-href contacts report)]
(testing "Should address every contact"
(is (str/starts-with? href "mailto:owner@acme.com,cpa@acme.com?")))
(testing "Should percent-encode the subject and body"
(is (str/includes? href "subject=Profit-and-loss-2026-07-31-for-Acme%20is%20ready"))
(is (not (re-find #"[\s\n]" href))
"raw whitespace would truncate the href"))
(testing "Should carry the report url in the body"
(is (str/includes? (sut/email-body (:report/url report)) (:report/url report))))))