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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
(in-package #:local-time.test)
(defsuite* (formatting :in test))
(deftest test/formatting/format-timestring/1 ()
(let ((*default-timezone* local-time:+utc-zone+)
(test-timestamp (encode-timestamp 1000 2 3 4 5 6 2008 :offset 0)))
(macrolet ((frob (&rest args)
`(progn
,@(loop
:for (a b) :on args :by #'cddr
:collect `(is (string= ,a ,b))))))
(frob
"2008-06-05T04:03:02.000001Z"
(format-timestring nil test-timestamp)
"2008-06-05T04:03:02.000001-05:00"
(let ((utc-5 (local-time::%make-simple-timezone "UTC-5" "UTC-5" -18000)))
(format-timestring nil (encode-timestamp 1000 2 3 4 5 6 2008
:offset (* 3600 -5))
:timezone utc-5))
"Thu Jun 5 04:03:02 2008"
(format-timestring nil test-timestamp :format +asctime-format+)
"Thu, 05 Jun 2008 04:03:02 +0000"
(format-timestring nil test-timestamp :format +rfc-1123-format+)
""
(format-timestring nil test-timestamp
:format nil)
"04"
(format-timestring nil test-timestamp
:format '((:hour 2)))
"04:03"
(format-timestring nil test-timestamp
:format '((:hour 2) #\: (:min 2)))
"5th"
(format-timestring nil test-timestamp
:format '(:ordinal-day))
"2004-W53-6"
(format-timestring nil (encode-timestamp 0 0 0 0 1 1 2005)
:format +iso-week-date-format+)
"2004-W53-7"
(format-timestring nil (encode-timestamp 0 0 0 0 2 1 2005)
:format +iso-week-date-format+)
"2005-W52-6"
(format-timestring nil (encode-timestamp 0 0 0 0 31 12 2005)
:format +iso-week-date-format+)
"2007-W01-1"
(format-timestring nil (encode-timestamp 0 0 0 0 1 1 2007)
:format +iso-week-date-format+)
"2007-W52-7"
(format-timestring nil (encode-timestamp 0 0 0 0 30 12 2007)
:format +iso-week-date-format+)
"2008-W01-1"
(format-timestring nil (encode-timestamp 0 0 0 0 31 12 2007)
:format +iso-week-date-format+)
"2009-W53-5"
(format-timestring nil (encode-timestamp 0 0 0 0 1 1 2010)
:format +iso-week-date-format+)
"2009-W01-3"
(format-timestring nil (encode-timestamp 0 0 0 0 31 12 2008)
:format +iso-week-date-format+)))))
(deftest test/formatting/format-timestring/2 ()
(with-output-to-string (*standard-output*)
(let ((*default-timezone* (find-timezone-by-location-name "UTC")))
(finishes (print (now))))))
(deftest test/formatting/ordinals ()
(flet ((format-ordinal (day)
(format-timestring nil (encode-timestamp 0 0 0 0 day 1 2008)
:format '(:ordinal-day))))
(string= "31st" (format-ordinal 31))
(string= "11th" (format-ordinal 11))
(string= "22nd" (format-ordinal 22))
(string= "3rd" (format-ordinal 3))))
(deftest test/formatting/bug/1 ()
(let ((*default-timezone* (find-timezone-by-location-name "Pacific/Auckland")))
(finishes (format-timestring nil (now)))))
(deftest test/formatting/leap-year ()
(let ((timestamp (parse-timestring "2004-02-29")))
(is (timestamp= timestamp (parse-timestring (format-timestring nil timestamp))))))
|
