mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

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

Browse Source 
(icalendar-tests--test-import): Remove debug messages.
This commit is contained in:
Glenn Morris 2013-08-03 21:34:01 -07:00
parent f0b79313d9
commit f8654242f1
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
test/ChangeLog
View File

@ -2,6 +2,7 @@
* automated/icalendar-tests.el (icalendar-tests--test-export)
(icalendar-tests--test-import): Try more precise TZ specification.
Remove debug messages.
2013-08-03 Glenn Morris <rgm@gnu.org>

12
test/automated/icalendar-tests.el
View File

@ -433,9 +433,11 @@ 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))
;;; (message "Current time zone: %s" (current-time-zone))
;; 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")
(message "Current time zone: %s" (current-time-zone))
;;; (message "Current time zone: %s" (current-time-zone))
(when input-iso
(let ((calendar-month-name-array
["January" "February" "March" "April" "May" "June" "July" "August"
@ -676,9 +678,11 @@ Argument EXPECTED-AMERICAN expected american style diary string."
(let ((timezone (getenv "TZ")))
(unwind-protect
(progn
(message "Current time zone: %s" (current-time-zone))
;;; (message "Current time zone: %s" (current-time-zone))
;; 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")
(message "Current time zone: %s" (current-time-zone))
;;; (message "Current time zone: %s" (current-time-zone))
(with-temp-buffer
(if (string-match "^BEGIN:VCALENDAR" input)
(insert input)