procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

icalendar: uid-creation improved

Browse source
This commit is contained in:
Ulf Jasper 2008-10-31 18:48:23 +00:00
parent ca2d101f5e
commit aad81014a9
2 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/ChangeLog
View file

@ -1,3 +1,9 @@
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.

16
test/icalendar-testsuite.el
View 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
;; ======================================================================