Small patch for srfi-19.test on HP-UX

[Andreas Vögele]

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 "address@hidden:00" "address@hidden:~M")))
                   (date->time-utc
                    (make-date 0 0 0 12 1 6 2001 0))))