From d2f1cc0e379cfcf7bece0c2373613aa67ccb9a02 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sat, 5 Dec 2020 05:43:43 +0800 Subject: [PATCH] [report-utilities] test gnc:not-all-zeros --- gnucash/report/test/test-report-utilities.scm | 20 +++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/gnucash/report/test/test-report-utilities.scm b/gnucash/report/test/test-report-utilities.scm index 7cb732581e..2d1437a136 100644 --- a/gnucash/report/test/test-report-utilities.scm +++ b/gnucash/report/test/test-report-utilities.scm @@ -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")