mirror of
https://github.com/coreutils/coreutils.git
synced 2024-12-12 11:23:43 +08:00
b78c6b68f7
* tests/CuTmpdir.pm: New file.
* tests/Makefile.am (EXTRA_DIST): Add CuTmpdir.pm.
* tests/misc/od, tests/misc/base64, tests/misc/basename:
* tests/misc/cut, tests/misc/date, tests/misc/dirname:
* tests/misc/expand, tests/misc/fold, tests/misc/head-elide-tail:
* tests/misc/paste-no-nl, tests/misc/pr, tests/misc/sha224sum:
* tests/misc/sha256sum, tests/misc/sha384sum, tests/misc/sha512sum:
* tests/misc/sort-merge, tests/misc/stat-printf, tests/misc/test-diag:
* tests/misc/wc-files0-from, tests/misc/xstrtol:
* tests/dd/skip-seek, tests/dircolors/simple, tests/du/files0-from:
* tests/expr/basic, tests/factor/basic, tests/fmt/basic:
* tests/ls-2/tests, tests/md5sum/basic-1, tests/md5sum/newline-1:
* tests/seq/basic, tests/sha1sum/basic-1, tests/sha1sum/sample-vec:
* tests/sum/basic-1, tests/tsort/basic-1, tests/unexpand/basic-1:
* tests/mv/i-1, tests/rm/empty-name, tests/rm/unreadable: Use it.
* tests/misc/test-diag: Use "$ENV{abs_top_builddir}/src/test",
not "../../src/test", so it works when run from a subdirectory.
* tests/ls-2/tests: Create temp files and dirs from within the perl
script, so that they're removed, when run from a subdirectory.
323 lines
12 KiB
Bash
Executable File
323 lines
12 KiB
Bash
Executable File
#!/bin/sh
|
|
# Test "date".
|
|
|
|
# Copyright (C) 2005-2007 Free Software Foundation, Inc.
|
|
|
|
# This program is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
: ${PERL=perl}
|
|
: ${srcdir=.}
|
|
|
|
$PERL -e 1 > /dev/null 2>&1 || {
|
|
echo 1>&2 "$0: configure didn't find a usable version of Perl," \
|
|
"so can't run this test"
|
|
exit 77
|
|
}
|
|
|
|
me=`echo $0|sed 's,.*/,,'`
|
|
exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
|
|
require 5.003;
|
|
use strict;
|
|
|
|
(my $ME = $0) =~ s|.*/||;
|
|
|
|
# Turn off localisation of executable's ouput.
|
|
@ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
|
|
|
|
# Export TZ=UTC0 so that zone-dependent strings match.
|
|
$ENV{TZ} = 'UTC0';
|
|
|
|
my $t0 = '08:17:48';
|
|
my $d0 = '1997-01-19';
|
|
my $d1 = "$d0 $t0 +0";
|
|
|
|
my $ts = '08:17:49'; # next second
|
|
my $tm = '08:18:48'; # next minute
|
|
my $th = '09:17:48'; # next hour
|
|
|
|
my $dd = '1997-01-20'; # next day
|
|
my $dw = '1997-01-26'; # next week
|
|
my $dm = '1997-02-19'; # next month
|
|
my $dy = '1998-01-19'; # next month
|
|
|
|
my $fmt = "'+%Y-%m-%d %T'";
|
|
|
|
# Determine a number of seconds that will provoke an invalid
|
|
# time diagnostic from date. If possible, use a number that
|
|
# is less than 2^64, yet so large that it would cause the resulting
|
|
# tm_year value to be too large for a 32-bit int. But some systems
|
|
# (Solaris 8) have a buggy localtime that mistakenly accepts such
|
|
# invalid times and give garbage in tm_year. Other systems might
|
|
# have an int type that is wider than 32. So if this localtime
|
|
# call succeeds, use 2^64 as the number of seconds.
|
|
my $n_seconds = 72057594037927935;
|
|
my @d = localtime ($n_seconds);
|
|
my $year = $d[5];
|
|
defined $year
|
|
and $n_seconds = '18446744073709551616';
|
|
|
|
my @Tests =
|
|
(
|
|
# test-name, [option, option, ...] {OUT=>"expected-output"}
|
|
#
|
|
['1', "-d '$d1' +'%% %a %A %b %B'", {OUT=>"% Sun Sunday Jan January"}],
|
|
|
|
# [Actually, skip it on *all* systems. -- this Perl code is run at
|
|
# distribution-build-time, not at configure/test time. ]
|
|
|
|
# Skip the test of %c on SunOS4 systems. Such systems would fail this
|
|
# test because their underlying strftime doesn't handle the %c format
|
|
# properly. GNU strftime must rely on the underlying host library
|
|
# function to get locale-dependent behavior, as strftime is the only
|
|
# portable interface to that behavior.
|
|
# ['2', "-d '$d1' +'%c'", {OUT=>"Sun Jan 19 $t0 1997"}],
|
|
|
|
['3', "-d '$d1' +'%d_%D_%e_%h_%H'", {OUT=>"19_01/19/97_19_Jan_08"}],
|
|
['4', "-d '$d1' +'%I_%j_%k_%l_%m'", {OUT=>"08_019_ 8_ 8_01"}],
|
|
['5', "-d '$d1' +'%M_%n_%p_%r'", {OUT=>"17_\n_AM_$t0 AM"}],
|
|
['6', "-d '$d1' +'%s_%S_%t_%T'", {OUT=>"853661868_48_\t_$t0"}],
|
|
['7', "-d '$d1' +'%U_%V_%w_%W'", {OUT=>"03_03_0_02"}],
|
|
['8', "-d '$d1' +'%x_%X_%y_%Y'", {OUT=>"01/19/97_${t0}_97_1997"}],
|
|
['9', "-d '$d1' +'%z'", {OUT=>"+0000"}],
|
|
|
|
['leap-1', "--date '02/29/1996 1 year' +%Y-%m-%d", {OUT=>"1997-03-01"}],
|
|
|
|
['U95-1', "--date '1995-1-1' +%U", {OUT=>"01"}],
|
|
['U95-2', "--date '1995-1-7' +%U", {OUT=>"01"}],
|
|
['U95-3', "--date '1995-1-8' +%U", {OUT=>"02"}],
|
|
|
|
['U92-1', "--date '1992-1-1' +%U", {OUT=>"00"}],
|
|
['U92-2', "--date '1992-1-4' +%U", {OUT=>"00"}],
|
|
['U92-3', "--date '1992-1-5' +%U", {OUT=>"01"}],
|
|
|
|
['V92-1', "--date '1992-1-1' +%V", {OUT=>"01"}],
|
|
['V92-2', "--date '1992-1-5' +%V", {OUT=>"01"}],
|
|
['V92-3', "--date '1992-1-6' +%V", {OUT=>"02"}],
|
|
|
|
['W92-1', "--date '1992-1-1' +%W", {OUT=>"00"}],
|
|
['W92-2', "--date '1992-1-5' +%W", {OUT=>"00"}],
|
|
['W92-3', "--date '1992-1-6' +%W", {OUT=>"01"}],
|
|
|
|
['millen-1', "--date '1998-1-1 3 years' +%Y", {OUT=>"2001"}],
|
|
|
|
['rel-0', "-d '$d1 now' '+%Y-%m-%d %T'", {OUT=>"$d0 $t0"}],
|
|
|
|
['rel-1a', "-d '$d1 yesterday' $fmt", {OUT=>"1997-01-18 $t0"}],
|
|
['rel-1b', "-d '$d1 tomorrow' $fmt", {OUT=>"1997-01-20 $t0"}],
|
|
|
|
['rel-2a', "-d '$d1 6 years ago' $fmt", {OUT=>"1991-01-19 $t0"}],
|
|
['rel-2b', "-d '$d1 7 months ago' $fmt", {OUT=>"1996-06-19 $t0"}],
|
|
['rel-2c', "-d '$d1 8 weeks ago' $fmt", {OUT=>"1996-11-24 $t0"}],
|
|
['rel-2d', "-d '$d1 1 day ago' $fmt", {OUT=>"1997-01-18 $t0"}],
|
|
['rel-2e', "-d '$d1 2 hours ago' $fmt", {OUT=>"$d0 06:17:48"}],
|
|
['rel-2f', "-d '$d1 3 minutes ago' $fmt", {OUT=>"$d0 08:14:48"}],
|
|
['rel-2g', "-d '$d1 4 seconds ago' $fmt", {OUT=>"$d0 08:17:44"}],
|
|
|
|
['rel-3a', "-d '$d1 4 seconds ago' $fmt", {OUT=>"$d0 08:17:44"}],
|
|
|
|
['next-s', "-d '$d1 next second' '+%Y-%m-%d %T'", {OUT=>"$d0 $ts"}],
|
|
['next-m', "-d '$d1 next minute' '+%Y-%m-%d %T'", {OUT=>"$d0 $tm"}],
|
|
['next-h', "-d '$d1 next hour' '+%Y-%m-%d %T'", {OUT=>"$d0 $th"}],
|
|
['next-d', "-d '$d1 next day' '+%Y-%m-%d %T'", {OUT=>"$dd $t0"}],
|
|
['next-w', "-d '$d1 next week' '+%Y-%m-%d %T'", {OUT=>"$dw $t0"}],
|
|
['next-mo', "-d '$d1 next month' '+%Y-%m-%d %T'", {OUT=>"$dm $t0"}],
|
|
['next-y', "-d '$d1 next year' '+%Y-%m-%d %T'", {OUT=>"$dy $t0"}],
|
|
|
|
['utc-0', "-u -d '08/01/97 6:00' '+%D,%H:%M'", {OUT=>"08/01/97,06:00"},
|
|
{ENV => 'TZ=UTC+4'}],
|
|
|
|
['utc-0a', "-u -d '08/01/97 6:00 UTC +4 hours' '+%D,%H:%M'",
|
|
{OUT=>"08/01/97,10:00"}],
|
|
# Make sure --file=FILE works with -u.
|
|
['utc-1', "-u --file=f '+%Y-%m-%d %T'",
|
|
{AUX=>{f=>"$d0 $t0\n$d0 $t0"}},
|
|
{OUT=>"$d0 $t0\n$d0 $t0"},
|
|
{ENV => 'TZ=UTC+1'}],
|
|
|
|
['utc-1a', "-u --file=f '+%Y-%m-%d %T'",
|
|
{AUX=>{f=>"$d0 $t0 UTC +1 hour\n$d0 $t0 UTC +1 hour"}},
|
|
{OUT=>"$d0 $th\n$d0 $th"}],
|
|
|
|
# From the examples in the documentation.
|
|
['date2sec-0', "-d '1970-01-01 00:00:01' +%s", {OUT=>"7201"},
|
|
{ENV => 'TZ=UTC+2'}],
|
|
|
|
# Same as above, but don't rely on TZ in environment.
|
|
['date2sec-0a', "-d '1970-01-01 00:00:01 UTC +2 hours' +%s",
|
|
{OUT=>"7201"}],
|
|
|
|
['date2sec-1', "-d 2000-01-01 +%s", {OUT=>"946684800"}],
|
|
['sec2date-0', "-d '1970-01-01 UTC 946684800 sec' +'%Y-%m-%d %T %z'",
|
|
{OUT=>"2000-01-01 00:00:00 +0000"}],
|
|
|
|
['this-m', "-d '$d0 $t0 this minute' $fmt", {OUT=>"$d0 $t0"}],
|
|
['this-h', "-d '$d0 $t0 this hour' $fmt", {OUT=>"$d0 $t0"}],
|
|
['this-w', "-d '$d0 $t0 this week' $fmt", {OUT=>"$d0 $t0"}],
|
|
['this-mo', "-d '$d0 $t0 this month' $fmt", {OUT=>"$d0 $t0"}],
|
|
['this-y', "-d '$d0 $t0 this year' $fmt", {OUT=>"$d0 $t0"}],
|
|
|
|
['risks-1', "-d 'Nov 10 1996' $fmt", {OUT=>"1996-11-10 00:00:00"}],
|
|
|
|
# This one would pass if TZ (with any, or even no, value) were in
|
|
# the environment.
|
|
['regress-1', "-u -d '1996-11-10 0:00:00 +0' $fmt",
|
|
{OUT=>"1996-11-10 00:00:00"},
|
|
{ENV =>'LANG=C'}],
|
|
|
|
|
|
['datevtime-1', "-d 000909 $fmt", {OUT=>"2000-09-09 00:00:00"}],
|
|
|
|
# test for RFC-822 conformance
|
|
['rfc822-1', "-R -d '$d1'", {OUT=>"Sun, 19 Jan 1997 08:17:48 +0000"},
|
|
# Solaris 5.9's /bin/sh emits this diagnostic to stderr
|
|
# if you don't have support for the named locale.
|
|
{ERR_SUBST => q!s/^couldn't set locale correctly\n//!},
|
|
{ENV => 'LC_ALL=de_DE TZ=UTC0'}],
|
|
|
|
# Relative seconds, with time. fixed in 2.0j
|
|
['relative-1', "--utc -d '1970-01-01 00:00:00 UTC +961062237 sec' $fmt",
|
|
{OUT=>"2000-06-15 09:43:57"}],
|
|
|
|
# Relative seconds, no time.
|
|
['relative-2', "--utc -d '1970-01-01 UTC +961062237 sec' $fmt",
|
|
{OUT=>"2000-06-15 09:43:57"},
|
|
{ENV => 'TZ=UTC+1'}],
|
|
|
|
# Relative days, no time, across time zones.
|
|
['relative-3', "-I -d '2006-04-23 21 days ago'", {OUT=>"2006-04-02"},
|
|
{ENV=>'TZ=PST8PDT,M4.1.0,M10.5.0'}],
|
|
|
|
# This would infloop (or appear to) prior to coreutils-4.5.5,
|
|
# due to a bug in strftime.c.
|
|
['wide-fmt', "-d '1999-06-01'", '+%3004Y', {OUT=>'0' x 3000 . "1999"}],
|
|
|
|
# Ensure that we can parse MONTHNAME-DAY-YEAR.
|
|
['moname-d-y', '--iso -d May-23-2003', {OUT=>"2003-05-23"}],
|
|
['moname-d-y-r', '--rfc-3339=date -d May-23-2003', {OUT=>"2003-05-23"}],
|
|
|
|
['epoch', '--iso=sec -d @31536000',
|
|
{OUT=>"1971-01-01T00:00:00+0000"}],
|
|
['epoch-r', '--rfc-3339=sec -d @31536000',
|
|
{OUT=>"1971-01-01 00:00:00+00:00"}],
|
|
|
|
['ns-10', '--iso=ns', '-d "1969-12-31 13:00:00.00000001-1100"',
|
|
{OUT=>"1970-01-01T00:00:00,000000010+0000"}],
|
|
['ns-10-r', '--rfc-3339=ns', '-d "1969-12-31 13:00:00.00000001-1100"',
|
|
{OUT=>"1970-01-01 00:00:00.000000010+00:00"}],
|
|
|
|
['ns-max32', '--iso=ns', '-d "2038-01-19 03:14:07.999999999"',
|
|
{OUT=>"2038-01-19T03:14:07,999999999+0000"}],
|
|
['ns-max32-r', '--rfc-3339=ns', '-d "2038-01-19 03:14:07.999999999"',
|
|
{OUT=>"2038-01-19 03:14:07.999999999+00:00"}],
|
|
|
|
['tz-1', '+%:::z', {OUT=>"-12:34:56"}, {ENV=>'TZ=XXX12:34:56'}],
|
|
|
|
['tz-2', '+%:::z', {OUT=>"+12:34:56"}, {ENV=>'TZ=XXX-12:34:56'}],
|
|
|
|
['tz-3', '+%::z', {OUT=>"+01:02:03"}, {ENV=>'TZ=XXX-1:02:03'}],
|
|
|
|
['tz-4', '+%:::z', {OUT=>"+12"}, {ENV=>'TZ=XXX-12'}],
|
|
|
|
['tz-5', '+%:z', {OUT=>"-00:01"}, {ENV=>'TZ=XXX0:01'}],
|
|
|
|
# Accept %:z with a field width before the `:'.
|
|
['tz-5w','+%8:z', {OUT=>"-0000:01"}, {ENV=>'TZ=XXX0:01'}],
|
|
# Don't recognize %:z with a field width between the `:' and the `z'.
|
|
['tz-5wf', '+%:8z', {OUT=>"%:8z"}, {ENV=>'TZ=XXX0:01'}],
|
|
|
|
['ns-relative',
|
|
'--iso=ns', "-d'1970-01-01 00:00:00.1234567 UTC +961062237.987654321 sec'",
|
|
{OUT=>"2000-06-15T09:43:58,111111021+0000"}],
|
|
['ns-relativer', '--rfc-3339=ns',
|
|
"-d'1970-01-01 00:00:00.1234567 UTC +961062237.987654321 sec'",
|
|
{OUT=>"2000-06-15 09:43:58.111111021+00:00"}],
|
|
|
|
# Since coreutils/lib/getdate.y revision 1.96 (post-coreutils-5.3.0),
|
|
# a command like the following would mistakenly exit nonzero with an
|
|
# `invalid date ...' diagnostic, but when run in a time zone for
|
|
# which daylight savings time is in effect for the starting date.
|
|
# Unfortunately (for ease of testing), if you set TZ at all, this
|
|
# failure is not triggered, hence the removal of TZ from the environment.
|
|
['cross-dst', "-d'2005-03-27 +1 day'", '+%Y', {OUT=>"2005"},
|
|
{ENV_DEL => 'TZ'},
|
|
],
|
|
|
|
['empty-fmt', '+', {OUT=>""}],
|
|
|
|
['neg-secs', '-d @-22 +%05s', {OUT=>"-0022"}],
|
|
['neg-secs2', '-d @-22 +%_5s', {OUT=>" -22"}],
|
|
|
|
# Before today's fix, date would print uninitialized data
|
|
# to standard output for an out-of-range date:
|
|
# $ date -d @$(echo 2^56-1|bc) 2> /dev/null | od -a -N3
|
|
# 0000000 p 4 6
|
|
# 0000003
|
|
['uninit-64', "-d \@$n_seconds",
|
|
{OUT=>''},
|
|
# Use ERR_SUBST to get around fact that the diagnostic
|
|
# you get on a system with 32-bit time_t is not the same as
|
|
# the one you get for a system where it's 64 bits wide:
|
|
# - date: time 72057594037927935 is out of range
|
|
# + date: invalid date `@72057594037927935'
|
|
{ERR_SUBST => 's/.*//'},
|
|
{ERR => "\n"},
|
|
{EXIT => 1},
|
|
],
|
|
|
|
['fill-1', '-d 1999-12-08 +%_3d', {OUT=>' 8'}],
|
|
['fill-2', '-d 1999-12-08 +%03d', {OUT=>'008'}],
|
|
|
|
# Test the combination of the to-upper-case modifier (^) and a conversion
|
|
# specifier that expands to a string containing lower case characters.
|
|
['subfmt-up1', '-d "1999-12-08 7:30" "+%^c"',
|
|
# Solaris 5.9 prints 'WED DEC 08 07:30:00 1999', while
|
|
# most others print 'WED DEC 8 07:30:00 1999'.
|
|
{OUT_SUBST => 's/ [ 0]8.*//'},
|
|
{OUT=>'WED DEC'}],
|
|
);
|
|
|
|
# Repeat the cross-dst test, using Jan 1, 2005 and every interval from 1..364.
|
|
foreach my $i (1..364)
|
|
{
|
|
push @Tests, ["cross-dst$i",
|
|
"-d'2005-01-01 +$i day'", '+%Y', {OUT=>"2005"},
|
|
{ENV_DEL => 'TZ'},
|
|
];
|
|
}
|
|
|
|
# Append "\n" to each OUT=> RHS if the expected exit value is either
|
|
# zero or not specified (defaults to zero).
|
|
foreach my $t (@Tests)
|
|
{
|
|
my $exit_val;
|
|
foreach my $e (@$t)
|
|
{
|
|
ref $e && ref $e eq 'HASH' && defined $e->{EXIT}
|
|
and $exit_val = $e->{EXIT};
|
|
}
|
|
foreach my $e (@$t)
|
|
{
|
|
ref $e && ref $e eq 'HASH' && defined $e->{OUT} && ! $exit_val
|
|
and $e->{OUT} .= "\n";
|
|
}
|
|
}
|
|
|
|
my $save_temps = $ENV{DEBUG};
|
|
my $verbose = $ENV{VERBOSE};
|
|
|
|
my $prog = 'date';
|
|
my $fail = run_tests ($ME, $prog, \@Tests, $save_temps, $verbose);
|
|
exit $fail;
|
|
EOF
|