mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

(test-dst, string->date local DST): Test with

Browse source 
"EST5EDT" instead of "CET", since HP-UX doesn't know CET.  Reported by
Andreas Vögele.
This commit is contained in:
Kevin Ryde 2004-05-09 00:53:11 +00:00
parent 5ad9bb4b39
commit beab6d49dc
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
test-suite/tests/srfi-19.test
View file

@ -1,7 +1,7 @@
;;;; srfi-19.test --- test suite for SRFI-19 -*- scheme -*- ;;;; srfi-19.test --- test suite for SRFI-19 -*- scheme -*-
;;;; Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de> --- June 2001 ;;;; Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de> --- 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 ;;;; 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 ;;;; 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" (pass-if (format "~A respects local DST if no TZ-OFFSET given"
time->date) time->date)
(let ((time (date->time (make-date 0 0 0 12 1 6 2001 0)))) (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 ;; on 2001-06-01, there should be 4 hours zone offset
;; between CET (CEST) and GMT ;; between EST (EDT) and GMT
(= (date-zone-offset (= (date-zone-offset
(with-tz "CET" (with-tz "EST5EDT"
(time->date time))) (time->date time)))
7200)))) -14400))))
(define-macro (test-time-conversion a b) (define-macro (test-time-conversion a b)
(let* ((a->b-sym (symbol-append 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) (test-dst modified-julian-day->date date->modified-julian-day)
(pass-if "string->date respects local DST if no time zone is read" (pass-if "string->date respects local DST if no time zone is read"
(time=? (date->time-utc (time=? (date->time-utc
(with-tz "CET" (with-tz "EST5EDT"
(string->date "2001-06-01@14:00" "~Y-~m-~d@~H:~M"))) (string->date "2001-06-01@08:00" "~Y-~m-~d@~H:~M")))
(date->time-utc (date->time-utc
(make-date 0 0 0 12 1 6 2001 0)))) (make-date 0 0 0 12 1 6 2001 0))))
;; check time comparison procedures ;; check time comparison procedures