diff options
Diffstat (limited to 'tests/misc/date')
| -rwxr-xr-x | tests/misc/date | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/tests/misc/date b/tests/misc/date index a140f9685..bf9812147 100755 --- a/tests/misc/date +++ b/tests/misc/date @@ -21,8 +21,65 @@ use strict; # 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'"; + 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'}], + # 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'}], |