From bd30083472210035463e8bf00a493ddfa29a4dca Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sun, 26 Jan 1997 02:59:50 +0000
Subject: .

---
 tests/date/Test.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'tests/date')

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;
 }
-- 
cgit v1.2.3-54-g00ecf