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

Add cashflow test

Browse Source
This commit is contained in:
Peter Broadbery 2015-11-08 22:37:08 +00:00
parent 516b3025b1
commit 8d12338244
2 changed files with 128 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/report/standard-reports/test/Makefile.am
View File

@ -3,6 +3,7 @@ MODULE_TESTS=test-load-module
TESTS = $(SCM_TESTS) $(MODULE_TESTS)
SCM_TESTS = \
test-cash-flow \
test-standard-category-report \
test-standard-net-barchart \
test-standard-net-linechart

127
src/report/standard-reports/test/test-cash-flow.scm Normal file
View File

@ -0,0 +1,127 @@
(use-modules (gnucash gnc-module))
(gnc:module-begin-syntax (gnc:module-load "gnucash/app-utils" 0))
(use-modules (gnucash report report-system test test-extras))
(use-modules (gnucash report standard-reports cash-flow))
(use-modules (gnucash report report-system))
(define (run-test)
(and (test test-one-tx-in-cash-flow)
(test test-one-tx-skip-cash-flow)
(test test-both-way-cash-flow)))
(define structure
(list "Root" (list (cons 'type ACCT-TYPE-ASSET))
(list "Asset"
(list "Bank")
(list "Wallet"))
(list "Expenses" (list (cons 'type ACCT-TYPE-EXPENSE)))))
(define (NDayDelta n)
(let ((ddt (make-zdate)))
(set-tm:year ddt n)
ddt))
(define (test-one-tx-in-cash-flow)
(let* ((env (create-test-env))
(account-alist (env-create-account-structure-alist env structure))
(bank-account (cdr (assoc "Bank" account-alist)))
(wallet-account (cdr (assoc "Wallet" account-alist)))
(expense-account (cdr (assoc "Expenses" account-alist)))
(today (gnc:date->timepair (localtime (current-time))))
(exchange-fn (lambda (currency amount date) amount))
(report-currency (gnc-default-report-currency))
)
(env-create-transaction env today bank-account expense-account (gnc:make-gnc-numeric 100 1))
(let ((result (cash-flow-calc-money-in-out (list (cons 'accounts (list bank-account))
(cons 'to-date-tp today)
(cons 'from-date-tp (decdate today (NDayDelta 1)))
(cons 'report-currency report-currency)
(cons 'include-trading-accounts #f)
(cons 'to-report-currency exchange-fn)))))
(let* ((money-in-collector (cdr (assq 'money-in-collector result)))
(money-out-collector (cdr (assq 'money-out-collector result)))
(money-in-alist (cdr (assq 'money-in-alist result)))
(money-out-alist (cdr (assq 'money-out-alist result)))
(expense-acc-in-collector (cadr (assoc expense-account money-in-alist))))
(and (null? money-out-alist)
(equal? (gnc:make-gnc-numeric 10000 100)
(gnc:gnc-monetary-amount (gnc:sum-collector-commodity expense-acc-in-collector
report-currency exchange-fn)))
(equal? (gnc:make-gnc-numeric 10000 100)
(gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-in-collector
report-currency exchange-fn)))
(equal? (gnc:make-gnc-numeric 0 1)
(gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-out-collector
report-currency exchange-fn)))
)))))
(define (test-one-tx-skip-cash-flow)
(let* ((env (create-test-env))
(account-alist (env-create-account-structure-alist env structure))
(bank-account (cdr (assoc "Bank" account-alist)))
(wallet-account (cdr (assoc "Wallet" account-alist)))
(expense-account (cdr (assoc "Expenses" account-alist)))
(today (gnc:date->timepair (localtime (current-time))))
(exchange-fn (lambda (currency amount date) amount))
(report-currency (gnc-default-report-currency))
)
(env-create-transaction env today bank-account wallet-account (gnc:make-gnc-numeric 100 1))
(let ((result (cash-flow-calc-money-in-out (list (cons 'accounts (list wallet-account bank-account))
(cons 'to-date-tp today)
(cons 'from-date-tp (decdate today (NDayDelta 1)))
(cons 'report-currency report-currency)
(cons 'include-trading-accounts #f)
(cons 'to-report-currency exchange-fn)))))
(let* ((money-in-collector (cdr (assq 'money-in-collector result)))
(money-out-collector (cdr (assq 'money-out-collector result)))
(money-in-alist (cdr (assq 'money-in-alist result)))
(money-out-alist (cdr (assq 'money-out-alist result))))
(and (null? money-in-alist)
(null? money-out-alist)
(equal? (gnc:make-gnc-numeric 0 1)
(gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-in-collector
report-currency exchange-fn)))
(equal? (gnc:make-gnc-numeric 0 1)
(gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-out-collector
report-currency exchange-fn))))))))
(define (test-both-way-cash-flow)
(let* ((env (create-test-env))
(account-alist (env-create-account-structure-alist env structure))
(bank-account (cdr (assoc "Bank" account-alist)))
(wallet-account (cdr (assoc "Wallet" account-alist)))
(expense-account (cdr (assoc "Expenses" account-alist)))
(today (gnc:date->timepair (localtime (current-time))))
(exchange-fn (lambda (currency amount date) amount))
(report-currency (gnc-default-report-currency))
)
(env-create-transaction env today bank-account expense-account (gnc:make-gnc-numeric 100 1))
(env-create-transaction env today expense-account bank-account (gnc:make-gnc-numeric 50 1))
(let ((result (cash-flow-calc-money-in-out (list (cons 'accounts (list wallet-account bank-account))
(cons 'to-date-tp today)
(cons 'from-date-tp (decdate today (NDayDelta 1)))
(cons 'report-currency report-currency)
(cons 'include-trading-accounts #f)
(cons 'to-report-currency exchange-fn)))))
(let* ((money-in-collector (cdr (assq 'money-in-collector result)))
(money-out-collector (cdr (assq 'money-out-collector result)))
(money-in-alist (cdr (assq 'money-in-alist result)))
(money-out-alist (cdr (assq 'money-out-alist result)))
(expense-acc-in-collector (cadr (assoc expense-account money-in-alist)))
(expense-acc-out-collector (cadr (assoc expense-account money-out-alist)))
(expenses-in-total (gnc:gnc-monetary-amount (gnc:sum-collector-commodity expense-acc-in-collector
report-currency
exchange-fn)))
(expenses-out-total (gnc:gnc-monetary-amount (gnc:sum-collector-commodity expense-acc-out-collector
report-currency
exchange-fn))))
(and (equal? (gnc:make-gnc-numeric 10000 100) expenses-in-total)
(equal? (gnc:make-gnc-numeric 5000 100) expenses-out-total)
(equal? (gnc:make-gnc-numeric 10000 100)
(gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-in-collector
report-currency exchange-fn)))
(equal? (gnc:make-gnc-numeric 5000 100)
(gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-out-collector
report-currency exchange-fn))))))))