author | Claus Gittinger <cg@exept.de> |
Wed, 05 Nov 2014 17:44:45 +0100 | |
changeset 1217 | ee9044742185 |
parent 1077 | 9cb704988db8 |
child 1218 | efecc8c6f1fe |
permissions | -rw-r--r-- |
346 | 1 |
"{ Package: 'exept:regression' }" |
2 |
||
3 |
"{ NameSpace: RegressionTests }" |
|
4 |
||
5 |
TestCase subclass:#TimeAndDateTest |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
1077 | 9 |
category:'tests-Regression-DateAndTime' |
346 | 10 |
! |
11 |
||
12 |
||
13 |
!TimeAndDateTest methodsFor:'Testing'! |
|
14 |
||
365 | 15 |
test_01_ReadingTimes |
346 | 16 |
|
17 |
self assert:(Time readFrom:'0:00' ) = (Time hour:0 minute:0 second:0). |
|
18 |
self assert:(Time readFrom:'2:00' ) = (Time hour:2 minute:0 second:0). |
|
19 |
self assert:(Time readFrom:'12:00' ) = (Time hour:12 minute:0 second:0). |
|
20 |
self assert:(Time readFrom:'14:00' ) = (Time hour:14 minute:0 second:0). |
|
21 |
self assert:(Time readFrom:'23:00' ) = (Time hour:23 minute:0 second:0). |
|
22 |
self assert:(Time readFrom:'24:00' ) = (Time hour:0 minute:0 second:0). |
|
23 |
self assert:(Time readFrom:'2:30 am' ) = (Time hour:2 minute:30 second:0). |
|
24 |
self assert:(Time readFrom:'2:30 pm' ) = (Time hour:14 minute:30 second:0). |
|
25 |
self assert:(Time readFrom:'14' ) = (Time hour:14 minute:0 second:0). |
|
26 |
self assert:(Time readFrom:'2 am' ) = (Time hour:2 minute:0 second:0). |
|
27 |
self assert:(Time readFrom:'2 pm' ) = (Time hour:14 minute:0 second:0). |
|
28 |
self assert:(Time readFrom:'12:05 pm') = (Time hour:12 minute:5 second:0). |
|
29 |
self assert:(Time readFrom:'12:06 am') = (Time hour:0 minute:6 second:0). |
|
30 |
||
31 |
self assert:(Time readFrom:'18:22:00') = (Time hour:18 minute:22 second:0). |
|
32 |
self assert:(Time readFrom:'14:00:11') = (Time hour:14 minute:0 second:11). |
|
33 |
self assert:(Time readFrom:'7:00:11' ) = (Time hour:7 minute:0 second:11). |
|
34 |
self assert:(Time readFrom:'24:00:00') = (Time hour:0 minute:0 second:0). |
|
35 |
self assert:(Time readFrom:'0:00:00' ) = (Time hour:0 minute:0 second:0). |
|
36 |
self assert:(Time readFrom:'12:00:00') = (Time hour:12 minute:0 second:0). |
|
37 |
self assert:(Time readFrom:'0:00:00' ) = (Time hour:0 minute:0 second:0). |
|
38 |
self assert:(Time readFrom:'6:22:00 pm' ) = (Time hour:18 minute:22 second:0). |
|
39 |
self assert:(Time readFrom:'2:00:11 pm' ) = (Time hour:14 minute:0 second:11). |
|
40 |
self assert:(Time readFrom:'7:00:11 am' ) = (Time hour:7 minute:0 second:11). |
|
41 |
self assert:(Time readFrom:'12:00:00 am') = (Time hour:0 minute:0 second:0). |
|
42 |
self assert:(Time readFrom:'0:00:00 am' ) = (Time hour:0 minute:0 second:0). |
|
43 |
self should:[ Time readFrom:'24:00:00 am' ] raise:TimeConversionError. |
|
44 |
self assert:(Time readFrom:'12:00:00 pm') = (Time hour:12 minute:0 second:0). |
|
45 |
self assert:(Time readFrom:'0:00:00 pm' onError:'invalid') = 'invalid'. |
|
46 |
self should:[ Time readFrom:'24:00:00 pm' ] raise:TimeConversionError. |
|
47 |
||
48 |
" |
|
49 |
self new test_01_Reading |
|
50 |
" |
|
365 | 51 |
! |
52 |
||
53 |
test_02_ReadingDates |
|
54 |
||
55 |
self assert:(Date |
|
56 |
readFrom:'2-may-2010' |
|
57 |
printFormat:'%d-%shortMonthName-%y' |
|
633 | 58 |
language:'en' |
365 | 59 |
onError:[self error] |
60 |
) = (Date newDay:2 month:5 year:2010). |
|
61 |
||
736 | 62 |
{ |
63 |
{ '3-jan-2012' . (Date newDay:3 month:1 year:2012) } . |
|
64 |
{ '15-feb-2012' . (Date newDay:15 month:2 year:2012) } . |
|
65 |
{ '06-mar-2011' . (Date newDay:6 month:3 year:2011) } . |
|
66 |
{ '19-apr-2013' . (Date newDay:19 month:4 year:2013) } . |
|
67 |
{ '21-may-2015' . (Date newDay:21 month:5 year:2015) } . |
|
68 |
{ '21-jun-2015' . (Date newDay:21 month:6 year:2015) } . |
|
69 |
{ '21-jul-2015' . (Date newDay:21 month:7 year:2015) } . |
|
70 |
{ '21-aug-2015' . (Date newDay:21 month:8 year:2015) } . |
|
71 |
{ '21-sep-2015' . (Date newDay:21 month:9 year:2015) } . |
|
72 |
{ '21-oct-2015' . (Date newDay:21 month:10 year:2015) } . |
|
73 |
{ '21-nov-2015' . (Date newDay:21 month:11 year:2015) } . |
|
74 |
{ '21-dec-2015' . (Date newDay:21 month:12 year:2015) } . |
|
75 |
} do:[:eachTestPair | |
|
76 |
self assert:(Date |
|
77 |
readFrom:(eachTestPair first) |
|
78 |
printFormat:'%d-%shortMonthName-%y' |
|
79 |
language:'en' |
|
80 |
onError:[self error] |
|
81 |
) = (eachTestPair second). |
|
82 |
]. |
|
83 |
||
365 | 84 |
self assert:(Date |
85 |
readFrom:'2-may-2010' |
|
86 |
printFormat:'%d-%monthName-%y' |
|
633 | 87 |
language:'en' |
365 | 88 |
onError:[self error] |
89 |
) = (Date newDay:2 month:5 year:2010). |
|
90 |
||
91 |
self assert:(Date |
|
366 | 92 |
readFrom:'2-may-2010' |
93 |
printFormat:'%d-%(shortMonthName)-%y' |
|
633 | 94 |
language:'en' |
366 | 95 |
onError:[self error] |
96 |
) = (Date newDay:2 month:5 year:2010). |
|
97 |
||
98 |
self assert:(Date |
|
99 |
readFrom:'2-may-2010' |
|
100 |
printFormat:'%d-%(monthName)-%y' |
|
633 | 101 |
language:'en' |
366 | 102 |
onError:[self error] |
103 |
) = (Date newDay:2 month:5 year:2010). |
|
104 |
||
105 |
self assert:(Date |
|
365 | 106 |
readFrom:'2-5-2010' |
107 |
printFormat:'%d-%m-%y' |
|
108 |
onError:[self error] |
|
109 |
) = (Date newDay:2 month:5 year:2010). |
|
110 |
||
111 |
self assert:(Date |
|
112 |
readFrom:'5/2/2010' |
|
113 |
printFormat:'%m/%d/%y' |
|
114 |
onError:[self error] |
|
115 |
) = (Date newDay:2 month:5 year:2010). |
|
116 |
||
117 |
self assert:(Date |
|
118 |
readFrom:'2010-5-2' |
|
119 |
printFormat:'%y-%m-%d' |
|
120 |
onError:[self error] |
|
121 |
) = (Date newDay:2 month:5 year:2010). |
|
122 |
||
123 |
" |
|
124 |
self new test_02_ReadingDates |
|
125 |
" |
|
736 | 126 |
! |
127 |
||
128 |
test_03_calenderWeek |
|
129 |
self assert:(Date newDay:5 month:11 year:2012) weekInYear == 45. |
|
130 |
self assert:(Date newDay:11 month:11 year:2012) weekInYear == 45. |
|
131 |
||
132 |
self assert:(Date newDay:4 month:11 year:2012) weekInYear == 44. |
|
133 |
self assert:(Date newDay:12 month:11 year:2012) weekInYear == 46. |
|
134 |
||
737
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
135 |
self assert:(Date newDay:29 month:12 year:2014) weekInYear == 1. "/ YES!! |
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
136 |
self assert:(Date newDay:30 month:12 year:2014) weekInYear == 1. "/ YES!! |
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
137 |
self assert:(Date newDay:31 month:12 year:2014) weekInYear == 1. "/ YES!! |
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
138 |
self assert:(Date newDay:1 month:1 year:2015) weekInYear == 1. |
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
139 |
self assert:(Date newDay:2 month:1 year:2015) weekInYear == 1. |
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
140 |
self assert:(Date newDay:3 month:1 year:2015) weekInYear == 1. |
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
141 |
self assert:(Date newDay:4 month:1 year:2015) weekInYear == 1. |
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
142 |
|
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
143 |
self assert:(Date newDay:5 month:1 year:2015) weekInYear == 2. |
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
144 |
|
745
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
145 |
"/ every 4th of january is in the 1st week |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
146 |
1902 to:2100 do:[:y | |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
147 |
|d| |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
148 |
d := Date newDay:4 month:1 year:y. |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
149 |
self assert:d weekInYear == 1. |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
150 |
]. |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
151 |
|
736 | 152 |
" |
153 |
self new test_03_calenderWeek |
|
154 |
" |
|
745
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
155 |
! |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
156 |
|
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
157 |
test_04_calenderWeek_fails |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
158 |
<test: broken> |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
159 |
^ self. |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
160 |
"/ currently fails for date before 1901 |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
161 |
1900 to:1905 do:[:y | |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
162 |
|d| |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
163 |
d := Date newDay:4 month:1 year:y. |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
164 |
self assert:d weekInYear == 1. |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
165 |
]. |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
166 |
|
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
167 |
" |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
168 |
self new test_04_calenderWeek_fails |
fde865b5dece
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
737
diff
changeset
|
169 |
" |
1217
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
170 |
! |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
171 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
172 |
test_05_weekDayConversion |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
173 |
{ |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
174 |
{ (Date newDayInWeek:6 week:53 year:2004) "2004-W53-6" . (Date newDay:1 month:1 year:2005) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
175 |
{ (Date newDayInWeek:7 week:53 year:2004) "2004-W53-7" . (Date newDay:2 month:1 year:2005) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
176 |
{ (Date newDayInWeek:6 week:52 year:2005) "2005-W52-6" . (Date newDay:31 month:12 year:2005) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
177 |
{ (Date newDayInWeek:1 week:1 year:2007) "2007-W01-1" . (Date newDay:1 month:1 year:2007) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
178 |
{ (Date newDayInWeek:7 week:52 year:2007) "2007-W52-7" . (Date newDay:30 month:12 year:2007) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
179 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
180 |
{ (Date newDayInWeek:1 week:1 year:2008) "2008-W01-1" . (Date newDay:31 month:12 year:2007) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
181 |
{ (Date newDayInWeek:2 week:1 year:2008) "2008-W01-2" . (Date newDay:1 month:1 year:2008) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
182 |
{ (Date newDayInWeek:7 week:52 year:2008) "2008-W52-7" . (Date newDay:28 month:12 year:2008) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
183 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
184 |
{ (Date newDayInWeek:1 week:1 year:2009) "2009-W01-1" . (Date newDay:29 month:12 year:2008) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
185 |
{ (Date newDayInWeek:2 week:1 year:2009) "2009-W01-2" . (Date newDay:30 month:12 year:2008) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
186 |
{ (Date newDayInWeek:3 week:1 year:2009) "2009-W01-3" . (Date newDay:31 month:12 year:2008) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
187 |
{ (Date newDayInWeek:4 week:1 year:2009) "2009-W01-4" . (Date newDay:1 month:1 year:2009) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
188 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
189 |
{ (Date newDayInWeek:4 week:53 year:2009) "2009-W53-4" . (Date newDay:31 month:12 year:2009) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
190 |
{ (Date newDayInWeek:5 week:53 year:2009) "2009-W53-5" . (Date newDay:1 month:1 year:2010) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
191 |
{ (Date newDayInWeek:6 week:53 year:2009) "2009-W53-6" . (Date newDay:2 month:1 year:2010) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
192 |
{ (Date newDayInWeek:7 week:53 year:2009) "2009-W53-7" . (Date newDay:3 month:1 year:2010) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
193 |
} do:[:eachPair | |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
194 |
|d1 d2| |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
195 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
196 |
d1 := eachPair first. |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
197 |
d2 := eachPair second. |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
198 |
self assert:(d1 = d2) description:'wrong: ',d1 printString, ' vs. ',d2 printString. |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
199 |
] |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
200 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
201 |
" |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
202 |
self new test_05_weekDayConversion |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
203 |
" |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
204 |
! |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
205 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
206 |
test_06_readingISO8601 |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
207 |
{ |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
208 |
{ '2004-W53-6' . 'sat' . (Date newDay:1 month:1 year:2005) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
209 |
{ '2004-W53-7' . 'sun' . (Date newDay:2 month:1 year:2005) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
210 |
{ '2005-W52-6' . 'sat' . (Date newDay:31 month:12 year:2005) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
211 |
{ '2007-W01-1' . 'mon' . (Date newDay:1 month:1 year:2007) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
212 |
{ '2007-W52-7' . 'sun' . (Date newDay:30 month:12 year:2007) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
213 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
214 |
{ '2008-W01-1' . 'mon' . (Date newDay:31 month:12 year:2007) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
215 |
{ '2008-W01-2' . 'tue' . (Date newDay:1 month:1 year:2008) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
216 |
{ '2008-W52-7' . 'sun' . (Date newDay:28 month:12 year:2008) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
217 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
218 |
{ '2009-W01-1' . 'mon' . (Date newDay:29 month:12 year:2008) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
219 |
{ '2009-W01-2' . 'tue' . (Date newDay:30 month:12 year:2008) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
220 |
{ '2009-W01-3' . 'wed' . (Date newDay:31 month:12 year:2008) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
221 |
{ '2009-W01-4' . 'thu' . (Date newDay:1 month:1 year:2009) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
222 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
223 |
{ '2009-W53-4' . 'thu' . (Date newDay:31 month:12 year:2009) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
224 |
{ '2009-W53-5' . 'fri' . (Date newDay:1 month:1 year:2010) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
225 |
{ '2009-W53-6' . 'sat' . (Date newDay:2 month:1 year:2010) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
226 |
{ '2009-W53-7' . 'sun' . (Date newDay:3 month:1 year:2010) } . |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
227 |
} do:[:eachTriple | |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
228 |
|input expected expectedDayName got gotName| |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
229 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
230 |
input := eachTriple first. |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
231 |
expectedDayName := eachTriple second. |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
232 |
expected := eachTriple third. |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
233 |
got := (Timestamp readIso8601FormatFrom:input onError:nil) asDate. |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
234 |
self assert:(got = expected) description:'wrong: ',input. |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
235 |
gotName := got abbreviatedDayNameForLanguage:#en. |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
236 |
self assert:gotName = expectedDayName description:'expected: ',expectedDayName asString,' got: ',gotName asString. |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
237 |
] |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
238 |
|
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
239 |
" |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
240 |
self new test_06_calenderWeek_fails |
ee9044742185
class: RegressionTests::TimeAndDateTest
Claus Gittinger <cg@exept.de>
parents:
1077
diff
changeset
|
241 |
" |
346 | 242 |
! ! |
243 |
||
244 |
!TimeAndDateTest class methodsFor:'documentation'! |
|
245 |
||
246 |
version |
|
247 |
^ '$Header$' |
|
737
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
248 |
! |
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
249 |
|
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
250 |
version_CVS |
06d8d2821c46
changed: #test_03_calenderWeek
Claus Gittinger <cg@exept.de>
parents:
736
diff
changeset
|
251 |
^ '$Header$' |
346 | 252 |
! ! |
1077 | 253 |