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))) (q-start-date (NDayDelta q-start-date 5)))
(let* ((accounts (env-create-account-structure-alist env (list "Assets" (let* ((accounts (env-create-account-structure-alist env (list "Assets"
(list (cons 'type ACCT-TYPE-ASSET)) (list (cons 'type ACCT-TYPE-ASSET))
(list "Bank Account") (list "Bank Account")
(list "Wallet")))) (list "Wallet"))))
(bank-account (cdr (assoc "Bank Account" accounts))) (bank-account (cdr (assoc "Bank Account" accounts)))
(wallet (cdr (assoc "Wallet" accounts)))) (wallet (cdr (assoc "Wallet" accounts))))
(env-create-daily-transactions env start-date end-date bank-account wallet) (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)) (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) (let ((splits (gnc:account-get-trans-type-splits-interval (list bank-account wallet)
ACCT-TYPE-ASSET ACCT-TYPE-ASSET
q-start-date q-end-date))) q-start-date q-end-date)))
;; 10 is the right number (5 days, two splits per tx) ;; 10 is the right number (5 days, two splits per tx)
(test-equal "length splits = 10" (test-equal "length splits = 10"
10 10
(length splits))))) (length splits)))))
(teardown))) (teardown)))

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

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