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-charts] also test income-expense-barchart amounts

Browse Source
This commit is contained in:
Christopher Lam 2018-09-12 18:35:11 +08:00
parent 9bba9474cb
commit 381293655f
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
gnucash/report/standard-reports/test/test-charts.scm
View File

@ -119,14 +119,16 @@
(options->render uuid options (format #f "test-null ~a default options" variant)))) (options->render uuid options (format #f "test-null ~a default options" variant))))
;; test net worth barchart amounts ;; test net worth barchart amounts
(when (eq? variant 'net-worth-barchart) (when (or (eq? variant 'net-worth-barchart)
(eq? variant 'income-expense-barchart))
;; create 100 daily transactions from 1/1/70. this is meant to ;; create 100 daily transactions from 1/1/70. this is meant to
;; test chart date ranges. day 0 = $0, day 1 = $1, etc ;; test chart date ranges. day 0 = $0, day 1 = $1, etc
(let loop ((date (gnc-dmy2time64 1 1 1970)) (idx 0)) (let loop ((date (gnc-dmy2time64 1 1 1970)) (idx 0))
(when (<= idx 100) (when (<= idx 100)
(env-create-transaction env date bank income idx) (env-create-transaction env date bank income idx)
(loop (incdate date DayDelta) (1+ idx)))) (loop (incdate date DayDelta) (1+ idx))))
(let* ((options (default-testing-options))) (when (eq? variant 'net-worth-barchart)
(let* ((options (default-testing-options)))
(set-option! options "General" "Start Date" (cons 'absolute (gnc-dmy2time64 15 1 1970))) (set-option! options "General" "Start Date" (cons 'absolute (gnc-dmy2time64 15 1 1970)))
(set-option! options "General" "End Date" (cons 'absolute (gnc-dmy2time64 15 3 1970))) (set-option! options "General" "End Date" (cons 'absolute (gnc-dmy2time64 15 3 1970)))
(set-option! options "General" "Step Size" 'DayDelta) (set-option! options "General" "Step Size" 'DayDelta)
@ -141,8 +143,27 @@
(sxml->table-row-col sxml 1 1 #f)) (sxml->table-row-col sxml 1 1 #f))
(test-equal "net-worth-barchart: last data row" (test-equal "net-worth-barchart: last data row"
'("03/15/70" "$2,701.00" "$0.00" "$2,701.00") '("03/15/70" "$2,701.00" "$0.00" "$2,701.00")
(sxml->table-row-col sxml 1 -1 #f)) (sxml->table-row-col sxml 1 -1 #f)))))
)))
(when (eq? variant 'income-expense-barchart)
(let* ((options (default-testing-options)))
(set-option! options "General" "Start Date" (cons 'absolute (gnc-dmy2time64 15 1 1970)))
(set-option! options "General" "End Date" (cons 'absolute (gnc-dmy2time64 15 3 1970)))
(set-option! options "General" "Step Size" 'DayDelta)
(set-option! options "Display" "Show table" #t)
(set-option! options "Accounts" "Accounts" (list income expense))
(let ((sxml (gnc:options->sxml uuid options (format #f "test-net-charts ~a 2 years" variant)
"test-table" #:strip-tag "script")))
(test-equal "income-expense-barchart: first row"
'("Date" "Income" "Expense" "Net Profit")
(sxml->table-row-col sxml 1 0 #f))
(test-equal "income-expense: first data row"
'("01/15/70" "$14.00" "$0.00" "$14.00")
(sxml->table-row-col sxml 1 1 #f))
(test-equal "income-expense: last data row"
'("03/15/70" "$73.00" "$0.00" "$73.00")
(sxml->table-row-col sxml 1 -1 #f))))
))
(case variant (case variant
((liability-piechart stock-piechart asset-piechart expense-piechart income-piechart) ((liability-piechart stock-piechart asset-piechart expense-piechart income-piechart)