Change 15178 by jhi@alpha on 2002/03/11 17:34:34
The test needs perlio.
Affected files ...
.... //depot/perl/lib/open.t#14 edit
Differences ...
==== //depot/perl/lib/open.t#14 (text) ====
Index: perl/lib/open.t
--- perl/lib/open.t.~1~ Mon Mar 11 10:45:06 2002
+++ perl/lib/open.t Mon Mar 11 10:45:06 2002
@@ -36,11 +36,14 @@
like( $warn, qr/Unknown discipline layer/,
'should warn about unknown discipline with bad discipline provided' );
-# now load a real-looking locale
-$ENV{LC_ALL} = ' .utf8';
-import( 'IN', 'locale' );
-is( ${^OPEN}, ":utf8\0",
- 'should set a valid locale layer' );
+SKIP: {
+ skip("no perlio, no :utf8", 1) unless $Config{useperlio};
+ # now load a real-looking locale
+ $ENV{LC_ALL} = ' .utf8';
+ import( 'IN', 'locale' );
+ is( ${^OPEN}, ":utf8\0",
+ 'should set a valid locale layer' );
+}
# and see if it sets the magic variables appropriately
import( 'IN', ':crlf' );
End of Patch.
