This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PerlIO-encoding/t/nolooping.t: Skip on EBCDIC platform
[perl5.git] / ext / PerlIO-encoding / t / nolooping.t
index 4acb0f5..5e262be 100644 (file)
@@ -10,10 +10,11 @@ BEGIN {
 
 use Config;
 
-use Test::More $Config{useperlio}
-    ? (tests => 1)
-    : (skip_all => 'No PerlIO enabled');
-
+use Test::More (ord("A") == 65 && $Config{useperlio})
+               ? (tests => 1)
+               : (skip_all => '(No PerlIO enabled;'
+                            . ' or is EBCDIC platform which doesnt have'
+                            . ' "use encoding" used by open ":locale")');
 BEGIN {
     $SIG{__WARN__} = sub { $warn .= $_[0] };
 }