From 5e471f0dbc0f9b42646a3689552723902b990f76 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 3 Aug 2013 09:44:18 -0700 Subject: [PATCH] * test/automated/icalendar-tests.el (icalendar-tests--test-export) (icalendar-tests--test-import): Add debug messages. --- test/ChangeLog | 2 +- test/automated/icalendar-tests.el | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/test/ChangeLog b/test/ChangeLog index ae66b25897e..7407f1fe725 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -4,7 +4,7 @@ * automated/icalendar-tests.el (icalendar-tests--test-export) (icalendar-tests--test-import): - Use getenv/setenv rather than set-time-zone-rule. + Use getenv/setenv rather than set-time-zone-rule. Add debug messages. (icalendar-tests--test-import): Reset zone even if error occurred. 2013-08-02 Stefan Monnier diff --git a/test/automated/icalendar-tests.el b/test/automated/icalendar-tests.el index 87c474b1a3f..85442b20198 100644 --- a/test/automated/icalendar-tests.el +++ b/test/automated/icalendar-tests.el @@ -433,7 +433,9 @@ and ISO style input data must use english month names." (icalendar-recurring-start-year 2000)) (unwind-protect (progn + (message "Current time zone: %s" (current-time-zone)) (setenv "TZ" "CET") + (message "Current time zone: %s" (current-time-zone)) (when input-iso (let ((calendar-month-name-array ["January" "February" "March" "April" "May" "June" "July" "August" @@ -674,7 +676,9 @@ Argument EXPECTED-AMERICAN expected american style diary string." (let ((timezone (getenv "TZ"))) (unwind-protect (progn + (message "Current time zone: %s" (current-time-zone)) (setenv "TZ" "CET") + (message "Current time zone: %s" (current-time-zone)) (with-temp-buffer (if (string-match "^BEGIN:VCALENDAR" input) (insert input) -- 2.39.2