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 unit test again

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

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

@ -16,15 +16,11 @@
(set-tm:isdst now -1)
(gnc-mktime now)))
(define (list->time64 l)
(create-time64 (list-ref l 0) (list-ref l 1) (list-ref l 2)
(list-ref l 3) (list-ref l 4) (list-ref l 5)))
(define (weeknums-equal? pair-of-dates)
(let ((d1 (car pair-of-dates))
(d2 (cdr pair-of-dates)))
(equal? (gnc:date-to-week (list->time64 d1))
(gnc:date-to-week (list->time64 d2)))))
(equal? (gnc:date-to-week (create-time64 d1))
(gnc:date-to-week (create-time64 d2)))))
(define (test-weeknum-calculator)
(and (weeknums-equal? (cons '(1970 1 1 0 0 0)