diff options
| -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) |