dan
/
haunt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix tests that fail during daylight savings time. 

lol oops
This commit is contained in:
David Thompson 2017-01-23 19:43:22 -05:00
parent 1ef922f8f8
commit 288d2041e5
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/post.scm
View File

@ -26,7 +26,8 @@
(define (make-date* year month day) (define (make-date* year month day)
(make-date 0 0 0 0 day month year 0)) (make-date 0 0 0 0 day month year 0))
(define %tzoffset (date-zone-offset (current-date))) (define %tzoffset
(date-zone-offset (string->date "2015-09-05" "~Y~m~d")))
(test-equal "post-ref" (test-equal "post-ref"
'(hello test) '(hello test)

3
tests/utils.scm
View File

@ -76,7 +76,8 @@
(take-up-to 2 '(1 2 3))) (take-up-to 2 '(1 2 3)))
(test-equal "string->date*" (test-equal "string->date*"
(make-date 0 0 15 06 05 09 2015 (date-zone-offset (current-date))) (make-date 0 0 15 06 05 09 2015
(date-zone-offset (string->date "2015-09-05" "~Y~m~d")))
(string->date* "2015-09-05 06:15")) (string->date* "2015-09-05 06:15"))
(test-end) (test-end)