[Emacs-diffs] trunk r113673: * test/automated/icalendar-tests.el (icalendar-tests--test-export)

[Glenn Morris]

------------------------------------------------------------
revno: 113673
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-08-03 09:44:18 -0700
message:
  * test/automated/icalendar-tests.el (icalendar-tests--test-export)
  (icalendar-tests--test-import): Add debug messages.
modified:
  test/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-8588
  test/automated/icalendar-tests.el 
icalendartestsuite.e-20091113204419-o5vbwnq5f7feedwu-8590

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2013-08-03 01:43:30 +0000
+++ b/test/ChangeLog    2013-08-03 16:44:18 +0000
@@ -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  <address@hidden>

=== modified file 'test/automated/icalendar-tests.el'
--- a/test/automated/icalendar-tests.el 2013-08-03 01:02:51 +0000
+++ b/test/automated/icalendar-tests.el 2013-08-03 16:44:18 +0000
@@ -433,7 +433,9 @@
        (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 @@
   (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)