The time zone CET does not exist on HP-UX. The following patch
modifies srfi-19.test so that the time zone MEZ-1MESZ is used on
HP-UX.
Index: srfi-19.test
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/test-suite/tests/srfi-19.test,v
retrieving revision 1.3
diff -u -r1.3 srfi-19.test
--- srfi-19.test 22 Aug 2003 22:30:52 -0000 1.3
+++ srfi-19.test 25 Apr 2004 14:36:30 -0000
@@ -26,6 +26,11 @@
:use-module (srfi srfi-19)
:use-module (ice-9 format))
+;; The time zone CET does not exist on HP-UX.
+(define CET (if (string=? (utsname:sysname (uname)) "HP-UX")
+ "MEZ-1MESZ"
+ "CET"))
+
(define (with-tz* tz thunk)
"Temporarily set the TZ environment variable to the passed string
value and call THUNK."
@@ -68,7 +73,7 @@
;; on 2001-06-01, there should be two hours zone offset
;; between CET (CEST) and GMT
(= (date-zone-offset
- (with-tz "CET"
+ (with-tz CET
(time->date time)))
7200))))
@@ -131,7 +136,7 @@
(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"
+ (with-tz CET
(string->date "[EMAIL PROTECTED]:00" "[EMAIL PROTECTED]:~M")))
(date->time-utc
(make-date 0 0 0 12 1 6 2001 0))))
_______________________________________________
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile
