From fa90920ac9eedafffe37b3e3d997eec61113d459 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 22 Jan 2010 02:19:24 +0000 Subject: [PATCH] * test-elmo-date.el (test-elmo-date-get-week): Add assert. --- tests/ChangeLog | 4 ++++ tests/test-elmo-date.el | 2 ++ 2 files changed, 6 insertions(+) diff --git a/tests/ChangeLog b/tests/ChangeLog index 147275c..1bba609 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,3 +1,7 @@ +2010-01-22 TAKAHASHI Kaoru + + * test-elmo-date.el (test-elmo-date-get-week): Add assert. + 2010-01-01 TAKAHASHI Kaoru * test-elmo-util.el (test-elmo-delete-cr-1): New testcase. diff --git a/tests/test-elmo-date.el b/tests/test-elmo-date.el index 2f1562c..1808eb0 100644 --- a/tests/test-elmo-date.el +++ b/tests/test-elmo-date.el @@ -7,6 +7,8 @@ "Check around singularity date. leap year and 2038-01-19." (let ((elmo-lang "en")) (lunit-assert + (string= "Fri" (elmo-date-get-week 1582 10 15))) + (lunit-assert (string= "Tue" (elmo-date-get-week 2000 2 29))) (lunit-assert (string= "Tue" (elmo-date-get-week 2038 1 19))) -- 1.7.10.4