diff options
author | Jim Meyering <jim@meyering.net> | 2000-07-04 13:07:21 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2000-07-04 13:07:21 +0000 |
commit | 4bdbf25dee87ef35e4fcc0ce015e65326996ec8c (patch) | |
tree | 300d5167918215cdb8423a1aeadc5a61053c348e /tests/date/Test.pm | |
parent | 030c059d49a81136ba997a56b9de5fa292f033bd (diff) | |
download | coreutils-4bdbf25dee87ef35e4fcc0ce015e65326996ec8c.tar.xz |
(test_vector): Disable test #2 for all systems,
even though it fails only on SunOS4.
Diffstat (limited to 'tests/date/Test.pm')
-rw-r--r-- | tests/date/Test.pm | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/tests/date/Test.pm b/tests/date/Test.pm index 70af7d59a..e681d3d17 100644 --- a/tests/date/Test.pm +++ b/tests/date/Test.pm @@ -33,7 +33,17 @@ sub test_vector # 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], + + # [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'", {}, "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], @@ -143,13 +153,6 @@ sub test_vector { my ($test_name, $flags, $in, $exp, $ret) = @$t; - # 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. - next if $sunos4 && $test_name eq '2'; - # Append a newline to end of each expected string. push (@tv, [$test_name, $flags, $in, "$exp\n", $ret]); } |