4 # Copyright (C) 2005-2009 Free Software Foundation, Inc.
6 # This program is free software: you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation, either version 3 of the License, or
9 # (at your option) any later version.
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with this program. If not, see <http://www.gnu.org/licenses/>.
21 (my $ME = $0) =~ s
|.*/||;
23 # Turn off localization of executable's output.
24 @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x
3;
26 # Export TZ=UTC0 so that zone-dependent strings match.
30 my $d0 = '1997-01-19';
31 my $d1 = "$d0 $t0 +0";
33 my $ts = '08:17:49'; # next second
34 my $tm = '08:18:48'; # next minute
35 my $th = '09:17:48'; # next hour
37 my $dd = '1997-01-20'; # next day
38 my $dw = '1997-01-26'; # next week
39 my $dm = '1997-02-19'; # next month
40 my $dy = '1998-01-19'; # next month
42 my $fmt = "'+%Y-%m-%d %T'";
44 # Determine a number of seconds that will provoke an invalid
45 # time diagnostic from date. If possible, use a number that
46 # is less than 2^64, yet so large that it would cause the resulting
47 # tm_year value to be too large for a 32-bit int. But some systems
48 # (Solaris 8) have a buggy localtime that mistakenly accepts such
49 # invalid times and give garbage in tm_year. Other systems might
50 # have an int type that is wider than 32. So if this localtime
51 # call succeeds, use 2^64 as the number of seconds.
52 my $n_seconds = 72057594037927935;
53 my @d = localtime ($n_seconds);
56 and $n_seconds = '18446744073709551616';
60 # test-name, [option, option, ...] {OUT=>"expected-output"}
62 ['1', "-d '$d1' +'%% %a %A %b %B'", {OUT
=>"% Sun Sunday Jan January"}],
64 # [Actually, skip it on *all* systems. -- this Perl code is run at
65 # distribution-build-time, not at configure/test time. ]
67 # Skip the test of %c on SunOS4 systems. Such systems would fail this
68 # test because their underlying strftime doesn't handle the %c format
69 # properly. GNU strftime must rely on the underlying host library
70 # function to get locale-dependent behavior, as strftime is the only
71 # portable interface to that behavior.
72 # ['2', "-d '$d1' +'%c'", {OUT=>"Sun Jan 19 $t0 1997"}],
74 ['3', "-d '$d1' +'%d_%D_%e_%h_%H'", {OUT
=>"19_01/19/97_19_Jan_08"}],
75 ['4', "-d '$d1' +'%I_%j_%k_%l_%m'", {OUT
=>"08_019_ 8_ 8_01"}],
76 ['5', "-d '$d1' +'%M_%n_%p_%r'", {OUT
=>"17_\n_AM_$t0 AM"}],
77 ['6', "-d '$d1' +'%s_%S_%t_%T'", {OUT
=>"853661868_48_\t_$t0"}],
78 ['7', "-d '$d1' +'%U_%V_%w_%W'", {OUT
=>"03_03_0_02"}],
79 ['8', "-d '$d1' +'%x_%X_%y_%Y'", {OUT
=>"01/19/97_${t0}_97_1997"}],
80 ['9', "-d '$d1' +'%z'", {OUT
=>"+0000"}],
82 ['leap-1', "--date '02/29/1996 1 year' +%Y-%m-%d", {OUT
=>"1997-03-01"}],
84 ['U95-1', "--date '1995-1-1' +%U", {OUT
=>"01"}],
85 ['U95-2', "--date '1995-1-7' +%U", {OUT
=>"01"}],
86 ['U95-3', "--date '1995-1-8' +%U", {OUT
=>"02"}],
88 ['U92-1', "--date '1992-1-1' +%U", {OUT
=>"00"}],
89 ['U92-2', "--date '1992-1-4' +%U", {OUT
=>"00"}],
90 ['U92-3', "--date '1992-1-5' +%U", {OUT
=>"01"}],
92 ['V92-1', "--date '1992-1-1' +%V", {OUT
=>"01"}],
93 ['V92-2', "--date '1992-1-5' +%V", {OUT
=>"01"}],
94 ['V92-3', "--date '1992-1-6' +%V", {OUT
=>"02"}],
96 ['W92-1', "--date '1992-1-1' +%W", {OUT
=>"00"}],
97 ['W92-2', "--date '1992-1-5' +%W", {OUT
=>"00"}],
98 ['W92-3', "--date '1992-1-6' +%W", {OUT
=>"01"}],
100 ['millen-1', "--date '1998-1-1 3 years' +%Y", {OUT
=>"2001"}],
102 ['rel-0', "-d '$d1 now' '+%Y-%m-%d %T'", {OUT
=>"$d0 $t0"}],
104 ['rel-1a', "-d '$d1 yesterday' $fmt", {OUT
=>"1997-01-18 $t0"}],
105 ['rel-1b', "-d '$d1 tomorrow' $fmt", {OUT
=>"1997-01-20 $t0"}],
107 ['rel-2a', "-d '$d1 6 years ago' $fmt", {OUT
=>"1991-01-19 $t0"}],
108 ['rel-2b', "-d '$d1 7 months ago' $fmt", {OUT
=>"1996-06-19 $t0"}],
109 ['rel-2c', "-d '$d1 8 weeks ago' $fmt", {OUT
=>"1996-11-24 $t0"}],
110 ['rel-2d', "-d '$d1 1 day ago' $fmt", {OUT
=>"1997-01-18 $t0"}],
111 ['rel-2e', "-d '$d1 2 hours ago' $fmt", {OUT
=>"$d0 06:17:48"}],
112 ['rel-2f', "-d '$d1 3 minutes ago' $fmt", {OUT
=>"$d0 08:14:48"}],
113 ['rel-2g', "-d '$d1 4 seconds ago' $fmt", {OUT
=>"$d0 08:17:44"}],
115 ['rel-3a', "-d '$d1 4 seconds ago' $fmt", {OUT
=>"$d0 08:17:44"}],
117 # This has always worked, ...
118 ['rel-1day', "-d '20050101 1 day' +%F", {OUT
=>"2005-01-02"}],
119 # ...but up to coreutils-6.9, this was rejected due to the "+".
120 ['rel-plus1', "-d '20050101 +1 day' +%F", {OUT
=>"2005-01-02"}],
122 ['next-s', "-d '$d1 next second' '+%Y-%m-%d %T'", {OUT
=>"$d0 $ts"}],
123 ['next-m', "-d '$d1 next minute' '+%Y-%m-%d %T'", {OUT
=>"$d0 $tm"}],
124 ['next-h', "-d '$d1 next hour' '+%Y-%m-%d %T'", {OUT
=>"$d0 $th"}],
125 ['next-d', "-d '$d1 next day' '+%Y-%m-%d %T'", {OUT
=>"$dd $t0"}],
126 ['next-w', "-d '$d1 next week' '+%Y-%m-%d %T'", {OUT
=>"$dw $t0"}],
127 ['next-mo', "-d '$d1 next month' '+%Y-%m-%d %T'", {OUT
=>"$dm $t0"}],
128 ['next-y', "-d '$d1 next year' '+%Y-%m-%d %T'", {OUT
=>"$dy $t0"}],
130 ['utc-0', "-u -d '08/01/97 6:00' '+%D,%H:%M'", {OUT
=>"08/01/97,06:00"},
131 {ENV
=> 'TZ=UTC+4'}],
133 ['utc-0a', "-u -d '08/01/97 6:00 UTC +4 hours' '+%D,%H:%M'",
134 {OUT
=>"08/01/97,10:00"}],
135 # Make sure --file=FILE works with -u.
136 ['utc-1', "-u --file=f '+%Y-%m-%d %T'",
137 {AUX
=>{f
=>"$d0 $t0\n$d0 $t0"}},
138 {OUT
=>"$d0 $t0\n$d0 $t0"},
139 {ENV
=> 'TZ=UTC+1'}],
141 ['utc-1a', "-u --file=f '+%Y-%m-%d %T'",
142 {AUX
=>{f
=>"$d0 $t0 UTC +1 hour\n$d0 $t0 UTC +1 hour"}},
143 {OUT
=>"$d0 $th\n$d0 $th"}],
145 # From the examples in the documentation.
146 ['date2sec-0', "-d '1970-01-01 00:00:01' +%s", {OUT
=>"7201"},
147 {ENV
=> 'TZ=UTC+2'}],
149 # Same as above, but don't rely on TZ in environment.
150 ['date2sec-0a', "-d '1970-01-01 00:00:01 UTC +2 hours' +%s",
153 ['date2sec-1', "-d 2000-01-01 +%s", {OUT
=>"946684800"}],
154 ['sec2date-0', "-d '1970-01-01 UTC 946684800 sec' +'%Y-%m-%d %T %z'",
155 {OUT
=>"2000-01-01 00:00:00 +0000"}],
157 ['this-m', "-d '$d0 $t0 this minute' $fmt", {OUT
=>"$d0 $t0"}],
158 ['this-h', "-d '$d0 $t0 this hour' $fmt", {OUT
=>"$d0 $t0"}],
159 ['this-w', "-d '$d0 $t0 this week' $fmt", {OUT
=>"$d0 $t0"}],
160 ['this-mo', "-d '$d0 $t0 this month' $fmt", {OUT
=>"$d0 $t0"}],
161 ['this-y', "-d '$d0 $t0 this year' $fmt", {OUT
=>"$d0 $t0"}],
163 ['risks-1', "-d 'Nov 10 1996' $fmt", {OUT
=>"1996-11-10 00:00:00"}],
165 # This one would pass if TZ (with any, or even no, value) were in
167 ['regress-1', "-u -d '1996-11-10 0:00:00 +0' $fmt",
168 {OUT
=>"1996-11-10 00:00:00"},
172 ['datevtime-1', "-d 000909 $fmt", {OUT
=>"2000-09-09 00:00:00"}],
174 # test for RFC-822 conformance
175 ['rfc822-1', "-R -d '$d1'", {OUT
=>"Sun, 19 Jan 1997 08:17:48 +0000"},
176 # Solaris 5.9's /bin/sh emits this diagnostic to stderr
177 # if you don't have support for the named locale.
178 {ERR_SUBST
=> q
!s/^couldn't set locale correctly\n//!},
179 {ENV
=> 'LC_ALL=de_DE TZ=UTC0'}],
181 # Relative seconds, with time. fixed in 2.0j
182 ['relative-1', "--utc -d '1970-01-01 00:00:00 UTC +961062237 sec' $fmt",
183 {OUT
=>"2000-06-15 09:43:57"}],
185 # Relative seconds, no time.
186 ['relative-2', "--utc -d '1970-01-01 UTC +961062237 sec' $fmt",
187 {OUT
=>"2000-06-15 09:43:57"},
188 {ENV
=> 'TZ=UTC+1'}],
190 # Relative days, no time, across time zones.
191 ['relative-3', "-I -d '2006-04-23 21 days ago'", {OUT
=>"2006-04-02"},
192 {ENV
=>'TZ=PST8PDT,M4.1.0,M10.5.0'}],
194 # This would infloop (or appear to) prior to coreutils-4.5.5,
195 # due to a bug in strftime.c.
196 ['wide-fmt', "-d '1999-06-01'", '+%3004Y', {OUT
=>'0' x
3000 . "1999"}],
198 # Ensure that we can parse MONTHNAME-DAY-YEAR.
199 ['moname-d-y', '--iso -d May-23-2003', {OUT
=>"2003-05-23"}],
200 ['moname-d-y-r', '--rfc-3339=date -d May-23-2003', {OUT
=>"2003-05-23"}],
202 ['epoch', '--iso=sec -d @31536000',
203 {OUT
=>"1971-01-01T00:00:00+0000"}],
204 ['epoch-r', '--rfc-3339=sec -d @31536000',
205 {OUT
=>"1971-01-01 00:00:00+00:00"}],
207 ['ns-10', '--iso=ns', '-d "1969-12-31 13:00:00.00000001-1100"',
208 {OUT
=>"1970-01-01T00:00:00,000000010+0000"}],
209 ['ns-10-r', '--rfc-3339=ns', '-d "1969-12-31 13:00:00.00000001-1100"',
210 {OUT
=>"1970-01-01 00:00:00.000000010+00:00"}],
212 ['ns-max32', '--iso=ns', '-d "2038-01-19 03:14:07.999999999"',
213 {OUT
=>"2038-01-19T03:14:07,999999999+0000"}],
214 ['ns-max32-r', '--rfc-3339=ns', '-d "2038-01-19 03:14:07.999999999"',
215 {OUT
=>"2038-01-19 03:14:07.999999999+00:00"}],
217 ['tz-1', '+%:::z', {OUT
=>"-12:34:56"}, {ENV
=>'TZ=XXX12:34:56'}],
219 ['tz-2', '+%:::z', {OUT
=>"+12:34:56"}, {ENV
=>'TZ=XXX-12:34:56'}],
221 ['tz-3', '+%::z', {OUT
=>"+01:02:03"}, {ENV
=>'TZ=XXX-1:02:03'}],
223 ['tz-4', '+%:::z', {OUT
=>"+12"}, {ENV
=>'TZ=XXX-12'}],
225 ['tz-5', '+%:z', {OUT
=>"-00:01"}, {ENV
=>'TZ=XXX0:01'}],
227 # Accept %:z with a field width before the `:'.
228 ['tz-5w','+%8:z', {OUT
=>"-0000:01"}, {ENV
=>'TZ=XXX0:01'}],
229 # Don't recognize %:z with a field width between the `:' and the `z'.
230 ['tz-5wf', '+%:8z', {OUT
=>"%:8z"}, {ENV
=>'TZ=XXX0:01'}],
233 '--iso=ns', "-d'1970-01-01 00:00:00.1234567 UTC +961062237.987654321 sec'",
234 {OUT
=>"2000-06-15T09:43:58,111111021+0000"}],
235 ['ns-relativer', '--rfc-3339=ns',
236 "-d'1970-01-01 00:00:00.1234567 UTC +961062237.987654321 sec'",
237 {OUT
=>"2000-06-15 09:43:58.111111021+00:00"}],
239 # Since coreutils/lib/getdate.y revision 1.96 (post-coreutils-5.3.0),
240 # a command like the following would mistakenly exit nonzero with an
241 # `invalid date ...' diagnostic, but when run in a time zone for
242 # which daylight savings time is in effect for the starting date.
243 # Unfortunately (for ease of testing), if you set TZ at all, this
244 # failure is not triggered, hence the removal of TZ from the environment.
245 ['cross-dst', "-d'2005-03-27 +1 day'", '+%Y', {OUT
=>"2005"},
249 ['empty-fmt', '+', {OUT
=>""}],
251 ['neg-secs', '-d @-22 +%05s', {OUT
=>"-0022"}],
252 ['neg-secs2', '-d @-22 +%_5s', {OUT
=>" -22"}],
254 # Before today's fix, date would print uninitialized data
255 # to standard output for an out-of-range date:
256 # $ date -d @$(echo 2^56-1|bc) 2> /dev/null | od -a -N3
259 ['uninit-64', "-d \@$n_seconds",
261 # Use ERR_SUBST to get around fact that the diagnostic
262 # you get on a system with 32-bit time_t is not the same as
263 # the one you get for a system where it's 64 bits wide:
264 # - date: time 72057594037927935 is out of range
265 # + date: invalid date `@72057594037927935'
266 {ERR_SUBST
=> 's/.*//'},
271 ['fill-1', '-d 1999-12-08 +%_3d', {OUT
=>' 8'}],
272 ['fill-2', '-d 1999-12-08 +%03d', {OUT
=>'008'}],
274 # Test the combination of the to-upper-case modifier (^) and a conversion
275 # specifier that expands to a string containing lower case characters.
276 ['subfmt-up1', '-d "1999-12-08 7:30" "+%^c"',
277 # Solaris 5.9 prints 'WED DEC 08 07:30:00 1999', while
278 # most others print 'WED DEC 8 07:30:00 1999'.
279 {OUT_SUBST
=> 's/ [ 0]8.*//'},
283 # Repeat the cross-dst test, using Jan 1, 2005 and every interval from 1..364.
284 foreach my $i (1..364)
286 push @Tests, ["cross-dst$i",
287 "-d'2005-01-01 +$i day'", '+%Y', {OUT
=>"2005"},
292 # Append "\n" to each OUT=> RHS if the expected exit value is either
293 # zero or not specified (defaults to zero).
294 foreach my $t (@Tests)
299 ref $e && ref $e eq 'HASH' && defined $e->{EXIT
}
300 and $exit_val = $e->{EXIT
};
304 ref $e && ref $e eq 'HASH' && defined $e->{OUT
} && ! $exit_val
305 and $e->{OUT
} .= "\n";
309 my $save_temps = $ENV{DEBUG
};
310 my $verbose = $ENV{VERBOSE
};
313 my $fail = run_tests
($ME, $prog, \
@Tests, $save_temps, $verbose);