Bryce
98a3e0dda6
- customer-identifier field: customer name (e.g., 'NICK THE GREEK') - account-number field: street address (e.g., '600 VISTA WAY') - Combined they provide full customer identification with address - Updated test to verify both fields and their concatenation 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
35 lines
1.8 KiB
Clojure
35 lines
1.8 KiB
Clojure
(ns auto-ap.parse.templates-test
|
|
(:require [auto-ap.parse :as sut]
|
|
[clojure.test :refer [deftest is testing]]
|
|
[clojure.java.io :as io]
|
|
[clojure.string :as str]
|
|
[clj-time.core :as time]))
|
|
|
|
(deftest parse-bonanza-produce-invoice-03881260
|
|
(testing "Should parse Bonanza Produce invoice 03881260 with customer identifier including address"
|
|
(let [pdf-file (io/file "dev-resources/INVOICE - 03881260.pdf")
|
|
;; Extract text same way parse-file does
|
|
pdf-text (:out (clojure.java.shell/sh "pdftotext" "-layout" (str pdf-file) "-"))
|
|
results (sut/parse pdf-text)
|
|
result (first results)]
|
|
(is (some? results) "parse should return a result")
|
|
(is (some? result) "Template should match and return a result")
|
|
(when result
|
|
(println "DEBUG: customer-identifier =" (pr-str (:customer-identifier result)))
|
|
(println "DEBUG: account-number =" (pr-str (:account-number result)))
|
|
(is (= "Bonanza Produce" (:vendor-code result)))
|
|
(is (= "03881260" (:invoice-number result)))
|
|
;; Date is parsed as org.joda.time.DateTime - compare year/month/day
|
|
(let [d (:date result)]
|
|
(is (= 2026 (time/year d)))
|
|
(is (= 1 (time/month d)))
|
|
(is (= 20 (time/day d))))
|
|
;; Customer identifier includes name, account-number includes street address
|
|
;; Together they form the full customer identification
|
|
(is (= "NICK THE GREEK" (:customer-identifier result)))
|
|
(is (= "600 VISTA WAY" (str/trim (:account-number result))))
|
|
(is (= "NICK THE GREEK 600 VISTA WAY"
|
|
(str (:customer-identifier result) " " (str/trim (:account-number result)))))
|
|
;; Total is parsed as string, not number (per current behavior)
|
|
(is (= "23.22" (:total result)))))))
|