diff options
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/calendar/icalendar-tests.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/test/lisp/calendar/icalendar-tests.el b/test/lisp/calendar/icalendar-tests.el index c918b0f63fa..ac7a84aa571 100644 --- a/test/lisp/calendar/icalendar-tests.el +++ b/test/lisp/calendar/icalendar-tests.el @@ -1639,19 +1639,17 @@ SUMMARY:NNN Wwwwwwww Wwwww - Aaaaaa Pppppppp rrrrrr ddd oo Nnnnnnnn 30 "2004-09-17T03:09:10+0000")) (let ((orig (icalendar-test--format "20040917T050910"))) (unwind-protect - (progn - (set-time-zone-rule "UTC-02:00") - (should (equal (icalendar-test--format "20040917T050910") + (let ((zone "XXX-02")) + (should (equal (icalendar-test--format "20040917T050910" nil zone) "2004-09-17T03:09:10+0000")) - (should (equal (icalendar-test--format "20040917T0509") + (should (equal (icalendar-test--format "20040917T0509" nil zone) "2004-09-17T03:09:00+0000")) - (should (equal (icalendar-test--format "20040917") + (should (equal (icalendar-test--format "20040917" nil zone) "2004-09-16T22:00:00+0000")) - (should (equal (icalendar-test--format "20040917T050910" 1) + (should (equal (icalendar-test--format "20040917T050910" 1 zone) "2004-09-18T03:09:10+0000")) - (should (equal (icalendar-test--format "20040917T050910" 30) + (should (equal (icalendar-test--format "20040917T050910" 30 zone) "2004-10-17T03:09:10+0000"))) - (set-time-zone-rule 'wall) ;; (set-time-zone-rule nil) is broken (should (equal orig (icalendar-test--format "20040917T050910"))))) (should (equal (icalendar-test--format "20040917T050910Z") "2004-09-17T05:09:10+0000")) |