From d8f3107ed3d05552b5e85de435f64c00ae99428a Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Tue, 8 Dec 2020 20:21:10 +0800 Subject: [PATCH] [test-report-utilities] add 4th txn to bank1 as originally written --- gnucash/report/test/test-report-utilities.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gnucash/report/test/test-report-utilities.scm b/gnucash/report/test/test-report-utilities.scm index 4a8ed1cb86..647540b2d9 100644 --- a/gnucash/report/test/test-report-utilities.scm +++ b/gnucash/report/test/test-report-utilities.scm @@ -634,7 +634,7 @@ (env-transfer env 15 01 1970 income bank1 10) (env-transfer env 15 02 1970 income bank1 20) -; (env-transfer env 15 03 1970 income bank1 40) + (env-transfer env 15 03 1970 income bank1 40) (let ((clos (env-transfer env 18 03 1970 income bank1 80))) (xaccTransSetIsClosingTxn clos #t)) @@ -648,11 +648,11 @@ (env-transfer env 15 01 1970 income bank4 18) (test-equal "1 txn in each slot" - '(("USD" . 0) ("USD" . 10) ("USD" . 30) ("USD" . 110)) + '(("USD" . 0) ("USD" . 10) ("USD" . 30) ("USD" . 150)) (map monetary->pair (gnc:account-get-balances-at-dates bank1 dates))) (test-equal "1 txn in each slot, tests #:split->amount to ignore closing" - '(("USD" . 0) ("USD" . 10) ("USD" . 30) ("USD" . 30)) + '(("USD" . 0) ("USD" . 10) ("USD" . 30) ("USD" . 70)) (map monetary->pair (gnc:account-get-balances-at-dates bank1 dates #:split->amount @@ -673,7 +673,7 @@ (map monetary->pair (gnc:account-get-balances-at-dates bank4 dates))) (test-equal "1 txn in each slot" - '(#f 10 30 110) + '(#f 10 30 150) (gnc:account-accumulate-at-dates bank1 dates)) (test-equal "2 txn before start, 1 in middle"