[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Small patch for srfi-19.test on HP-UX
From: |
Andreas Vögele |
Subject: |
Small patch for srfi-19.test on HP-UX |
Date: |
Sun, 25 Apr 2004 17:11:33 +0200 |
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))))
- Small patch for srfi-19.test on HP-UX,
Andreas Vögele <=