4 (luna-define-class test-elmo-date (lunit-test-case))
6 (luna-define-method test-elmo-date-get-week ((case test-elmo-date))
7 "Check around singularity date. leap year and 2038-01-19."
8 (let ((elmo-lang "en"))
10 (string= "Fri" (elmo-date-get-week 1582 10 15)))
12 (string= "Tue" (elmo-date-get-week 2000 2 29)))
14 (string= "Tue" (elmo-date-get-week 2038 1 19)))
16 (string= "Wed" (elmo-date-get-week 2038 1 20)))
18 (string= "Sun" (elmo-date-get-week 2100 2 28)))
20 (string= "Mon" (elmo-date-get-week 2100 3 1)))))
22 (luna-define-method test-elmo-time-parse-date-string-1 ((case test-elmo-date))
25 ;; [RFC5322] Appendix A.1.1.
27 (elmo-time-parse-date-string
28 "Date: Fri, 21 Nov 1997 09:55:06 -0600")))
30 ;; [RFC5322] Appendix A.1.2.
32 (elmo-time-parse-date-string
33 "Date: Tue, 1 Jul 2003 10:52:37 +0200")))
36 ;; (elmo-time-parse-date-string
37 ;; "Date: Thu, 1 Jan 2009 08:59:60 +0900"))
41 ;; [RFC5322] Appendix A.1.3.
43 (elmo-time-parse-date-string
44 "Date: Thu, 13 Feb 1969 23:32:54 -0330")))
47 (luna-define-method test-elmo-time-parse-date-string-2 ((case test-elmo-date))
48 "Obsolete Date: format"
50 ;; [RFC5322] Appendix A.5.
52 (elmo-time-parse-date-string
59 " -0330 (Newfoundland Time)"))))
61 ;; [RFC5322] Appendix A.6.2.
63 (elmo-time-parse-date-string
64 "Date: 21 Nov 97 09:55:06 GMT")))
66 ;; [RFC5322] Appendix A.6.3.
68 (elmo-time-parse-date-string
69 "Date : Fri, 21 Nov 1997 09(comment): 55 : 06 -0600"))))