aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2013-08-03 21:34:01 -0700
committerGlenn Morris2013-08-03 21:34:01 -0700
commitf8654242f1a06b4fd7a07ac261ecee240c9b3d69 (patch)
tree80e0e793eacd16e7a269b4547c3c81fddf1bf1a5
parentf0b79313d9be108a17b8a8c689fbf64f6ba75044 (diff)
downloademacs-f8654242f1a06b4fd7a07ac261ecee240c9b3d69.tar.gz
emacs-f8654242f1a06b4fd7a07ac261ecee240c9b3d69.zip
* test/automated/icalendar-tests.el (icalendar-tests--test-export)
(icalendar-tests--test-import): Remove debug messages.
-rw-r--r--test/ChangeLog1
-rw-r--r--test/automated/icalendar-tests.el12
2 files changed, 9 insertions, 4 deletions
diff --git a/test/ChangeLog b/test/ChangeLog
index f3d14786bd9..65e7683dd54 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -2,6 +2,7 @@
2 2
3 * automated/icalendar-tests.el (icalendar-tests--test-export) 3 * automated/icalendar-tests.el (icalendar-tests--test-export)
4 (icalendar-tests--test-import): Try more precise TZ specification. 4 (icalendar-tests--test-import): Try more precise TZ specification.
5 Remove debug messages.
5 6
62013-08-03 Glenn Morris <rgm@gnu.org> 72013-08-03 Glenn Morris <rgm@gnu.org>
7 8
diff --git a/test/automated/icalendar-tests.el b/test/automated/icalendar-tests.el
index 227855681e8..f83052f5ea1 100644
--- a/test/automated/icalendar-tests.el
+++ b/test/automated/icalendar-tests.el
@@ -433,9 +433,11 @@ and ISO style input data must use english month names."
433 (icalendar-recurring-start-year 2000)) 433 (icalendar-recurring-start-year 2000))
434 (unwind-protect 434 (unwind-protect
435 (progn 435 (progn
436 (message "Current time zone: %s" (current-time-zone)) 436;;; (message "Current time zone: %s" (current-time-zone))
437 ;; Use this form so as not to rely on system tz database.
438 ;; Eg hydra.nixos.org.
437 (setenv "TZ" "CET-1CEST,M3.5.0/2,M10.5.0/3") 439 (setenv "TZ" "CET-1CEST,M3.5.0/2,M10.5.0/3")
438 (message "Current time zone: %s" (current-time-zone)) 440;;; (message "Current time zone: %s" (current-time-zone))
439 (when input-iso 441 (when input-iso
440 (let ((calendar-month-name-array 442 (let ((calendar-month-name-array
441 ["January" "February" "March" "April" "May" "June" "July" "August" 443 ["January" "February" "March" "April" "May" "June" "July" "August"
@@ -676,9 +678,11 @@ Argument EXPECTED-AMERICAN expected american style diary string."
676 (let ((timezone (getenv "TZ"))) 678 (let ((timezone (getenv "TZ")))
677 (unwind-protect 679 (unwind-protect
678 (progn 680 (progn
679 (message "Current time zone: %s" (current-time-zone)) 681;;; (message "Current time zone: %s" (current-time-zone))
682 ;; Use this form so as not to rely on system tz database.
683 ;; Eg hydra.nixos.org.
680 (setenv "TZ" "CET-1CEST,M3.5.0/2,M10.5.0/3") 684 (setenv "TZ" "CET-1CEST,M3.5.0/2,M10.5.0/3")
681 (message "Current time zone: %s" (current-time-zone)) 685;;; (message "Current time zone: %s" (current-time-zone))
682 (with-temp-buffer 686 (with-temp-buffer
683 (if (string-match "^BEGIN:VCALENDAR" input) 687 (if (string-match "^BEGIN:VCALENDAR" input)
684 (insert input) 688 (insert input)