728910: fixed bug in equity+liability and fixed unit test

Gnucash · Sep 14, 2023 · 5e57605 · 5e57605
1 parent 02f2037
commit 5e57605
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/gnucash/report/reports/standard/budget-balance-sheet.scm b/gnucash/report/reports/standard/budget-balance-sheet.scm
@@ -570,7 +570,7 @@
 
           ;; Total liability + equity.
           (set! liability-plus-equity
-            (gnc:collector+ liability-balance equity-balance))
+            (gnc:collector+ (gnc:collector- liability-balance) equity-balance))
 
           (gnc:report-percent-done 30)
 

diff --git a/gnucash/report/reports/standard/test/test-budget.scm b/gnucash/report/reports/standard/test/test-budget.scm
@@ -213,15 +213,15 @@
         (sxml->table-row-col sxml 1 11 #f))
 
       (test-equal "existing liab"
-        '("Existing Liabilities" "$3.00")
+        '("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")
+        '("Total Liabilities" "-$3.00")
         (sxml->table-row-col sxml 1 18 #f))
 
       (test-equal "retained earnings"