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

[report-utilities] test gnc:not-all-zeros

Browse Source
This commit is contained in:
Christopher Lam 2020-12-05 05:43:43 +08:00
parent 9fb38e5351
commit d2f1cc0e37
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnucash/report/test/test-report-utilities.scm
View File

@ -521,6 +521,26 @@
5
(gnc:get-current-account-tree-depth))
(test-equal "gnc:not-all-zeros #t"
#t
(gnc:not-all-zeros '((((((1 2 3) 3 5 6 ((4 8))) (2 3)) (3 4 (5)))))))
(test-equal "gnc:not-all-zeros #f"
#f
(gnc:not-all-zeros '((((((0 0 0) 0 0 0 ((0 0))) (0 0)) (0 0 (0)))))))
(test-equal "gnc:not-all-zeros #f"
#f
(gnc:not-all-zeros 'sym))
(test-equal "gnc:not-all-zeros #f"
#f
(gnc:not-all-zeros '()))
(test-equal "gnc:not-all-zeros #t"
#t
(gnc:not-all-zeros '(1)))
(test-equal "gnc:accounts-and-all-descendants"
(list (account-lookup "GBP Bank")
(account-lookup "GBP Savings")