tests/misc/date

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