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-budget] add budget-balance-sheet tests

Browse Source
This commit is contained in:
Christopher Lam 2019-10-16 20:49:12 +08:00
parent 24102e5d17
commit 71bdcdfa60
1 changed files with 74 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
gnucash/report/standard-reports/test/test-budget.scm
View File

@ -32,6 +32,7 @@
(use-modules (sw_engine))
(use-modules (gnucash report standard-reports budget))
(use-modules (gnucash report standard-reports budget-income-statement))
(use-modules (gnucash report standard-reports budget-balance-sheet))
(use-modules (gnucash report report-system test test-extras))
(use-modules (gnucash report stylesheets))
(use-modules (gnucash engine test test-extras))
@ -41,6 +42,7 @@
(setlocale LC_ALL "C")
(define budget-uuid "810ed4b25ef0486ea43bbd3dddb32b11")
(define budget-is-uuid "583c313fcc484efc974c4c844404f454")
(define budget-bs-uuid "ecc35ea9dbfa4e20ba389fc85d59cb69")
(define (run-test)
(test-runner-factory gnc:test-runner)
@ -51,6 +53,9 @@
(test-group-with-cleanup "budget-income-statement.scm"
(test-budget-income-statement)
(teardown))
(test-group-with-cleanup "budget-balance-sheet.scm"
(test-budget-balance-sheet)
(teardown))
(test-end "budget"))
(define (set-option options page tag value)
@ -176,3 +181,72 @@
((sxpath '(// table // (tr 2) // table // (tr 5) // *text*))
sxml)))))
(define (test-budget-balance-sheet)
(let* ((env (create-test-env))
(account-alist (create-test-data))
(budget (gnc:create-budget-and-transactions env account-alist))
(options (gnc:make-report-options budget-bs-uuid))
(bank (assoc-ref account-alist "Bank")))
(display "\nbudget-balance-sheet.scm\n")
(let ((sxml (options->sxml options budget-bs-uuid "budget-bs-basic")))
(test-equal "basic test"
52
(length (sxml->table-row-col sxml 1 #f #f)))
(test-equal "existing assets"
'("Existing Assets" "$3,118.00")
(sxml->table-row-col sxml 1 8 #f))
(test-equal "allocated assets"
'("Allocated Assets" "$120.00")
(sxml->table-row-col sxml 1 9 #f))
(test-equal "unallocated assets"
'("Unallocated Assets" "-$405.00")
(sxml->table-row-col sxml 1 10 #f))
(test-equal "total assets"
'("Total Assets" "$2,833.00")
(sxml->table-row-col sxml 1 11 #f))
(test-equal "existing liab"
'("Existing Liabilities" "$3.00")
(sxml->table-row-col sxml 1 16 #f))
(test-equal "new liab"
'("New Liabilities" "$0.00")
(sxml->table-row-col sxml 1 17 #f))
(test-equal "total liab"
'("Total Liabilities" "$3.00")
(sxml->table-row-col sxml 1 18 #f))
(test-equal "retained earnings"
'("Existing Retained Earnings" "$3,227.00")
(sxml->table-row-col sxml 1 22 #f))
(test-equal "retained losses"
'("New Retained Losses" "$285.00")
(sxml->table-row-col sxml 1 23 #f))
(test-equal "unrealized losses"
'("Unrealized Losses" "$1.00")
(sxml->table-row-col sxml 1 24 #f))
(test-equal "existing equity"
'("Existing Equity" "$3,115.00")
(sxml->table-row-col sxml 1 25 #f))
(test-equal "new equity"
'("New Equity" "-$285.00")
(sxml->table-row-col sxml 1 26 #f))
(test-equal "total equity"
'("Total Equity" "$2,830.00")
(sxml->table-row-col sxml 1 27 #f))
(test-equal "total liab and equity"
'("Total Liabilities & Equity" "$2,833.00")
(sxml->table-row-col sxml 1 29 #f)))))