mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

also 1.6.9 in comments in last change

Browse source
This commit is contained in:
Kevin Ryde 2006-07-07 22:41:49 +00:00
parent c26cb2aee4
commit c8cefa91e2
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -245,9 +245,9 @@
(let ((tm (localtime 86400))) (let ((tm (localtime 86400)))
(string=? "+0000" (strftime "%z" tm)))) (string=? "+0000" (strftime "%z" tm))))
;; prior to guile 1.8.1 this test failed, getting "+0500", because we ;; prior to guile 1.6.9 and 1.8.1 this test failed, getting "+0500",
;; didn't adjust for tm:gmtoff being west of Greenwich versus tm_gmtoff ;; because we didn't adjust for tm:gmtoff being west of Greenwich versus
;; being east of Greenwich ;; tm_gmtoff being east of Greenwich
(pass-if "EST+5" (pass-if "EST+5"
(or have-strftime-%z (throw 'unsupported)) (or have-strftime-%z (throw 'unsupported))
(putenv "TZ=EST+5") (putenv "TZ=EST+5")
@ -291,7 +291,8 @@
(let ((tm (car (strptime "%s" "86400")))) (let ((tm (car (strptime "%s" "86400"))))
(eqv? 0 (tm:gmtoff tm)))) (eqv? 0 (tm:gmtoff tm))))
;; prior to guile 1.8.1 we didn't pass tm_gmtoff back from strptime ;; prior to guile 1.6.9 and 1.8.1 we didn't pass tm_gmtoff back from
;; strptime
(pass-if "gmtoff on EST+5" (pass-if "gmtoff on EST+5"
(or have-strptime-%s (throw 'unsupported)) (or have-strptime-%s (throw 'unsupported))
(putenv "TZ=EST+5") (putenv "TZ=EST+5")