* test/automated/icalendar-tests.el (icalendar-tests--test-export)

(icalendar-tests--test-import): Add debug messages.

diff --git a/test/ChangeLog b/test/ChangeLog
index ae66b25897e5c3ae13c242d086120bb9b6119955..7407f1fe7255d483d1128cd5baba3ccfb5b02881 100644 (file)
--- 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  <monnier@iro.umontreal.ca>

diff --git a/test/automated/icalendar-tests.el b/test/automated/icalendar-tests.el
index 87c474b1a3f69fa20ccfac395fe3ccb7f82a2cd6..85442b2019894cee3eec308423e88ceca4dacdd7 100644 (file)
--- 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)