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

(strftime): Force tm:isdst to 0 for the test, for

Browse source 
the benefit of HP-UX.  Reported by Andreas Vögele.
Use set-tm:zone rather than a hard coded vector offset.
This commit is contained in:
Kevin Ryde 2004-05-02 23:25:41 +00:00
parent aa01be865e
commit 020d2dd675
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
test-suite/tests/time.test
View file

@ -1,7 +1,7 @@
;;;; time.test --- test suite for Guile's time functions -*- scheme -*-
;;;; Jim Blandy <jimb@red-bean.com> --- June 1999
;;;;
;;;; Copyright (C) 1999 Free Software Foundation, Inc.
;;;; Copyright (C) 1999, 2004 Free Software Foundation, Inc.
;;;;
;;;; 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
@ -21,8 +21,17 @@
(use-modules (test-suite lib)
(ice-9 regex))
;;;
;;; strftime
;;;
;; Note we must force isdst to get the ZOW zone name out of %Z on HP-UX.
;; If localtime is in daylight savings then it will decide there's no
;; daylight savings zone name for the fake ZOW, and come back empty.
;;
(pass-if "strftime %Z doesn't return garbage"
(let ((t (localtime (current-time))))
(vector-set! t 10 "ZOW")
(set-tm:zone t "ZOW")
(set-tm:isdst t 0)
(string=? (strftime "%Z" t)
"ZOW")))