Fix Bug#15408 (icalendar time zone problem)

2014-07-30 Christophe Deleuze <christophe.deleuze@free.fr>

	* calendar/icalendar.el (icalendar--decode-isodatetime): Use
	actual current-time-zone when converting to local time. (Bug#15408)

2014-07-30  Ulf Jasper  <ulf.jasper@web.de>

	* automated/icalendar-tests.el (icalendar--decode-isodatetime): New test.

2 files changed, 18 insertions, 1 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index 4339dc56ff3..a8727fbef28 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,9 @@
+2014-08-06  Ulf Jasper  <ulf.jasper@web.de>
+
+        * automated/icalendar-tests.el
+        (icalendar--convert-ordinary-to-ical),
+        (icalendar--diarytime-to-isotime): More testcases (Bug#13750).
+
 2014-08-03  Glenn Morris  <rgm@gnu.org>
 
         * automated/Makefile.in (check-tar): New rule.
diff --git a/test/automated/icalendar-tests.el b/test/automated/icalendar-tests.el
index 0f655232e71..a3971989831 100644
--- a/test/automated/icalendar-tests.el
+++ b/test/automated/icalendar-tests.el
@@ -220,6 +220,15 @@ END:VTIMEZONE
                       (car result)))
     (should (string= "subject" (cadr result)))
 
+    ;; with start time
+    (setq result (icalendar--convert-ordinary-to-ical
+                  "&?" "&2010 2 15 12:34 s"))
+    (should (= 2 (length result)))
+    (should (string=  (concat "\nDTSTART;VALUE=DATE-TIME:20100215T123400"
+                              "\nDTEND;VALUE=DATE-TIME:20100215T133400")
+                      (car result)))
+    (should (string= "s" (cadr result)))
+
     ;; with time
     (setq result (icalendar--convert-ordinary-to-ical
                   "&?" "&2010 2 15 12:34-23:45 s"))
@@ -267,7 +276,9 @@ END:VTIMEZONE
   (should (string= "T120100"
                    (icalendar--diarytime-to-isotime "1201" "pm")))
   (should (string= "T125900"
-                   (icalendar--diarytime-to-isotime "1259" "pm"))))
+                   (icalendar--diarytime-to-isotime "1259" "pm")))
+  (should (string= "T150000"
+                   (icalendar--diarytime-to-isotime "3" "pm"))))
 
 (ert-deftest icalendar--datetime-to-diary-date ()
   "Test method for `icalendar--datetime-to-diary-date'."