Commit aad81014 authored by Ulf Jasper's avatar Ulf Jasper
Browse files

icalendar: uid-creation improved

parent ca2d101f
2008-10-31 Ulf Jasper <ulf@web.de>
* icalendar-testsuite.el (icalendar-testsuite--run-function-tests):
Added `icalendar-testsuite--test-create-uid'.
(icalendar-testsuite--test-create-uid): New.
2008-06-14 Ulf Jasper <ulf.jasper@web.de>
* newsticker-testsuite.el: New file.
......
......@@ -51,7 +51,8 @@
(icalendar-testsuite--test-first-weekday-of-year)
(icalendar-testsuite--test-datestring-to-isodate)
(icalendar-testsuite--test-datetime-to-diary-date)
(icalendar-testsuite--test-calendar-style))
(icalendar-testsuite--test-calendar-style)
(icalendar-testsuite--test-create-uid))
(defun icalendar-testsuite--test-format-ical-event ()
"Test `icalendar--format-ical-event'."
......@@ -221,6 +222,19 @@ END:VEVENT
(assert (eq (icalendar--date-style) 'american))
(setq calendar-date-style cds)))
(defun icalendar-testsuite--test-create-uid ()
"Test method for `icalendar--create-uid'."
(let (t-ct
(icalendar--uid-count 77))
;; FIXME! If a test fails 'current-time is screwed. FIXME!
(fset 't-ct (symbol-function 'current-time))
(fset 'current-time (lambda () '(1 2 3)))
(assert (= 77 icalendar--uid-count))
(assert (string= "emacs12378" (icalendar--create-uid)))
(assert (= 78 icalendar--uid-count))
(fset 'current-time (symbol-function 't-ct))
))
;; ======================================================================
;; Test methods for exporting from diary to icalendar
;; ======================================================================
......
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