From 288d2041e5c0b70282dcbfa9f00cd3d6740f83fa Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 23 Jan 2017 19:43:22 -0500
Subject: Fix tests that fail during daylight savings time.

lol oops
---
 tests/post.scm  | 3 ++-
 tests/utils.scm | 3 ++-
 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)
-- 
cgit v1.2.3