diff options
| author | David Thompson <dthompson2@worcester.edu> | 2017-01-23 19:43:22 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2017-01-23 19:43:22 -0500 |
| commit | 288d2041e5c0b70282dcbfa9f00cd3d6740f83fa (patch) | |
| tree | 5b11ce5fa9a65b99bc486ec0d205f9ea37c90511 | |
| parent | 1ef922f8f82f05f3763078a4510d747f0af9a22b (diff) | |
Fix tests that fail during daylight savings time.
lol oops
| -rw-r--r-- | tests/post.scm | 3 | ||||
| -rw-r--r-- | 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) |