From beab6d49dce3548327b4d2f05697fc93c33c1a09 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sun, 9 May 2004 00:53:11 +0000 Subject: [PATCH] =?UTF-8?q?(test-dst,=20string->date=20local=20DST):=20Tes?= =?UTF-8?q?t=20with=20"EST5EDT"=20instead=20of=20"CET",=20since=20HP-UX=20?= =?UTF-8?q?doesn't=20know=20CET.=20=20Reported=20by=20Andreas=20V=C3=B6gel?= =?UTF-8?q?e.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- test-suite/tests/srfi-19.test | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/test-suite/tests/srfi-19.test b/test-suite/tests/srfi-19.test index 90677989f..d0500917b 100644 --- a/test-suite/tests/srfi-19.test +++ b/test-suite/tests/srfi-19.test @@ -1,7 +1,7 @@ ;;;; srfi-19.test --- test suite for SRFI-19 -*- scheme -*- ;;;; Matthias Koeppe --- June 2001 ;;;; -;;;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. +;;;; Copyright (C) 2001, 2003, 2004 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -65,12 +65,12 @@ incomplete numerical tower implementation.)" (pass-if (format "~A respects local DST if no TZ-OFFSET given" time->date) (let ((time (date->time (make-date 0 0 0 12 1 6 2001 0)))) - ;; on 2001-06-01, there should be two hours zone offset - ;; between CET (CEST) and GMT + ;; on 2001-06-01, there should be 4 hours zone offset + ;; between EST (EDT) and GMT (= (date-zone-offset - (with-tz "CET" + (with-tz "EST5EDT" (time->date time))) - 7200)))) + -14400)))) (define-macro (test-time-conversion a b) (let* ((a->b-sym (symbol-append a '-> b)) @@ -131,8 +131,8 @@ incomplete numerical tower implementation.)" (test-dst modified-julian-day->date date->modified-julian-day) (pass-if "string->date respects local DST if no time zone is read" (time=? (date->time-utc - (with-tz "CET" - (string->date "2001-06-01@14:00" "~Y-~m-~d@~H:~M"))) + (with-tz "EST5EDT" + (string->date "2001-06-01@08:00" "~Y-~m-~d@~H:~M"))) (date->time-utc (make-date 0 0 0 12 1 6 2001 0)))) ;; check time comparison procedures