From aad81014a9d9e3e6fc0960e8e3825c839a0a4123 Mon Sep 17 00:00:00 2001 From: Ulf Jasper Date: Fri, 31 Oct 2008 18:48:23 +0000 Subject: [PATCH] icalendar: uid-creation improved --- test/ChangeLog | 6 ++++++ test/icalendar-testsuite.el | 16 +++++++++++++++- 2 files changed, 21 insertions(+), 1 deletion(-) diff --git a/test/ChangeLog b/test/ChangeLog index ed05b07384f..92251f361f8 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,9 @@ +2008-10-31 Ulf Jasper + + * 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 * newsticker-testsuite.el: New file. diff --git a/test/icalendar-testsuite.el b/test/icalendar-testsuite.el index fcfef918ad6..88cb128cbd9 100644 --- a/test/icalendar-testsuite.el +++ b/test/icalendar-testsuite.el @@ -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 ;; ====================================================================== -- 2.39.2