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

Fix query period in test-account-get-trans-type-splits-interval.

Browse Source 
The query runs from 00:00:00 on the start date to 23:59:59 on the end
date, effectively one day more than the number specified.
This commit is contained in:
John Ralls 2017-03-17 15:16:18 -07:00
parent c4c45e9505
commit e66dd12aa9
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/report/report-system/test/test-report-utilities.scm
View File

@ -27,7 +27,8 @@
(start-date-tp (NDayDelta end-date-tp 10))
(q-end-date-tp (gnc-dmy2timespec-end test-day test-month test-year))
(q-start-date-tp (gnc-dmy2timespec test-day test-month test-year))
(q-start-date-tp (NDayDelta q-start-date-tp 5)))
;; Queries 5 days because start time is 00:00:00 and end time is 23:59:59.
(q-start-date-tp (NDayDelta q-start-date-tp 4)))
(let* ((accounts (env-create-account-structure-alist env (list "Assets"
(list (cons 'type ACCT-TYPE-ASSET))
@ -42,4 +43,9 @@
ACCT-TYPE-ASSET
q-start-date-tp q-end-date-tp)))
;; 10 is the right number (5 days, two splits per tx)
(and (equal? 10 (length splits)))))))
(if (and (equal? 10 (length splits))) #t
(begin
(format #t "~a~a~a~a~%" "Creation Start: " (strftime "%F %T" (localtime (car start-date-tp))) " Creation End: " (strftime "%F %T" (localtime (car end-date-tp))))
(format #t "~a~a~a~a~%" "Query Start: " (strftime "%F %T" (localtime (car q-start-date-tp))) " Query End: " (strftime "%F %T" (localtime (car q-end-date-tp))))
(format #t "~a~a~%" "Incorrect number of splits " (length splits))
#f))))))