t_parsedate.c revision 1.33 1 1.33 christos /* $NetBSD: t_parsedate.c,v 1.33 2022/05/02 19:57:50 christos Exp $ */
2 1.1 njoly /*-
3 1.14 christos * Copyright (c) 2010, 2015 The NetBSD Foundation, Inc.
4 1.1 njoly * All rights reserved.
5 1.1 njoly *
6 1.1 njoly * Redistribution and use in source and binary forms, with or without
7 1.1 njoly * modification, are permitted provided that the following conditions
8 1.1 njoly * are met:
9 1.1 njoly *
10 1.1 njoly * 1. Redistributions of source code must retain the above copyright
11 1.1 njoly * notice, this list of conditions and the following disclaimer.
12 1.1 njoly * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 njoly * notice, this list of conditions and the following disclaimer in
14 1.1 njoly * the documentation and/or other materials provided with the
15 1.1 njoly * distribution.
16 1.1 njoly *
17 1.1 njoly * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
18 1.1 njoly * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
19 1.1 njoly * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
20 1.1 njoly * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
21 1.1 njoly * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
22 1.1 njoly * INCIDENTAL, SPECIAL, EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING,
23 1.1 njoly * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
24 1.1 njoly * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
25 1.1 njoly * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
26 1.1 njoly * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
27 1.1 njoly * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 1.1 njoly * SUCH DAMAGE.
29 1.1 njoly */
30 1.1 njoly
31 1.1 njoly #include <sys/cdefs.h>
32 1.33 christos __RCSID("$NetBSD: t_parsedate.c,v 1.33 2022/05/02 19:57:50 christos Exp $");
33 1.1 njoly
34 1.1 njoly #include <atf-c.h>
35 1.6 apb #include <errno.h>
36 1.12 apb #include <stdio.h>
37 1.6 apb #include <stdlib.h>
38 1.6 apb #include <time.h>
39 1.1 njoly #include <util.h>
40 1.1 njoly
41 1.8 apb /*
42 1.8 apb * ANY is used as a placeholder for values that do not need to be
43 1.8 apb * checked. The actual value is arbitrary. We don't use -1
44 1.8 apb * because some tests might want to use -1 as a literal value.
45 1.8 apb */
46 1.8 apb #define ANY -30215
47 1.8 apb
48 1.8 apb /* parsecheck --
49 1.8 apb * call parsedate(), then call time_to_tm() on the result,
50 1.8 apb * and check that year/month/day/hour/minute/second are as expected.
51 1.8 apb *
52 1.8 apb * time_to_tm should usually be localtime_r or gmtime_r.
53 1.8 apb *
54 1.8 apb * Don't check values specified as ANY.
55 1.8 apb */
56 1.8 apb static void
57 1.8 apb parsecheck(const char *datestr, const time_t *reftime, const int *zoff,
58 1.8 apb struct tm * time_to_tm(const time_t *, struct tm *),
59 1.8 apb int year, int month, int day, int hour, int minute, int second)
60 1.8 apb {
61 1.8 apb time_t t;
62 1.8 apb struct tm tm;
63 1.12 apb char argstr[128];
64 1.12 apb
65 1.12 apb /*
66 1.12 apb * printable version of the args.
67 1.12 apb *
68 1.12 apb * Note that printf("%.*d", 0, 0)) prints nothing at all,
69 1.12 apb * while printf("%.*d", 1, val) prints the value as usual.
70 1.12 apb */
71 1.12 apb snprintf(argstr, sizeof(argstr), "%s%s%s, %s%.*jd, %s%.*d",
72 1.12 apb /* NULL or \"<datestr>\" */
73 1.12 apb (datestr ? "\"" : ""),
74 1.12 apb (datestr ? datestr : "NULL"),
75 1.12 apb (datestr ? "\"" : ""),
76 1.12 apb /* NULL or *reftime */
77 1.12 apb (reftime ? "" : "NULL"),
78 1.12 apb (reftime ? 1 : 0),
79 1.12 apb (reftime ? (intmax_t)*reftime : (intmax_t)0),
80 1.12 apb /* NULL or *zoff */
81 1.12 apb (zoff ? "" : "NULL"),
82 1.12 apb (zoff ? 1 : 0),
83 1.12 apb (zoff ? *zoff : 0));
84 1.8 apb
85 1.8 apb ATF_CHECK_MSG((t = parsedate(datestr, reftime, zoff)) != -1,
86 1.12 apb "parsedate(%s) returned -1\n", argstr);
87 1.26 kre if (t == -1)
88 1.26 kre return;
89 1.26 kre
90 1.8 apb ATF_CHECK(time_to_tm(&t, &tm) != NULL);
91 1.8 apb if (year != ANY)
92 1.8 apb ATF_CHECK_MSG(tm.tm_year + 1900 == year,
93 1.12 apb "parsedate(%s) expected year %d got %d (+1900)\n",
94 1.12 apb argstr, year, (int)tm.tm_year);
95 1.8 apb if (month != ANY)
96 1.8 apb ATF_CHECK_MSG(tm.tm_mon + 1 == month,
97 1.12 apb "parsedate(%s) expected month %d got %d (+1)\n",
98 1.12 apb argstr, month, (int)tm.tm_mon);
99 1.8 apb if (day != ANY)
100 1.8 apb ATF_CHECK_MSG(tm.tm_mday == day,
101 1.12 apb "parsedate(%s) expected day %d got %d\n",
102 1.12 apb argstr, day, (int)tm.tm_mday);
103 1.8 apb if (hour != ANY)
104 1.8 apb ATF_CHECK_MSG(tm.tm_hour == hour,
105 1.12 apb "parsedate(%s) expected hour %d got %d\n",
106 1.12 apb argstr, hour, (int)tm.tm_hour);
107 1.8 apb if (minute != ANY)
108 1.8 apb ATF_CHECK_MSG(tm.tm_min == minute,
109 1.12 apb "parsedate(%s) expected minute %d got %d\n",
110 1.12 apb argstr, minute, (int)tm.tm_min);
111 1.8 apb if (second != ANY)
112 1.8 apb ATF_CHECK_MSG(tm.tm_sec == second,
113 1.12 apb "parsedate(%s) expected second %d got %d\n",
114 1.12 apb argstr, second, (int)tm.tm_sec);
115 1.8 apb }
116 1.8 apb
117 1.1 njoly ATF_TC(dates);
118 1.1 njoly
119 1.1 njoly ATF_TC_HEAD(dates, tc)
120 1.1 njoly {
121 1.4 christos atf_tc_set_md_var(tc, "descr", "Test unambiguous dates"
122 1.5 jruoho " (PR lib/44255)");
123 1.1 njoly }
124 1.1 njoly
125 1.1 njoly ATF_TC_BODY(dates, tc)
126 1.1 njoly {
127 1.1 njoly
128 1.31 kre parsecheck("9/10/68", NULL, NULL, localtime_r,
129 1.31 kre 2068, 9, 10, 0, 0, 0); /* year < 69: add 2000 */
130 1.10 apb parsecheck("9/10/69", NULL, NULL, localtime_r,
131 1.31 kre 1969, 9, 10, 0, 0, 0); /* 69 <= year < 100: add 1900 */
132 1.31 kre parsecheck("68-09-10", NULL, NULL, localtime_r,
133 1.31 kre 68, 9, 10, 0, 0, 0); /* ISO8601 year remains unchanged */
134 1.9 apb parsecheck("70-09-10", NULL, NULL, localtime_r,
135 1.10 apb 70, 9, 10, 0, 0, 0); /* ISO8601 year remains unchanged */
136 1.8 apb parsecheck("2006-11-17", NULL, NULL, localtime_r,
137 1.8 apb 2006, 11, 17, 0, 0, 0);
138 1.8 apb parsecheck("10/1/2000", NULL, NULL, localtime_r,
139 1.9 apb 2000, 10, 1, 0, 0, 0); /* month/day/year */
140 1.32 christos parsecheck("12/01/2022", NULL, NULL, localtime_r,
141 1.32 christos 2022, 12, 1, 0, 0, 0); /* month/day/year, December */
142 1.8 apb parsecheck("20 Jun 1994", NULL, NULL, localtime_r,
143 1.8 apb 1994, 6, 20, 0, 0, 0);
144 1.14 christos parsecheck("97 September 2", NULL, NULL, localtime_r,
145 1.14 christos 1997, 9, 2, 0, 0, 0);
146 1.8 apb parsecheck("23jun2001", NULL, NULL, localtime_r,
147 1.8 apb 2001, 6, 23, 0, 0, 0);
148 1.8 apb parsecheck("1-sep-06", NULL, NULL, localtime_r,
149 1.8 apb 2006, 9, 1, 0, 0, 0);
150 1.8 apb parsecheck("1/11", NULL, NULL, localtime_r,
151 1.9 apb ANY, 1, 11, 0, 0, 0); /* month/day */
152 1.8 apb parsecheck("1500-01-02", NULL, NULL, localtime_r,
153 1.8 apb 1500, 1, 2, 0, 0, 0);
154 1.8 apb parsecheck("9999-12-21", NULL, NULL, localtime_r,
155 1.8 apb 9999, 12, 21, 0, 0, 0);
156 1.14 christos parsecheck("2015.12.07.08.07.35", NULL, NULL, localtime_r,
157 1.14 christos 2015, 12, 7, 8, 7, 35);
158 1.1 njoly }
159 1.1 njoly
160 1.1 njoly ATF_TC(times);
161 1.1 njoly
162 1.1 njoly ATF_TC_HEAD(times, tc)
163 1.1 njoly {
164 1.4 christos atf_tc_set_md_var(tc, "descr", "Test times"
165 1.5 jruoho " (PR lib/44255)");
166 1.1 njoly }
167 1.1 njoly
168 1.1 njoly ATF_TC_BODY(times, tc)
169 1.1 njoly {
170 1.1 njoly
171 1.8 apb parsecheck("10:01", NULL, NULL, localtime_r,
172 1.8 apb ANY, ANY, ANY, 10, 1, 0);
173 1.8 apb parsecheck("10:12pm", NULL, NULL, localtime_r,
174 1.8 apb ANY, ANY, ANY, 22, 12, 0);
175 1.8 apb parsecheck("12:11:01.000012", NULL, NULL, localtime_r,
176 1.8 apb ANY, ANY, ANY, 12, 11, 1);
177 1.8 apb parsecheck("12:21-0500", NULL, NULL, gmtime_r,
178 1.8 apb ANY, ANY, ANY, 12+5, 21, 0);
179 1.14 christos /* numeric zones not permitted with am/pm ... */
180 1.14 christos parsecheck("7 a.m. ICT", NULL, NULL, gmtime_r,
181 1.14 christos ANY, ANY, ANY, 7-7, 0, 0);
182 1.14 christos parsecheck("midnight", NULL, NULL, localtime_r,
183 1.14 christos ANY, ANY, ANY, 0, 0, 0);
184 1.14 christos parsecheck("mn", NULL, NULL, localtime_r,
185 1.14 christos ANY, ANY, ANY, 0, 0, 0);
186 1.14 christos parsecheck("noon", NULL, NULL, localtime_r,
187 1.14 christos ANY, ANY, ANY, 12, 0, 0);
188 1.26 kre
189 1.28 kre /*
190 1.28 kre * The following tests used to trigger the bug from PR lib/52101
191 1.28 kre * but that is fixed now.
192 1.28 kre *
193 1.26 kre atf_tc_expect_fail("PR lib/52101");
194 1.28 kre */
195 1.26 kre
196 1.26 kre parsecheck("12:30 am", NULL, NULL, localtime_r,
197 1.26 kre ANY, ANY, ANY, 0, 30, 0);
198 1.26 kre parsecheck("12:30 pm", NULL, NULL, localtime_r,
199 1.27 kre ANY, ANY, ANY, 12, 30, 0);
200 1.26 kre
201 1.26 kre /*
202 1.26 kre * Technically, these are invalid, noon and midnight
203 1.26 kre * are neither am, nor pm, but this is what people expect...
204 1.26 kre */
205 1.26 kre parsecheck("12:00:00 am", NULL, NULL, localtime_r,
206 1.26 kre ANY, ANY, ANY, 0, 0, 0);
207 1.26 kre parsecheck("12:00:00 pm", NULL, NULL, localtime_r,
208 1.26 kre ANY, ANY, ANY, 12, 0, 0);
209 1.26 kre parsecheck("12am", NULL, NULL, localtime_r,
210 1.26 kre ANY, ANY, ANY, 0, 0, 0);
211 1.26 kre parsecheck("12pm", NULL, NULL, localtime_r,
212 1.26 kre ANY, ANY, ANY, 12, 0, 0);
213 1.28 kre
214 1.30 kre /* end 52101 bug tests */
215 1.29 kre
216 1.29 kre parsecheck("12 noon", NULL, NULL, localtime_r,
217 1.29 kre ANY, ANY, ANY, 12, 0, 0);
218 1.29 kre parsecheck("12 midnight", NULL, NULL, localtime_r,
219 1.29 kre ANY, ANY, ANY, 0, 0, 0);
220 1.29 kre parsecheck("12 midday", NULL, NULL, localtime_r, /* unlikely! */
221 1.29 kre ANY, ANY, ANY, 12, 0, 0);
222 1.29 kre parsecheck("12 mn", NULL, NULL, localtime_r,
223 1.29 kre ANY, ANY, ANY, 0, 0, 0);
224 1.29 kre
225 1.29 kre parsecheck("12:00 noon", NULL, NULL, localtime_r,
226 1.29 kre ANY, ANY, ANY, 12, 0, 0);
227 1.29 kre parsecheck("12:00 midnight", NULL, NULL, localtime_r,
228 1.29 kre ANY, ANY, ANY, 0, 0, 0);
229 1.29 kre parsecheck("12:00:00 noon", NULL, NULL, localtime_r,
230 1.29 kre ANY, ANY, ANY, 12, 0, 0);
231 1.29 kre parsecheck("12:00:00 midnight", NULL, NULL, localtime_r,
232 1.29 kre ANY, ANY, ANY, 0, 0, 0);
233 1.1 njoly }
234 1.1 njoly
235 1.11 apb ATF_TC(dsttimes);
236 1.11 apb
237 1.11 apb ATF_TC_HEAD(dsttimes, tc)
238 1.11 apb {
239 1.11 apb atf_tc_set_md_var(tc, "descr", "Test DST transition times"
240 1.11 apb " (PR lib/47916)");
241 1.11 apb }
242 1.11 apb
243 1.11 apb ATF_TC_BODY(dsttimes, tc)
244 1.11 apb {
245 1.11 apb struct tm tm;
246 1.11 apb time_t t;
247 1.11 apb int tzoff;
248 1.11 apb
249 1.11 apb putenv(__UNCONST("TZ=EST"));
250 1.11 apb tzset();
251 1.11 apb parsecheck("12:0", NULL, NULL, localtime_r,
252 1.11 apb ANY, ANY, ANY, 12, 0, 0);
253 1.11 apb
254 1.14 christos putenv(__UNCONST("TZ=Asia/Tokyo"));
255 1.11 apb tzset();
256 1.11 apb parsecheck("12:0", NULL, NULL, localtime_r,
257 1.11 apb ANY, ANY, ANY, 12, 0, 0);
258 1.11 apb
259 1.11 apb /*
260 1.11 apb * When the effective local time is Tue Jul 9 13:21:53 BST 2013,
261 1.11 apb * check mktime("14:00")
262 1.11 apb */
263 1.11 apb putenv(__UNCONST("TZ=Europe/London"));
264 1.11 apb tzset();
265 1.11 apb tm = (struct tm){
266 1.11 apb .tm_year = 2013-1900, .tm_mon = 7-1, .tm_mday = 9,
267 1.11 apb .tm_hour = 13, .tm_min = 21, .tm_sec = 53,
268 1.11 apb .tm_isdst = 0 };
269 1.11 apb t = mktime(&tm);
270 1.11 apb ATF_CHECK(t != (time_t)-1);
271 1.11 apb parsecheck("14:00", &t, NULL, localtime_r,
272 1.11 apb 2013, 7, 9, 14, 0, 0);
273 1.13 apb tzoff = -60; /* British Summer Time */
274 1.11 apb parsecheck("14:00", &t, &tzoff, localtime_r,
275 1.11 apb 2013, 7, 9, 14, 0, 0);
276 1.11 apb }
277 1.11 apb
278 1.1 njoly ATF_TC(relative);
279 1.1 njoly
280 1.1 njoly ATF_TC_HEAD(relative, tc)
281 1.1 njoly {
282 1.4 christos atf_tc_set_md_var(tc, "descr", "Test relative items"
283 1.5 jruoho " (PR lib/44255)");
284 1.1 njoly }
285 1.1 njoly
286 1.1 njoly ATF_TC_BODY(relative, tc)
287 1.1 njoly {
288 1.14 christos struct tm tm;
289 1.14 christos time_t now;
290 1.14 christos
291 1.14 christos #define REL_CHECK(s, now, tm) do { \
292 1.14 christos time_t p, q; \
293 1.22 kre char nb[30], pb[30], qb[30]; \
294 1.19 dholland p = parsedate(s, &now, NULL); \
295 1.19 dholland q = mktime(&tm); \
296 1.19 dholland ATF_CHECK_EQ_MSG(p, q, \
297 1.22 kre "From %jd (%24.24s) using \"%s\", obtained %jd (%24.24s); expected %jd (%24.24s)", \
298 1.24 kre (uintmax_t)now, ctime_r(&now, nb), \
299 1.19 dholland s, (uintmax_t)p, ctime_r(&p, pb), (uintmax_t)q, \
300 1.14 christos ctime_r(&q, qb)); \
301 1.14 christos } while (/*CONSTCOND*/0)
302 1.1 njoly
303 1.22 kre #define isleap(yr) (((yr) & 3) == 0 && (((yr) % 100) != 0 || \
304 1.22 kre ((1900+(yr)) % 400) == 0))
305 1.22 kre
306 1.1 njoly ATF_CHECK(parsedate("-1 month", NULL, NULL) != -1);
307 1.1 njoly ATF_CHECK(parsedate("last friday", NULL, NULL) != -1);
308 1.1 njoly ATF_CHECK(parsedate("one week ago", NULL, NULL) != -1);
309 1.1 njoly ATF_CHECK(parsedate("this thursday", NULL, NULL) != -1);
310 1.1 njoly ATF_CHECK(parsedate("next sunday", NULL, NULL) != -1);
311 1.1 njoly ATF_CHECK(parsedate("+2 years", NULL, NULL) != -1);
312 1.14 christos
313 1.20 gson /*
314 1.20 gson * Test relative to a number of fixed dates. Avoid the
315 1.20 gson * edges of the time_t range to avert under- or overflow
316 1.20 gson * of the relative date, and use a prime step for maximum
317 1.20 gson * coverage of different times of day/week/month/year.
318 1.20 gson */
319 1.23 gson for (now = 0x00FFFFFF; now < 0xFF000000; now += 3777779) {
320 1.20 gson ATF_CHECK(localtime_r(&now, &tm) != NULL);
321 1.20 gson tm.tm_mday--;
322 1.20 gson /* "yesterday" leaves time untouched */
323 1.20 gson tm.tm_isdst = -1;
324 1.20 gson REL_CHECK("yesterday", now, tm);
325 1.20 gson
326 1.20 gson ATF_CHECK(localtime_r(&now, &tm) != NULL);
327 1.20 gson tm.tm_mday++;
328 1.20 gson /* as does "tomorrow" */
329 1.20 gson tm.tm_isdst = -1;
330 1.20 gson REL_CHECK("tomorrow", now, tm);
331 1.20 gson
332 1.20 gson ATF_CHECK(localtime_r(&now, &tm) != NULL);
333 1.20 gson if (tm.tm_wday > 4)
334 1.21 kre tm.tm_mday += 7;
335 1.21 kre tm.tm_mday += 4 - tm.tm_wday;
336 1.21 kre /* if a day name is mentioned, it means midnight (by default) */
337 1.21 kre tm.tm_sec = tm.tm_min = tm.tm_hour = 0;
338 1.21 kre tm.tm_isdst = -1;
339 1.21 kre REL_CHECK("this thursday", now, tm);
340 1.21 kre
341 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
342 1.21 kre tm.tm_mday += 14 - (tm.tm_wday ? tm.tm_wday : 7);
343 1.21 kre tm.tm_sec = tm.tm_min = tm.tm_hour = 0;
344 1.21 kre tm.tm_isdst = -1;
345 1.21 kre REL_CHECK("next sunday", now, tm);
346 1.21 kre
347 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
348 1.21 kre if (tm.tm_wday <= 5)
349 1.21 kre tm.tm_mday -= 7;
350 1.21 kre tm.tm_mday += 5 - tm.tm_wday;
351 1.21 kre tm.tm_sec = tm.tm_min = 0;
352 1.21 kre tm.tm_hour = 16;
353 1.21 kre tm.tm_isdst = -1;
354 1.21 kre REL_CHECK("last friday 4 p.m.", now, tm);
355 1.21 kre
356 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
357 1.21 kre tm.tm_mday += 14;
358 1.21 kre if (tm.tm_wday > 3)
359 1.21 kre tm.tm_mday += 7;
360 1.21 kre tm.tm_mday += 3 - tm.tm_wday;
361 1.21 kre tm.tm_sec = tm.tm_min = 0;
362 1.21 kre tm.tm_hour = 3;
363 1.21 kre tm.tm_isdst = -1;
364 1.21 kre REL_CHECK("we fortnight 3 a.m.", now, tm);
365 1.21 kre
366 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
367 1.21 kre tm.tm_min -= 5;
368 1.21 kre tm.tm_isdst = -1;
369 1.21 kre REL_CHECK("5 minutes ago", now, tm);
370 1.21 kre
371 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
372 1.21 kre tm.tm_hour++;
373 1.21 kre tm.tm_min += 37;
374 1.21 kre tm.tm_isdst = -1;
375 1.21 kre REL_CHECK("97 minutes", now, tm);
376 1.21 kre
377 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
378 1.21 kre tm.tm_mon++;
379 1.22 kre if (tm.tm_mon == 1 &&
380 1.22 kre tm.tm_mday > 28 + isleap(tm.tm_year))
381 1.22 kre tm.tm_mday = 28 + isleap(tm.tm_year);
382 1.22 kre else if ((tm.tm_mon == 3 || tm.tm_mon == 5 ||
383 1.22 kre tm.tm_mon == 8 || tm.tm_mon == 10) && tm.tm_mday == 31)
384 1.22 kre tm.tm_mday = 30;
385 1.21 kre tm.tm_isdst = -1;
386 1.21 kre REL_CHECK("month", now, tm);
387 1.21 kre
388 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
389 1.21 kre tm.tm_mon += 2; /* "next" means add 2 ... */
390 1.22 kre if (tm.tm_mon == 13 &&
391 1.22 kre tm.tm_mday > 28 + isleap(tm.tm_year + 1))
392 1.22 kre tm.tm_mday = 28 + isleap(tm.tm_year + 1);
393 1.22 kre else if (tm.tm_mon == 8 && tm.tm_mday == 31)
394 1.22 kre tm.tm_mday = 30;
395 1.21 kre tm.tm_isdst = -1;
396 1.21 kre REL_CHECK("next month", now, tm);
397 1.21 kre
398 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
399 1.21 kre tm.tm_mon--;
400 1.22 kre if (tm.tm_mon == 1 &&
401 1.22 kre tm.tm_mday > 28 + isleap(tm.tm_year))
402 1.22 kre tm.tm_mday = 28 + isleap(tm.tm_year);
403 1.22 kre else if ((tm.tm_mon == 3 || tm.tm_mon == 5 ||
404 1.22 kre tm.tm_mon == 8 || tm.tm_mon == 10) && tm.tm_mday == 31)
405 1.22 kre tm.tm_mday = 30;
406 1.21 kre tm.tm_isdst = -1;
407 1.21 kre REL_CHECK("last month", now, tm);
408 1.21 kre
409 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
410 1.21 kre tm.tm_mon += 6;
411 1.22 kre if (tm.tm_mon == 13 &&
412 1.22 kre tm.tm_mday > 28 + isleap(tm.tm_year + 1))
413 1.22 kre tm.tm_mday = 28 + isleap(tm.tm_year + 1);
414 1.22 kre else if ((tm.tm_mon == 15 || tm.tm_mon == 17 ||
415 1.22 kre tm.tm_mon == 8 || tm.tm_mon == 10) && tm.tm_mday == 31)
416 1.22 kre tm.tm_mday = 30;
417 1.21 kre tm.tm_mday += 2;
418 1.21 kre tm.tm_isdst = -1;
419 1.21 kre REL_CHECK("+6 months 2 days", now, tm);
420 1.21 kre
421 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
422 1.21 kre tm.tm_mon -= 9;
423 1.22 kre if (tm.tm_mon == 1 && tm.tm_mday > 28 + isleap(tm.tm_year))
424 1.24 kre tm.tm_mday = 28 + isleap(tm.tm_year);
425 1.22 kre else if ((tm.tm_mon == -9 || tm.tm_mon == -7 ||
426 1.22 kre tm.tm_mon == -2) && tm.tm_mday == 31)
427 1.22 kre tm.tm_mday = 30;
428 1.21 kre tm.tm_isdst = -1;
429 1.21 kre REL_CHECK("9 months ago", now, tm);
430 1.21 kre
431 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
432 1.21 kre if (tm.tm_wday <= 2)
433 1.21 kre tm.tm_mday -= 7;
434 1.21 kre tm.tm_mday += 2 - tm.tm_wday;
435 1.21 kre tm.tm_isdst = -1;
436 1.21 kre tm.tm_hour = tm.tm_min = tm.tm_sec = 0;
437 1.21 kre REL_CHECK("1 week ago Tu", now, tm);
438 1.21 kre
439 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
440 1.21 kre tm.tm_isdst = -1;
441 1.21 kre tm.tm_mday++;
442 1.21 kre tm.tm_hour = tm.tm_min = tm.tm_sec = 0;
443 1.21 kre REL_CHECK("midnight tomorrow", now, tm);
444 1.21 kre
445 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
446 1.21 kre tm.tm_isdst = -1;
447 1.21 kre tm.tm_mday++;
448 1.21 kre tm.tm_hour = tm.tm_min = tm.tm_sec = 0;
449 1.21 kre REL_CHECK("tomorrow midnight", now, tm);
450 1.21 kre
451 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
452 1.21 kre tm.tm_isdst = -1;
453 1.21 kre tm.tm_mday++;
454 1.21 kre tm.tm_hour = 12;
455 1.21 kre tm.tm_min = tm.tm_sec = 0;
456 1.21 kre REL_CHECK("noon tomorrow", now, tm);
457 1.21 kre
458 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
459 1.21 kre if (tm.tm_wday > 2)
460 1.21 kre tm.tm_mday += 7;
461 1.21 kre tm.tm_mday += 2 - tm.tm_wday;
462 1.21 kre tm.tm_sec = tm.tm_min = tm.tm_hour = 0;
463 1.21 kre tm.tm_isdst = -1;
464 1.21 kre REL_CHECK("midnight Tuesday", now, tm);
465 1.21 kre
466 1.21 kre ATF_CHECK(localtime_r(&now, &tm) != NULL);
467 1.21 kre if (tm.tm_wday > 2 + 1)
468 1.21 kre tm.tm_mday += 7;
469 1.21 kre tm.tm_mday += 2 - tm.tm_wday;
470 1.21 kre tm.tm_mday++; /* xxx midnight --> the next day */
471 1.21 kre tm.tm_sec = tm.tm_min = tm.tm_hour = 0;
472 1.21 kre tm.tm_isdst = -1;
473 1.21 kre REL_CHECK("Tuesday midnight", now, tm);
474 1.21 kre }
475 1.1 njoly }
476 1.1 njoly
477 1.6 apb ATF_TC(atsecs);
478 1.6 apb
479 1.6 apb ATF_TC_HEAD(atsecs, tc)
480 1.6 apb {
481 1.6 apb atf_tc_set_md_var(tc, "descr", "Test seconds past the epoch");
482 1.6 apb }
483 1.6 apb
484 1.6 apb ATF_TC_BODY(atsecs, tc)
485 1.6 apb {
486 1.6 apb int tzoff;
487 1.6 apb
488 1.6 apb /* "@0" -> (time_t)0, regardless of timezone */
489 1.6 apb ATF_CHECK(parsedate("@0", NULL, NULL) == (time_t)0);
490 1.6 apb putenv(__UNCONST("TZ=Europe/Berlin"));
491 1.6 apb tzset();
492 1.6 apb ATF_CHECK(parsedate("@0", NULL, NULL) == (time_t)0);
493 1.6 apb putenv(__UNCONST("TZ=America/New_York"));
494 1.6 apb tzset();
495 1.6 apb ATF_CHECK(parsedate("@0", NULL, NULL) == (time_t)0);
496 1.6 apb tzoff = 0;
497 1.6 apb ATF_CHECK(parsedate("@0", NULL, &tzoff) == (time_t)0);
498 1.6 apb tzoff = 3600;
499 1.6 apb ATF_CHECK(parsedate("@0", NULL, &tzoff) == (time_t)0);
500 1.6 apb tzoff = -3600;
501 1.6 apb ATF_CHECK(parsedate("@0", NULL, &tzoff) == (time_t)0);
502 1.6 apb
503 1.7 apb /* -1 or other negative numbers are not errors */
504 1.6 apb errno = 0;
505 1.6 apb ATF_CHECK(parsedate("@-1", NULL, &tzoff) == (time_t)-1 && errno == 0);
506 1.7 apb ATF_CHECK(parsedate("@-2", NULL, &tzoff) == (time_t)-2 && errno == 0);
507 1.7 apb
508 1.7 apb /* junk is an error */
509 1.7 apb errno = 0;
510 1.7 apb ATF_CHECK(parsedate("@junk", NULL, NULL) == (time_t)-1 && errno != 0);
511 1.6 apb }
512 1.6 apb
513 1.14 christos ATF_TC(zones);
514 1.14 christos
515 1.14 christos ATF_TC_HEAD(zones, tc)
516 1.14 christos {
517 1.14 christos atf_tc_set_md_var(tc, "descr", "Test parsing dates with zones");
518 1.14 christos }
519 1.14 christos
520 1.14 christos ATF_TC_BODY(zones, tc)
521 1.14 christos {
522 1.14 christos parsecheck("2015-12-06 16:11:48 UTC", NULL, NULL, gmtime_r,
523 1.14 christos 2015, 12, 6, 16, 11, 48);
524 1.14 christos parsecheck("2015-12-06 16:11:48 UT", NULL, NULL, gmtime_r,
525 1.14 christos 2015, 12, 6, 16, 11, 48);
526 1.14 christos parsecheck("2015-12-06 16:11:48 GMT", NULL, NULL, gmtime_r,
527 1.14 christos 2015, 12, 6, 16, 11, 48);
528 1.14 christos parsecheck("2015-12-06 16:11:48 +0000", NULL, NULL, gmtime_r,
529 1.14 christos 2015, 12, 6, 16, 11, 48);
530 1.14 christos
531 1.14 christos parsecheck("2015-12-06 16:11:48 -0500", NULL, NULL, gmtime_r,
532 1.14 christos 2015, 12, 6, 21, 11, 48);
533 1.14 christos parsecheck("2015-12-06 16:11:48 EST", NULL, NULL, gmtime_r,
534 1.14 christos 2015, 12, 6, 21, 11, 48);
535 1.14 christos parsecheck("2015-12-06 16:11:48 EDT", NULL, NULL, gmtime_r,
536 1.14 christos 2015, 12, 6, 20, 11, 48);
537 1.14 christos parsecheck("2015-12-06 16:11:48 +0500", NULL, NULL, gmtime_r,
538 1.14 christos 2015, 12, 6, 11, 11, 48);
539 1.14 christos
540 1.14 christos parsecheck("2015-12-06 16:11:48 +1000", NULL, NULL, gmtime_r,
541 1.14 christos 2015, 12, 6, 6, 11, 48);
542 1.14 christos parsecheck("2015-12-06 16:11:48 AEST", NULL, NULL, gmtime_r,
543 1.14 christos 2015, 12, 6, 6, 11, 48);
544 1.14 christos parsecheck("2015-12-06 16:11:48 -1000", NULL, NULL, gmtime_r,
545 1.14 christos 2015, 12, 7, 2, 11, 48);
546 1.14 christos parsecheck("2015-12-06 16:11:48 HST", NULL, NULL, gmtime_r,
547 1.14 christos 2015, 12, 7, 2, 11, 48);
548 1.14 christos
549 1.14 christos parsecheck("2015-12-06 16:11:48 AWST", NULL, NULL, gmtime_r,
550 1.14 christos 2015, 12, 6, 8, 11, 48);
551 1.14 christos parsecheck("2015-12-06 16:11:48 NZDT", NULL, NULL, gmtime_r,
552 1.14 christos 2015, 12, 6, 3, 11, 48);
553 1.14 christos
554 1.14 christos parsecheck("Sun, 6 Dec 2015 09:43:16 -0500", NULL, NULL, gmtime_r,
555 1.14 christos 2015, 12, 6, 14, 43, 16);
556 1.14 christos parsecheck("Mon Dec 7 03:13:31 ICT 2015", NULL, NULL, gmtime_r,
557 1.14 christos 2015, 12, 6, 20, 13, 31);
558 1.14 christos /* the day name is ignored when a day of month (etc) is given... */
559 1.14 christos parsecheck("Sat Dec 7 03:13:31 ICT 2015", NULL, NULL, gmtime_r,
560 1.14 christos 2015, 12, 6, 20, 13, 31);
561 1.14 christos
562 1.14 christos
563 1.14 christos parsecheck("2015-12-06 12:00:00 IDLW", NULL, NULL, gmtime_r,
564 1.14 christos 2015, 12, 7, 0, 0, 0);
565 1.14 christos parsecheck("2015-12-06 12:00:00 IDLE", NULL, NULL, gmtime_r,
566 1.14 christos 2015, 12, 6, 0, 0, 0);
567 1.14 christos
568 1.14 christos parsecheck("2015-12-06 21:17:33 NFT", NULL, NULL, gmtime_r,
569 1.14 christos 2015, 12, 7, 0, 47, 33);
570 1.14 christos parsecheck("2015-12-06 21:17:33 ACST", NULL, NULL, gmtime_r,
571 1.14 christos 2015, 12, 6, 11, 47, 33);
572 1.14 christos parsecheck("2015-12-06 21:17:33 +0717", NULL, NULL, gmtime_r,
573 1.14 christos 2015, 12, 6, 14, 0, 33);
574 1.14 christos
575 1.14 christos parsecheck("2015-12-06 21:21:21 Z", NULL, NULL, gmtime_r,
576 1.14 christos 2015, 12, 6, 21, 21, 21);
577 1.14 christos parsecheck("2015-12-06 21:21:21 A", NULL, NULL, gmtime_r,
578 1.14 christos 2015, 12, 6, 22, 21, 21);
579 1.14 christos parsecheck("2015-12-06 21:21:21 G", NULL, NULL, gmtime_r,
580 1.14 christos 2015, 12, 7, 4, 21, 21);
581 1.14 christos parsecheck("2015-12-06 21:21:21 M", NULL, NULL, gmtime_r,
582 1.14 christos 2015, 12, 7, 9, 21, 21);
583 1.14 christos parsecheck("2015-12-06 21:21:21 N", NULL, NULL, gmtime_r,
584 1.14 christos 2015, 12, 6, 20, 21, 21);
585 1.14 christos parsecheck("2015-12-06 21:21:21 T", NULL, NULL, gmtime_r,
586 1.14 christos 2015, 12, 6, 14, 21, 21);
587 1.14 christos parsecheck("2015-12-06 21:21:21 Y", NULL, NULL, gmtime_r,
588 1.14 christos 2015, 12, 6, 9, 21, 21);
589 1.14 christos
590 1.14 christos }
591 1.14 christos
592 1.14 christos ATF_TC(gibberish);
593 1.14 christos
594 1.14 christos ATF_TC_HEAD(gibberish, tc)
595 1.14 christos {
596 1.14 christos atf_tc_set_md_var(tc, "descr", "Test (not) parsing nonsense");
597 1.14 christos }
598 1.14 christos
599 1.14 christos ATF_TC_BODY(gibberish, tc)
600 1.14 christos {
601 1.14 christos errno = 0;
602 1.14 christos ATF_CHECK(parsedate("invalid nonsense", NULL, NULL) == (time_t)-1
603 1.14 christos && errno != 0);
604 1.14 christos errno = 0;
605 1.14 christos ATF_CHECK(parsedate("12th day of Christmas", NULL, NULL) == (time_t)-1
606 1.14 christos && errno != 0);
607 1.14 christos errno = 0;
608 1.14 christos ATF_CHECK(parsedate("2015-31-07 15:00", NULL, NULL) == (time_t)-1
609 1.14 christos && errno != 0);
610 1.14 christos errno = 0;
611 1.14 christos ATF_CHECK(parsedate("2015-02-29 10:01", NULL, NULL) == (time_t)-1
612 1.14 christos && errno != 0);
613 1.14 christos errno = 0;
614 1.14 christos ATF_CHECK(parsedate("2015-12-06 24:01", NULL, NULL) == (time_t)-1
615 1.14 christos && errno != 0);
616 1.14 christos errno = 0;
617 1.14 christos ATF_CHECK(parsedate("2015-12-06 14:61", NULL, NULL) == (time_t)-1
618 1.14 christos && errno != 0);
619 1.14 christos }
620 1.14 christos
621 1.1 njoly ATF_TP_ADD_TCS(tp)
622 1.1 njoly {
623 1.33 christos setenv("TZ", "UTC", 1);
624 1.33 christos tzset();
625 1.1 njoly ATF_TP_ADD_TC(tp, dates);
626 1.1 njoly ATF_TP_ADD_TC(tp, times);
627 1.11 apb ATF_TP_ADD_TC(tp, dsttimes);
628 1.1 njoly ATF_TP_ADD_TC(tp, relative);
629 1.6 apb ATF_TP_ADD_TC(tp, atsecs);
630 1.14 christos ATF_TP_ADD_TC(tp, zones);
631 1.14 christos ATF_TP_ADD_TC(tp, gibberish);
632 1.1 njoly
633 1.1 njoly return atf_no_error();
634 1.1 njoly }
635 1.14 christos
636