Clearing locale environment simply doesn't seem to

guarantee that (nl_)langinfo(CODESET) would return nil.
(I for example get "ISO8859-1", so <guess>maybe there can
be per-system default settings at work</guess>.)

p4raw-id: //depot/perl@13581

1 files changed, 1 insertions, 9 deletions

diff --git a/lib/open.t b/lib/open.t
index 15a38bc992..5bc4b6d184 100644
--- a/lib/open.t
+++ b/lib/open.t
@@ -6,7 +6,7 @@ BEGIN {
 	require Config; import Config;
 }
 
-use Test::More tests => 16;
+use Test::More tests => 15;
 
 # open::import expects 'open' as its first argument, but it clashes with open()
 sub import {
@@ -26,14 +26,6 @@ is( $^H & $open::hint_bits, 0,
 	'hint bits should not be set in $^H before open import' );
 
 # prevent it from loading I18N::Langinfo, so we can test encoding failures
-{
-    local @INC;
-    $ENV{LC_ALL} = $ENV{LANG} = '';
-    eval { import( 'IN', 'locale' ) };
-    like( $@, qr/Cannot figure out an encoding/, 
-	  'no encoding should be found without $ENV{LANG} or $ENV{LC_ALL}' );
-}
-
 my $warn;
 local $SIG{__WARN__} = sub {
 	$warn .= shift;