1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
# -*-perl-*-
package Test;
require 5.002;
use strict;
# For each test...
# Export LANG=C so that the locale-dependent strings match.
# Export TZ=UTC so that zone-dependent strings match.
$Test::env_default = ['LANG=C TZ=UTC'];
sub test_vector
{
my $t0 = '08:17:48';
my $d0 = '1997-01-19';
my $d1 = "$d0 $t0 +0";
my $fmt = "'+%Y-%m-%d %T'";
my @tvec =
(
# test-name options input expected-output expected-return-code
#
['1', "-d '$d1' +'%% %a %A %b %B'", {}, '% Sun Sunday Jan January', 0],
['2', "-d '$d1' +'%c'", {}, "Sun Jan 19 $t0 1997", 0],
['3', "-d '$d1' +'%d_%D_%e_%h_%H'", {}, '19_01/19/97_19_Jan_08', 0],
['4', "-d '$d1' +'%I_%j_%k_%l_%m'", {}, '08_019_ 8_ 8_01', 0],
['5', "-d '$d1' +'%M_%n_%p_%r'", {}, "17_\n_AM_$t0 AM", 0],
['6', "-d '$d1' +'%s_%S_%t_%T'", {}, "853661868_48_\t_$t0", 0],
['7', "-d '$d1' +'%U_%V_%w_%W'", {}, '03_03_0_02', 0],
['8', "-d '$d1' +'%x_%X_%y_%Y'", {}, "01/19/97_${t0}_97_1997", 0],
['9', "-d '$d1' +'%z_%Z'", {}, '+0000_GMT', 0],
['leap-1', "--date '02/29/1996 1 year' +%Y-%m-%d", {}, '1997-03-01', 0],
['U95-1', "--date '1995-1-1' +%U", {}, '01', 0],
['U95-2', "--date '1995-1-7' +%U", {}, '01', 0],
['U95-3', "--date '1995-1-8' +%U", {}, '02', 0],
['U92-1', "--date '1992-1-1' +%U", {}, '00', 0],
['U92-2', "--date '1992-1-4' +%U", {}, '00', 0],
['U92-3', "--date '1992-1-5' +%U", {}, '01', 0],
['V92-1', "--date '1992-1-1' +%V", {}, '01', 0],
['V92-2', "--date '1992-1-5' +%V", {}, '01', 0],
['V92-3', "--date '1992-1-6' +%V", {}, '02', 0],
['W92-1', "--date '1992-1-1' +%W", {}, '00', 0],
['W92-2', "--date '1992-1-5' +%W", {}, '00', 0],
['W92-3', "--date '1992-1-6' +%W", {}, '01', 0],
['millen-1', "--date '1998-1-1 3 years' +%Y", {}, '2001', 0],
['rel-0', "-d '$d1 now' '+%Y-%m-%d %T'", {}, "$d0 $t0", 0],
['rel-1a', "-d '$d1 yesterday' $fmt", {}, "1997-01-18 $t0", 0],
['rel-1b', "-d '$d1 tomorrow' $fmt", {}, "1997-01-20 $t0", 0],
['rel-2a', "-d '$d1 6 years ago' $fmt", {}, "1991-01-19 $t0", 0],
['rel-2b', "-d '$d1 7 months ago' $fmt", {}, "1996-06-19 $t0", 0],
['rel-2c', "-d '$d1 8 weeks ago' $fmt", {}, "1996-11-24 $t0", 0],
['rel-2d', "-d '$d1 1 day ago' $fmt", {}, "1997-01-18 $t0", 0],
['rel-2e', "-d '$d1 2 hours ago' $fmt", {}, "$d0 06:17:48", 0],
['rel-2f', "-d '$d1 3 minutes ago' $fmt", {}, "$d0 08:14:48", 0],
['rel-2g', "-d '$d1 4 seconds ago' $fmt", {}, "$d0 08:17:44", 0],
['rel-3a', "-d '$d1 4 seconds ago' $fmt", {}, "$d0 08:17:44", 0],
# FIXME: add a lot more...
);
my @tv;
my $t;
foreach $t (@tvec)
{
my ($test_name, $flags, $in, $exp, $ret) = @$t;
# Append a newline to end of each expected string.
push (@tv, [$test_name, $flags, $in, "$exp\n", $ret]);
}
# Verify that the test-script generation code properly handles
# per-test overrides.
$Test::env{9} = ['LANG=C TZ=GMT'];
return @tv;
}
1;
|
