IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-12-01 21:19:16 -06:00
Code Issues Packages Projects Releases Wiki Activity

[test-budget] add tests for envelope budgeting

Browse Source
This commit is contained in:
Christopher Lam 2019-07-13 10:11:42 +08:00
parent ec28835d78
commit 89749a1b63
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -165,4 +165,11 @@
'("Bank" "$40.00" "-$20.00" "$60.00" "." "$67.00" "-$67.00"
"$60.00" "$77.00" "-$17.00" "$100.00" "$124.00" "-$24.00")
(sxml->table-row-col sxml 1 5 #f)))
(set-option options "General" "Use envelope budgeting" #t)
(let ((sxml (options->sxml options "envelope budgeting")))
(test-equal "envelope budgeting"
'("Bank" "$60.00" "$15.00" "$45.00" "$60.00" "$82.00" "-$22.00"
"$120.00" "$159.00" "-$39.00" "$120.00" "$159.00" "-$39.00")
(sxml->table-row-col sxml 1 5 #f)))
))