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 silly mistake

Browse Source
This commit is contained in:
christopherlam 2017-12-20 11:57:35 +08:00 committed by GitHub
parent 9af6f184ef
commit a847d441f1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/app-utils/test/test-date-utilities.scm
View File

@ -7,12 +7,12 @@
(define (create-time64 l)
(let ((now (gnc-localtime (current-time))))
(set-tm:sec now (list-ref l 0))
(set-tm:min now (list-ref l 1))
(set-tm:hour now (list-ref l 2))
(set-tm:mday now (list-ref l 3))
(set-tm:mon now (list-ref l 4))
(set-tm:year now (list-ref l 5))
(set-tm:sec now (list-ref l 5))
(set-tm:min now (list-ref l 4))
(set-tm:hour now (list-ref l 3))
(set-tm:mday now (list-ref l 2))
(set-tm:mon now (list-ref l 1))
(set-tm:year now (list-ref l 0))
(set-tm:isdst now -1)
(gnc-mktime now)))