IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[test-owner-report] initial tests new-owner-report

Browse Source 
mainly tests amounts being displayed are correct
This commit is contained in:
Christopher Lam 2019-12-12 20:20:47 +08:00
parent 670811455d
commit b372f28829
1 changed files with 43 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
gnucash/report/business-reports/test/test-owner-report.scm
View File

@ -17,6 +17,7 @@
(list (cons 'employee "08ae9c2e884b4f9787144f47eacd7f44") (list (cons 'employee "08ae9c2e884b4f9787144f47eacd7f44")
(cons 'vendor "d7d1e53505ee4b1b82efad9eacedaea0") (cons 'vendor "d7d1e53505ee4b1b82efad9eacedaea0")
(cons 'customer "c146317be32e4948a561ec7fc89d15c1") (cons 'customer "c146317be32e4948a561ec7fc89d15c1")
(cons 'customer-new "c146317be32e4948a561ec7fc89d15c1-new")
(cons 'job "5518ac227e474f47a34439f2d4d049de"))) (cons 'job "5518ac227e474f47a34439f2d4d049de")))
(setlocale LC_ALL "C") (setlocale LC_ALL "C")
@ -206,13 +207,18 @@
(set-option! options "General" (set-option! options "General"
(case variant (case variant
((customer) "Customer") ((customer) "Customer")
((customer-new) "Customer")
((job) "Job")) ((job) "Job"))
owner) owner)
(set-option! options "General" "From" (set-option! options "General" "From"
(cons 'absolute (gnc-dmy2time64 1 1 1980))) (cons 'absolute (gnc-dmy2time64 1 1 1980)))
(set-option! options "General" "To" (set-option! options "General" "To"
(cons 'absolute (gnc-dmy2time64 1 7 1980))) (cons 'absolute (gnc-dmy2time64 1 7 1980)))
(set-option! options "General" "Account" account) (cond
((eq? variant 'customer-new)
(set-option! options "Display Columns" "Links" 'detailed))
(else
(set-option! options "General" "Account" account)))
options)) options))
;; inv-1 $6, due 18.7.1980 after report-date i.e. "current" ;; inv-1 $6, due 18.7.1980 after report-date i.e. "current"
@ -321,6 +327,42 @@
sxml))) sxml)))
(test-end "customer-report") (test-end "customer-report")
(test-begin "new-customer-report")
(let* ((options (default-testing-options 'customer-new
owner-1 (get-acct "AR-USD")))
(sxml (options->sxml 'customer-new options "new-customer-report basic")))
(test-equal "inv-descriptions"
'("inv >90 $11.50" "inv 60-90 $7.50" "inv 30-60 $8.50"
"inv >90 payment" "inv >90 payment" "inv <30days $4.00"
"inv $200" "inv $200" "inv current $6.75" "inv $3 CN"
"$31.75" "$7.50")
((sxpath `(// (table 3) // tr (td 5) // *text*))
sxml))
(test-equal "credit-amounts"
'("$11.50" "$7.50" "$8.50" "$4.00" "$200.00" "$6.75" "$8.00")
((sxpath `(// (table 3) // tr (td 6) // *text*))
sxml))
(test-equal "debit-amounts"
'("$1.50" "$2.00" "$200.00" "$3.00" "$31.75")
((sxpath `(// (table 3) // tr (td 7) // *text*))
sxml))
(test-equal "balance-amounts"
'("$11.50" "$19.00" "$27.50" "$26.00" "$24.00" "$28.00"
"$228.00" "$28.00" "$34.75" "$31.75")
((sxpath `(// (table 3) // tr (td 8) // *text*))
sxml))
(test-equal "link-amounts"
'("$1.50" "$11.50" "$11.50" "$200.00" "$200.00")
((sxpath `(// (table 3) // tr (td 11) // *text*))
sxml))
;; from the report, find the 3rd table, last row, find embedded
;; table, retrieve tr contents
(test-equal "aging-table"
'("$0.00" "$6.75" "$1.00" "$8.50" "$7.50" "$8.00" "$31.75")
((sxpath `(// (table 3) // (tr -1) // table // tbody // tr // *text*))
sxml)))
(test-end "new-customer-report")
(display "job-report tests:\n") (display "job-report tests:\n")
;; inv for job ;; inv for job
(let ((inv-2-copy (gncInvoiceCopy inv-2))) (let ((inv-2-copy (gncInvoiceCopy inv-2)))