Commit 5e471f0d authored by Glenn Morris's avatar Glenn Morris
Browse files

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

(icalendar-tests--test-import): Add debug messages.
parent 8cd4636c
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
* automated/icalendar-tests.el (icalendar-tests--test-export) * automated/icalendar-tests.el (icalendar-tests--test-export)
(icalendar-tests--test-import): (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. (icalendar-tests--test-import): Reset zone even if error occurred.
2013-08-02 Stefan Monnier <monnier@iro.umontreal.ca> 2013-08-02 Stefan Monnier <monnier@iro.umontreal.ca>
......
...@@ -433,7 +433,9 @@ and ISO style input data must use english month names." ...@@ -433,7 +433,9 @@ and ISO style input data must use english month names."
(icalendar-recurring-start-year 2000)) (icalendar-recurring-start-year 2000))
(unwind-protect (unwind-protect
(progn (progn
(message "Current time zone: %s" (current-time-zone))
(setenv "TZ" "CET") (setenv "TZ" "CET")
(message "Current time zone: %s" (current-time-zone))
(when input-iso (when input-iso
(let ((calendar-month-name-array (let ((calendar-month-name-array
["January" "February" "March" "April" "May" "June" "July" "August" ["January" "February" "March" "April" "May" "June" "July" "August"
...@@ -674,7 +676,9 @@ Argument EXPECTED-AMERICAN expected american style diary string." ...@@ -674,7 +676,9 @@ Argument EXPECTED-AMERICAN expected american style diary string."
(let ((timezone (getenv "TZ"))) (let ((timezone (getenv "TZ")))
(unwind-protect (unwind-protect
(progn (progn
(message "Current time zone: %s" (current-time-zone))
(setenv "TZ" "CET") (setenv "TZ" "CET")
(message "Current time zone: %s" (current-time-zone))
(with-temp-buffer (with-temp-buffer
(if (string-match "^BEGIN:VCALENDAR" input) (if (string-match "^BEGIN:VCALENDAR" input)
(insert input) (insert input)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment