summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2017-01-23 19:43:22 -0500
committerDavid Thompson <dthompson2@worcester.edu>2017-01-23 19:43:22 -0500
commit288d2041e5c0b70282dcbfa9f00cd3d6740f83fa (patch)
tree5b11ce5fa9a65b99bc486ec0d205f9ea37c90511
parent1ef922f8f82f05f3763078a4510d747f0af9a22b (diff)
Fix tests that fail during daylight savings time.
lol oops
-rw-r--r--tests/post.scm3
-rw-r--r--tests/utils.scm3
2 files changed, 4 insertions, 2 deletions
diff --git a/tests/post.scm b/tests/post.scm
index 38fcfbe..b0407c9 100644
--- a/tests/post.scm
+++ b/tests/post.scm
@@ -26,7 +26,8 @@
(define (make-date* year month day)
(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"
'(hello test)
diff --git a/tests/utils.scm b/tests/utils.scm
index 9816769..c7df3f4 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -76,7 +76,8 @@
(take-up-to 2 '(1 2 3)))
(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"))
(test-end)