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

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

Browse Source 
This reverts commit e66dd12aa9. Because
the test only seems to fail crossing a DST boundary.
This commit is contained in:
John Ralls 2017-03-23 17:09:18 -07:00 committed by Geert Janssens
parent bf86524884
commit 15ef317968
1 changed files with 2 additions and 8 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,8 +27,7 @@
(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))
;; 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)))
(q-start-date-tp (NDayDelta q-start-date-tp 5)))
(let* ((accounts (env-create-account-structure-alist env (list "Assets"
(list (cons 'type ACCT-TYPE-ASSET))
@ -43,9 +42,4 @@
ACCT-TYPE-ASSET
q-start-date-tp q-end-date-tp)))
;; 10 is the right number (5 days, two splits per tx)
(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))))))
(and (equal? 10 (length splits)))))))