From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 11 Mar 2002 17:34:34 +0000 (+0000)
Subject: The test needs perlio.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c129b0bd112a26b9a00bc356d035e6383648f538;p=p5sagit%2Fp5-mst-13.2.git

The test needs perlio.

p4raw-id: //depot/perl@15178
---

diff --git a/lib/open.t b/lib/open.t
index 5bc4b6d..5897c2b 100644
--- a/lib/open.t
+++ b/lib/open.t
@@ -36,11 +36,14 @@ eval{ import( 'IN', 'macguffin' ) };
 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' );