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
authorKarl Williamson <khw@cpan.org>
Fri, 17 Oct 2014 03:05:14 +0000 (21:05 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 15 Mar 2015 04:59:44 +0000 (22:59 -0600)
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] };
 }