diff options
author | Jim Meyering <jim@meyering.net> | 1997-01-26 02:59:50 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 1997-01-26 02:59:50 +0000 |
commit | bd30083472210035463e8bf00a493ddfa29a4dca (patch) | |
tree | 5c7a793e27b7f5a107037c0ab7c13e4649cbbea2 /tests/date/Test.pm | |
parent | 01839f9f8201fa38422cf2a088277c5e726e0aa9 (diff) | |
download | coreutils-bd30083472210035463e8bf00a493ddfa29a4dca.tar.xz |
.
Diffstat (limited to 'tests/date/Test.pm')
-rw-r--r-- | tests/date/Test.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/tests/date/Test.pm b/tests/date/Test.pm index 65676f42f..a9e3b50f7 100644 --- a/tests/date/Test.pm +++ b/tests/date/Test.pm @@ -3,6 +3,11 @@ 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::default_env = ['LANG=C TZ=UTC']; + sub test_vector { @@ -22,18 +27,17 @@ sub test_vector ['9', "-d '$d1' +'%z_%Z'", {}, '+0000_GMT', 0], ); - # For each test... - # Export LANG=C so that the locale-dependent strings match. - # Export TZ=GMT so that zone-dependent strings match. my @tv; my $t; foreach $t (@tvec) { my ($test_name, $flags, $in, $exp, $ret) = @$t; - $Test::env{$test_name} = 'LANG=C TZ=UTC'; # 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{2} = ['LANG=C TZ=GMT']; return @tv; } |