forked from wanderlust/wanderlust
-
Notifications
You must be signed in to change notification settings - Fork 1
/
test-elmo-date.el
69 lines (63 loc) · 1.98 KB
/
test-elmo-date.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
(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= "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)))
(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)))))
(luna-define-method test-elmo-time-parse-date-string-1 ((case test-elmo-date))
""
(lunit-assert
;; [RFC5322] Appendix A.1.1.
(equal '(13429 44762)
(elmo-time-parse-date-string
"Date: Fri, 21 Nov 1997 09:55:06 -0600")))
(lunit-assert
;; [RFC5322] Appendix A.1.2.
(equal '(16129 19413)
(elmo-time-parse-date-string
"Date: Tue, 1 Jul 2003 10:52:37 +0200")))
;; (lunit-assert
;; ;; leapsec
;; (elmo-time-parse-date-string
;; "Date: Thu, 1 Jan 2009 08:59:60 +0900"))
(lunit-assert
;; [RFC5322] Appendix A.1.3.
(equal '(-424 63838)
(elmo-time-parse-date-string
"Date: Thu, 13 Feb 1969 23:32:54 -0330")))
)
(luna-define-method test-elmo-time-parse-date-string-2 ((case test-elmo-date))
"Obsolete Date: format"
(lunit-assert
;; [RFC5322] Appendix A.5.
(equal '(14403 4992)
(elmo-time-parse-date-string
(concat
"Date: Thu,\n"
" 13\n"
" Feb\n"
" 1969\n"
" 23:32\n"
" -0330 (Newfoundland Time)"))))
(lunit-assert
;; [RFC5322] Appendix A.6.2.
(equal '(13429 23162)
(elmo-time-parse-date-string
"Date: 21 Nov 97 09:55:06 GMT")))
(lunit-assert
;; [RFC5322] Appendix A.6.3.
(equal '(13428 52452)
(elmo-time-parse-date-string
"Date : Fri, 21 Nov 1997 09(comment): 55 : 06 -0600"))))