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

TP->T64: gnucash/report/report-system/test/test-report-utilities.scm

Browse Source
This commit is contained in:
Christopher Lam 2017-12-22 22:23:04 +08:00
parent e6f3abba30
commit 22422f7759
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,11 +11,10 @@
(define (run-test) (define (run-test)
(test-account-get-trans-type-splits-interval)) (test-account-get-trans-type-splits-interval))
(define (NDayDelta tp n) (define (NDayDelta t64 n)
(let* ((day-secs (* 60 60 24 n)) ; n days in seconds is n times 60 sec/min * 60 min/h * 24 h/day (let* ((day-secs (* 60 60 24 n)) ; n days in seconds is n times 60 sec/min * 60 min/h * 24 h/day
(new-secs (- (car tp) day-secs)) (new-secs (- t64 day-secs)))
(new-tp (cons new-secs 0))) new-secs))
new-tp))
(define (test-account-get-trans-type-splits-interval) (define (test-account-get-trans-type-splits-interval)
(let* ((env (create-test-env)) (let* ((env (create-test-env))
@ -23,11 +22,11 @@
(test-day (tm:mday ts-now)) (test-day (tm:mday ts-now))
(test-month (+ 1 (tm:mon ts-now))) (test-month (+ 1 (tm:mon ts-now)))
(test-year (+ 1900 (tm:year ts-now))) (test-year (+ 1900 (tm:year ts-now)))
(end-date-tp (gnc-dmy2timespec-neutral test-day test-month test-year)) (end-date (gnc-dmy2time64-neutral test-day test-month test-year))
(start-date-tp (NDayDelta end-date-tp 10)) (start-date (NDayDelta end-date 10))
(q-end-date-tp (gnc-dmy2timespec-end test-day test-month test-year)) (q-end-date (gnc-dmy2time64-end test-day test-month test-year))
(q-start-date-tp (gnc-dmy2timespec test-day test-month test-year)) (q-start-date (gnc-dmy2time64 test-day test-month test-year))
(q-start-date-tp (NDayDelta q-start-date-tp 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))
@ -36,10 +35,10 @@
(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-tp end-date-tp 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 (gnc:timepair->secs start-date-tp)) (gnc-ctime (gnc:timepair->secs end-date-tp))) (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-tp q-end-date-tp))) 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)
(or (equal? 10 (length splits)) (begin (format #t "Fail, ~d splits, expected 10~%" (length splits)) #f)))))) (or (equal? 10 (length splits)) (begin (format #t "Fail, ~d splits, expected 10~%" (length splits)) #f))))))