[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 065ab1b: Bind the time zone so that the tests work everywhere
From: |
Lars Ingebrigtsen |
Subject: |
master 065ab1b: Bind the time zone so that the tests work everywhere |
Date: |
Sat, 22 Aug 2020 17:35:05 -0400 (EDT) |
branch: master
commit 065ab1ba44e891e18c6468c94e7e734e20a7903b
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Bind the time zone so that the tests work everywhere
---
test/lisp/gnus/gnus-icalendar-tests.el | 45 ++++++++++++++++++++++------------
1 file changed, 29 insertions(+), 16 deletions(-)
diff --git a/test/lisp/gnus/gnus-icalendar-tests.el
b/test/lisp/gnus/gnus-icalendar-tests.el
index 04a94e6..48a9996 100644
--- a/test/lisp/gnus/gnus-icalendar-tests.el
+++ b/test/lisp/gnus/gnus-icalendar-tests.el
@@ -48,7 +48,8 @@
(ert-deftest gnus-icalendar-parse ()
"test"
- (let ((event (gnus-icalendar-tests--get-ical-event "
+ (let ((tz (getenv "TZ"))
+ (event (gnus-icalendar-tests--get-ical-event "
BEGIN:VCALENDAR
PRODID:-//Google Inc//Google Calendar 70.9054//EN
VERSION:2.0
@@ -94,22 +95,29 @@ END:VEVENT
END:VCALENDAR
")))
- (should (eq (eieio-object-class event) 'gnus-icalendar-event-request))
- (should (not (gnus-icalendar-event:recurring-p event)))
- (should (string= (gnus-icalendar-event:start event) "2020-12-08 15:00"))
- (with-slots (organizer summary description location end-time uid rsvp
participation-type) event
- (should (string= organizer
"liveintent.com_3bm6fh805bme9uoeliqcle1sag@group.calendar.google.com"))
- (should (string= summary "Townhall | All Company Meeting"))
- (should (string= description "In this meeting\, we will cover topics
from product and engineering presentations and demos to new hire announcements
to watching the late"))
- (should (string= location "New York-22-Town Hall Space (250) [Chrome
Box]"))
- (should (string= (format-time-string "%Y-%m-%d %H:%M" end-time)
"2020-12-08 16:00"))
- (should (string= uid "iipdt88slddpeu7hheuu09sfmd@google.com"))
- (should (not rsvp))
-(should (eq participation-type 'non-participant)))))
+ (unwind-protect
+ (progn
+ ;; Use this form so as not to rely on system tz database.
+ ;; Eg hydra.nixos.org.
+ (setenv "TZ" "CET-1CEST,M3.5.0/2,M10.5.0/3")
+ (should (eq (eieio-object-class event)
'gnus-icalendar-event-request))
+ (should (not (gnus-icalendar-event:recurring-p event)))
+ (should (string= (gnus-icalendar-event:start event) "2020-12-08
15:00"))
+ (with-slots (organizer summary description location end-time uid
rsvp participation-type) event
+ (should (string= organizer
"liveintent.com_3bm6fh805bme9uoeliqcle1sag@group.calendar.google.com"))
+ (should (string= summary "Townhall | All Company
Meeting"))
+ (should (string= description "In this meeting\, we will
cover topics from product and engineering presentations and demos to new hire
announcements to watching the late"))
+ (should (string= location "New York-22-Town Hall Space
(250) [Chrome Box]"))
+ (should (string= (format-time-string "%Y-%m-%d %H:%M"
end-time) "2020-12-08 16:00"))
+ (should (string= uid
"iipdt88slddpeu7hheuu09sfmd@google.com"))
+ (should (not rsvp))
+ (should (eq participation-type 'non-participant))))
+ (setenv "TZ" tz))))
(ert-deftest gnus-icalendary-byday ()
""
- (let ((event (gnus-icalendar-tests--get-ical-event "
+ (let ((tz (getenv "TZ"))
+ (event (gnus-icalendar-tests--get-ical-event "
BEGIN:VCALENDAR
PRODID:Zimbra-Calendar-Provider
VERSION:2.0
@@ -156,6 +164,11 @@ END:VALARM
END:VEVENT
END:VCALENDAR" (list "Mark Hershberger"))))
+ (unwind-protect
+ (progn
+ ;; Use this form so as not to rely on system tz database.
+ ;; Eg hydra.nixos.org.
+ (setenv "TZ" "CET-1CEST,M3.5.0/2,M10.5.0/3")
(should (eq (eieio-object-class event) 'gnus-icalendar-event-request))
(should (gnus-icalendar-event:recurring-p event))
(should (string= (gnus-icalendar-event:recurring-interval event) "1"))
@@ -174,8 +187,8 @@ END:VCALENDAR" (list "Mark Hershberger"))))
<2020-07-27 15:00-15:30 +1w>
<2020-07-28 15:00-15:30 +1w>
<2020-07-29 15:00-15:30 +1w>
-<2020-07-30 15:00-15:30 +1w>"))
- ))
+<2020-07-30 15:00-15:30 +1w>")))
+ (setenv "TZ" tz))))
;; (VCALENDAR nil
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 065ab1b: Bind the time zone so that the tests work everywhere,
Lars Ingebrigtsen <=