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

[test-invoice] also test fancy-invoice

Browse Source
This commit is contained in:
Christopher Lam 2018-05-27 20:48:32 +08:00
parent bb37adc3ec
commit aa4dfb0ead
1 changed files with 47 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
gnucash/report/business-reports/test/test-invoice.scm
View File

@ -40,7 +40,7 @@
(test-begin "test-invoice.scm") (test-begin "test-invoice.scm")
(inv-tests 'invoice) (inv-tests 'invoice)
(inv-tests 'easy-invoice) (inv-tests 'easy-invoice)
;; (inv-tests 'fancy-invoice) (inv-tests 'fancy-invoice)
(test-end "test-invoice.scm")) (test-end "test-invoice.scm"))
(define (sxml-main-get-row-col sxml row col) (define (sxml-main-get-row-col sxml row col)
@ -234,16 +234,16 @@
(test-equal "inv-1 simple entry details are correct" (test-equal "inv-1 simple entry details are correct"
'("entry-1-desc" "entry-1-action" "2.00" "$3.00" "0.00 %" "T" "$0.00" "$6.00") '("entry-1-desc" "entry-1-action" "2.00" "$3.00" "0.00 %" "T" "$0.00" "$6.00")
(cdr (sxml-main-get-row-col sxml 1 #f))) (cdr (sxml-main-get-row-col sxml 1 #f)))
(test-equal "inv-1 cust-name is correct" (unless (eq? variant 'fancy-invoice)
'("cust-1-name") (test-equal "inv-1 cust-name is correct"
((sxpath '(// (table 2) // tbody // tr // td // *text*)) '("cust-1-name")
sxml)) ((sxpath '(// (table 2) // tbody // tr // td // *text*))
sxml)))
(test-assert "inv-1-billing-id is in invoice body" (test-assert "inv-1-billing-id is in invoice body"
(member (member
(case variant (case variant
((invoice) "Reference:\xa0inv-1-billing-id") ((invoice fancy-invoice) "Reference:\xa0inv-1-billing-id")
((easy-invoice) "Billing ID:\xa0inv-1-billing-id") ((easy-invoice) "Billing ID:\xa0inv-1-billing-id"))
(else ""))
((sxpath '(// body // *text*)) sxml))) ((sxpath '(// body // *text*)) sxml)))
(test-assert "inv-1 inv-notes is in invoice body" (test-assert "inv-1 inv-notes is in invoice body"
(member (member
@ -257,12 +257,13 @@
(test-equal "inv-1 sparse simple entry headers are correct" (test-equal "inv-1 sparse simple entry headers are correct"
(case variant (case variant
((invoice) '("Net Price" "Tax" "Total Price" "Amount Due")) ((invoice) '("Net Price" "Tax" "Total Price" "Amount Due"))
(else '("Tax" "Total Price" "Amount Due"))) ((fancy-invoice) '("Net Price" "Tax" "Total\xa0Price" "Amount\xa0Due"))
((easy-invoice) '("Tax" "Total Price" "Amount Due")))
(sxml-main-get-row-col sxml #f 1)) (sxml-main-get-row-col sxml #f 1))
(test-equal "inv-1 sparse simple entry amounts are correct" (test-equal "inv-1 sparse simple entry amounts are correct"
(case variant (case variant
((invoice) '("$6.00" "$0.00" "$6.00" "$6.00")) ((invoice fancy-invoice) '("$6.00" "$0.00" "$6.00" "$6.00"))
(else '("$0.00" "$6.00" "$6.00"))) ((easy-invoice) '("$0.00" "$6.00" "$6.00")))
(sxml-main-get-row-col sxml #f -1))) (sxml-main-get-row-col sxml #f -1)))
(test-end "inv-1 simple entry, sparse options") (test-end "inv-1 simple entry, sparse options")
@ -296,10 +297,11 @@
(test-equal "inv-2 simple entry details are correct" (test-equal "inv-2 simple entry details are correct"
'("entry-inv-2-desc" "entry-inv-2-action" "2.00" "$3.00" "0.00 %" "T" "$0.00" "$6.00") '("entry-inv-2-desc" "entry-inv-2-action" "2.00" "$3.00" "0.00 %" "T" "$0.00" "$6.00")
(cdr (sxml-main-get-row-col sxml 1 #f))) (cdr (sxml-main-get-row-col sxml 1 #f)))
(test-equal "inv-2 cust-name is correct" (unless (eq? variant 'fancy-invoice)
'("cust-1-name") (test-equal "inv-2 cust-name is correct"
((sxpath '(// (table 2) // tbody // tr // td // *text*)) '("cust-1-name")
sxml)) ((sxpath '(// (table 2) // tbody // tr // td // *text*))
sxml)))
(test-assert "inv-2 inv-notes is in invoice body" (test-assert "inv-2 inv-notes is in invoice body"
(member (member
"inv-2-notes" "inv-2-notes"
@ -335,10 +337,11 @@
(test-equal "inv-3 simple entry details are correct" (test-equal "inv-3 simple entry details are correct"
'("entry-inv-3-desc" "entry-inv-3-action" "2.00" "$3.00" "T" "$0.00" "$6.00") '("entry-inv-3-desc" "entry-inv-3-action" "2.00" "$3.00" "T" "$0.00" "$6.00")
(cdr (sxml-main-get-row-col sxml 1 #f))) (cdr (sxml-main-get-row-col sxml 1 #f)))
(test-equal "inv-3 vend-name is correct" (unless (eq? variant 'fancy-invoice)
'("vend-1-name") (test-equal "inv-3 vend-name is correct"
((sxpath '(// (table 2) // tbody // tr // td // *text*)) '("vend-1-name")
sxml)) ((sxpath '(// (table 2) // tbody // tr // td // *text*))
sxml)))
(test-assert "inv-3 inv-notes is in invoice body" (test-assert "inv-3 inv-notes is in invoice body"
(member (member
"inv-3-notes" "inv-3-notes"
@ -365,10 +368,11 @@
(test-equal "inv-4 simple entry details are correct" (test-equal "inv-4 simple entry details are correct"
'("entry-inv-4-desc" "entry-inv-4-action" "2.00" "$3.00" "T" "$0.00" "$6.00") '("entry-inv-4-desc" "entry-inv-4-action" "2.00" "$3.00" "T" "$0.00" "$6.00")
(cdr (sxml->table-row-col sxml 3 1 #f))) (cdr (sxml->table-row-col sxml 3 1 #f)))
(test-equal "inv-4 vend-name is correct" (unless (eq? variant 'fancy-invoice)
'("emp-1-name" "emp-1-name") ;FIXME: why is this duplicated???? (test-equal "inv-4 vend-name is correct"
((sxpath '(// (table 2) // tbody // tr // td // *text*)) '("emp-1-name" "emp-1-name") ;FIXME: why is this duplicated????
sxml)) ((sxpath '(// (table 2) // tbody // tr // td // *text*))
sxml)))
(test-assert "inv-4 inv-notes is in invoice body" (test-assert "inv-4 inv-notes is in invoice body"
(member (member
"inv-4-notes" "inv-4-notes"
@ -394,10 +398,11 @@
(test-equal "inv-5 simple entry details are correct" (test-equal "inv-5 simple entry details are correct"
'("entry-5-desc" "entry-5-action" "2.00" "$3.00" "0.00 %" "T" "$0.00" "$6.00") '("entry-5-desc" "entry-5-action" "2.00" "$3.00" "0.00 %" "T" "$0.00" "$6.00")
(cdr (sxml-main-get-row-col sxml 1 #f))) (cdr (sxml-main-get-row-col sxml 1 #f)))
(test-equal "inv-5 cust-name is correct" (unless (eq? variant 'fancy-invoice)
'("cust-1-name") (test-equal "inv-5 cust-name is correct"
((sxpath '(// (table 2) // tbody // tr // td // *text*)) '("cust-1-name")
sxml))) ((sxpath '(// (table 2) // tbody // tr // td // *text*))
sxml))))
(test-end "inv-5 simple entry") (test-end "inv-5 simple entry")
(test-begin "inv-6") (test-begin "inv-6")
@ -418,10 +423,11 @@
(test-equal "inv-6 simple entry details are correct" (test-equal "inv-6 simple entry details are correct"
'("entry-inv-6-desc" "entry-inv-6-action" "2.00" "$3.00" "T" "$0.00" "$6.00") '("entry-inv-6-desc" "entry-inv-6-action" "2.00" "$3.00" "T" "$0.00" "$6.00")
(cdr (sxml-main-get-row-col sxml 1 #f))) (cdr (sxml-main-get-row-col sxml 1 #f)))
(test-equal "inv-6 vend-name is correct" (unless (eq? variant 'fancy-invoice)
'("vend-1-name") (test-equal "inv-6 vend-name is correct"
((sxpath '(// (table 2) // tbody // tr // td // *text*)) '("vend-1-name")
sxml)) ((sxpath '(// (table 2) // tbody // tr // td // *text*))
sxml)))
(test-assert "inv-6 inv-3-notes is in invoice body" (test-assert "inv-6 inv-3-notes is in invoice body"
(member (member
"inv-3-notes" "inv-3-notes"
@ -447,10 +453,11 @@
(test-equal "inv-7 simple entry details are correct" (test-equal "inv-7 simple entry details are correct"
'("entry-inv-7-desc" "entry-inv-7-action" "2.00" "$3.00" "T" "$0.00" "$6.00") '("entry-inv-7-desc" "entry-inv-7-action" "2.00" "$3.00" "T" "$0.00" "$6.00")
(cdr (sxml-main-get-row-col sxml 1 #f))) (cdr (sxml-main-get-row-col sxml 1 #f)))
(test-equal "inv-7 vend-name is correct" (unless (eq? variant 'fancy-invoice)
'("emp-1-name" "emp-1-name") ;FIXME: why is this duplicated???? (test-equal "inv-7 vend-name is correct"
((sxpath '(// (table 2) // tbody // tr // td // *text*)) '("emp-1-name" "emp-1-name") ;FIXME: why is this duplicated????
sxml)) ((sxpath '(// (table 2) // tbody // tr // td // *text*))
sxml)))
(test-assert "inv-7 inv-4-notes is in invoice body" (test-assert "inv-7 inv-4-notes is in invoice body"
(member (member
"inv-4-notes" "inv-4-notes"
@ -546,14 +553,14 @@
"Terms:\xa0billterm-desc" "Terms:\xa0billterm-desc"
((sxpath '(// body // *text*)) sxml))) ((sxpath '(// body // *text*)) sxml)))
(case variant (case variant
((invoice fancy-invoice) ((invoice)
(test-equal "inv-8 invoice date is in invoice body" (test-equal "inv-8 invoice date is in invoice body"
'("Invoice Date:\xa0") '("Invoice Date:\xa0")
(sxml->table-row-col sxml 2 1 1)) (sxml->table-row-col sxml 2 1 1))
(test-equal "inv-8 due date is in invoice body" (test-equal "inv-8 due date is in invoice body"
'("Due Date:\xa0") '("Due Date:\xa0")
(sxml->table-row-col sxml 2 2 1))) (sxml->table-row-col sxml 2 2 1)))
(else ((easy-invoice)
(test-equal "inv-8 invoice date is in invoice body" (test-equal "inv-8 invoice date is in invoice body"
'("Date:\xa0") '("Date:\xa0")
(sxml->table-row-col sxml 3 1 1)) (sxml->table-row-col sxml 3 1 1))
@ -564,7 +571,9 @@
'("$2,133.25" "$2,061.96" "$2,133.25" "$2,061.96" "$2,133.25" "$2,133.25" '("$2,133.25" "$2,061.96" "$2,133.25" "$2,061.96" "$2,133.25" "$2,133.25"
"$1,851.95" "$1,859.30" "$16,368.17" "$1,111.01" "$17,479.18" "$1,851.95" "$1,859.30" "$16,368.17" "$1,111.01" "$17,479.18"
"-$17,479.18" "$0.00") "-$17,479.18" "$0.00")
(sxml->table-row-col sxml 4 #f -1)) (if (eq? variant 'fancy-invoice)
(sxml->table-row-col sxml 3 #f -1)
(sxml->table-row-col sxml 4 #f -1)))
(test-assert "inv-8 is fully paid up!" (test-assert "inv-8 is fully paid up!"
(gncInvoiceIsPaid inv-8)))) (gncInvoiceIsPaid inv-8))))
(test-end "combinations of gncEntry options"))) (test-end "combinations of gncEntry options")))