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

report/test/* untabify/delete-trailing-whitespace

Browse Source
This commit is contained in:
Christopher Lam 2023-04-20 09:00:39 +08:00
parent 7b3702e7e6
commit a0f94ecd75
2 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnucash/report/test/test-report-utilities.scm
View File

@ -50,19 +50,19 @@
(q-start-date (NDayDelta q-start-date 5)))
(let* ((accounts (env-create-account-structure-alist env (list "Assets"
(list (cons 'type ACCT-TYPE-ASSET))
(list "Bank Account")
(list "Wallet"))))
(bank-account (cdr (assoc "Bank Account" accounts)))
(wallet (cdr (assoc "Wallet" accounts))))
(list (cons 'type ACCT-TYPE-ASSET))
(list "Bank Account")
(list "Wallet"))))
(bank-account (cdr (assoc "Bank Account" accounts)))
(wallet (cdr (assoc "Wallet" accounts))))
(env-create-daily-transactions env start-date end-date bank-account wallet)
(format #t "Created transactions for each day from ~a to ~a~%" (gnc-ctime start-date) (gnc-ctime end-date))
(let ((splits (gnc:account-get-trans-type-splits-interval (list bank-account wallet)
ACCT-TYPE-ASSET
q-start-date q-end-date)))
;; 10 is the right number (5 days, two splits per tx)
(test-equal "length splits = 10"
ACCT-TYPE-ASSET
q-start-date q-end-date)))
;; 10 is the right number (5 days, two splits per tx)
(test-equal "length splits = 10"
10
(length splits)))))
(teardown)))

14
gnucash/report/test/test-test-extras.scm
View File

@ -28,12 +28,12 @@
(define (test-create-account-structure)
(let ((env (create-test-env)))
(let ((accounts (env-create-account-structure env (list "Assets"
(list (cons 'type ACCT-TYPE-ASSET))
(list "Bank Account")
(list "Savings"
(list "Instant")
(list "30 day notice"))))))
(list (cons 'type ACCT-TYPE-ASSET))
(list "Bank Account")
(list "Savings"
(list "Instant")
(list "30 day notice"))))))
(format #t "Accounts ~a\n" accounts)
(and (= 3 (length accounts))
(equal? "Assets" (xaccAccountGetName (car accounts)))
))))
(equal? "Assets" (xaccAccountGetName (car accounts)))
))))