Stop 80_all_env.t failing when LC_ALL is set
Nicholas Clark [Sun, 27 Jun 2004 18:27:43 +0000 (18:27 +0000)]
p4raw-id: //depot/perl@23001

lib/I18N/LangTags/t/80_all_env.t

index 050c8f2..288f735 100644 (file)
@@ -37,8 +37,10 @@ $ENV{'IGNORE_WIN32_LOCALE'} = 1; # a hack, just for testing's sake.
 
 print "# Test LANG...\n";
 $ENV{'REQUEST_METHOD'} = '';
-$ENV{'LANG'}     = 'Eu_MT';
-$ENV{'LANGUAGE'} = '';
+$ENV{'LANG'}        = 'Eu_MT';
+$ENV{'LC_ALL'}      = '';
+$ENV{'LANGUAGE'}    = '';
+$ENV{'LC_MESSAGES'} = '';
 ok show( scalar I18N::LangTags::Detect::detect()),    "eu-mt";
 ok show( j      I18N::LangTags::Detect::detect()), q{["eu-mt"]};