From: kaoru <kaoru>
Date: Fri, 22 Jan 2010 02:19:24 +0000 (+0000)
Subject: * test-elmo-date.el (test-elmo-date-get-week): Add assert.
X-Git-Tag: elmo-imap4-compliance-root~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fa90920ac9eedafffe37b3e3d997eec61113d459;p=elisp%2Fwanderlust.git

* test-elmo-date.el (test-elmo-date-get-week): Add assert.
---

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  <kaoru@kaisei.org>
+
+	* test-elmo-date.el (test-elmo-date-get-week): Add assert.
+
 2010-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* 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)))