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

[test-report-utilities] structure must be retrieved dynamically

Browse Source
This commit is contained in:
Christopher Lam 2018-09-09 19:11:45 +08:00
parent ec1536ad50
commit 3e8acf293d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnucash/report/report-system/test/test-report-utilities.scm
View File

@ -188,7 +188,7 @@
(gnc-commodity-get-namespace (gnc-default-report-currency)) (gnc-commodity-get-namespace (gnc-default-report-currency))
sym)) sym))
(define structure (define (structure)
(list "Root" (list (cons 'type ACCT-TYPE-ASSET)) (list "Root" (list (cons 'type ACCT-TYPE-ASSET))
(list "Asset" (list "Asset"
(list "Bank") (list "Bank")
@ -205,7 +205,7 @@
(define (create-test-data) (define (create-test-data)
(let* ((env (create-test-env)) (let* ((env (create-test-env))
(account-alist (env-create-account-structure-alist env structure)) (account-alist (env-create-account-structure-alist env (structure)))
(asset (cdr (assoc "Asset" account-alist))) (asset (cdr (assoc "Asset" account-alist)))
(bank (cdr (assoc "Bank" account-alist))) (bank (cdr (assoc "Bank" account-alist)))
(gbp-bank (cdr (assoc "GBP Bank" account-alist))) (gbp-bank (cdr (assoc "GBP Bank" account-alist)))