This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
43ab143
)
PerlIO-encoding/t/nolooping.t: Skip on EBCDIC platform
author
Karl Williamson
<khw@cpan.org>
Fri, 17 Oct 2014 03:05:14 +0000
(21:05 -0600)
committer
Karl Williamson
<khw@cpan.org>
Sun, 15 Mar 2015 04:59:44 +0000
(22:59 -0600)
ext/PerlIO-encoding/t/nolooping.t
patch
|
blob
|
blame
|
history
diff --git
a/ext/PerlIO-encoding/t/nolooping.t
b/ext/PerlIO-encoding/t/nolooping.t
index
4acb0f5
..
5e262be
100644
(file)
--- a/
ext/PerlIO-encoding/t/nolooping.t
+++ b/
ext/PerlIO-encoding/t/nolooping.t
@@
-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] };
}