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:
83bcbc6
)
op/chr.t: Better skip message
author
Karl Williamson
<khw@cpan.org>
Wed, 19 Aug 2015 01:49:02 +0000
(19:49 -0600)
committer
Karl Williamson
<khw@cpan.org>
Tue, 25 Aug 2015 22:58:01 +0000
(16:58 -0600)
t/op/chr.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/chr.t
b/t/op/chr.t
index
b909c90
..
5f57bad
100644
(file)
--- a/
t/op/chr.t
+++ b/
t/op/chr.t
@@
-49,7
+49,9
@@
is chr "-2.2", chr -2.2, 'chr "-2.2" eq chr -2.2';
# Check UTF-8 (not UTF-EBCDIC).
SKIP: {
- skip "no UTF-8 on EBCDIC", 21 if $::IS_EBCDIC;
+ skip "ASCII centric tests", 21 if $::IS_EBCDIC;
+ # Too hard to convert these tests generically to EBCDIC code pages without
+ # using chr(), which is what we're testing.
sub hexes {
no warnings 'utf8'; # avoid surrogate and beyond Unicode warnings