*** guile-core/test-suite/tests/srfi-19.test.orig	Mon Apr 26 07:51:23 2004
--- guile-core/test-suite/tests/srfi-19.test	Mon Apr 26 07:51:46 2004
***************
*** 65,76 ****
    (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
  	     (= (date-zone-offset
! 		 (with-tz "CET"
  		   (time->date time)))
! 		7200))))
  
  (define-macro (test-time-conversion a b)
    (let* ((a->b-sym (symbol-append a '-> b))
--- 65,76 ----
    (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 four hours zone offset
! 	     ;; between EST (EDT) and GMT
  	     (= (date-zone-offset
! 		 (with-tz "EST5EDT"
  		   (time->date time)))
! 		-14400))))
  
  (define-macro (test-time-conversion a b)
    (let* ((a->b-sym (symbol-append a '-> b))
***************
*** 131,138 ****
    (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")))
  		   (date->time-utc
  		    (make-date 0 0 0 12 1 6 2001 0))))
    ;; check time comparison procedures
--- 131,138 ----
    (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 "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