From 1156bccfc021dd93e0e692281175e7b6130cfbd8 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 15 Feb 2008 01:12:23 +0000 Subject: [PATCH] test-elmo-date.el: New file. --- tests/ChangeLog | 4 ++++ tests/test-elmo-date.el | 18 ++++++++++++++++++ 2 files changed, 22 insertions(+) create mode 100644 tests/test-elmo-date.el diff --git a/tests/ChangeLog b/tests/ChangeLog index e1418c7..aeb5413 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,3 +1,7 @@ +2008-02-15 TAKAHASHI Kaoru + + * test-elmo-date.el: New file. + 2006-11-03 Yoichi NAKAYAMA * test-wl-draft.el: New file. diff --git a/tests/test-elmo-date.el b/tests/test-elmo-date.el new file mode 100644 index 0000000..635a774 --- /dev/null +++ b/tests/test-elmo-date.el @@ -0,0 +1,18 @@ +(require 'lunit) +(require 'elmo-date) + +(luna-define-class test-elmo-date (lunit-test-case)) + +(luna-define-method test-elmo-date-get-week ((case test-elmo-date)) + "Check around singularity date. leap year and 2038-01-19." + (let ((elmo-lang "en")) + (lunit-assert + (string= "Tue" (elmo-date-get-week 2000 2 29))) + (lunit-assert + (string= "Tue" (elmo-date-get-week 2038 1 19))) + (lunit-assert + (string= "Wed" (elmo-date-get-week 2038 1 20))) + (lunit-assert + (string= "Sun" (elmo-date-get-week 2100 2 28))) + (lunit-assert + (string= "Mon" (elmo-date-get-week 2100 3 1))))) -- 1.7.10.4