This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op/chr.t: Better skip message
authorKarl Williamson <khw@cpan.org>
Wed, 19 Aug 2015 01:49:02 +0000 (19:49 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 25 Aug 2015 22:58:01 +0000 (16:58 -0600)
t/op/chr.t

index b909c90..5f57bad 100644 (file)
@@ -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: {
 
 # 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
 
 sub hexes {
     no warnings 'utf8'; # avoid surrogate and beyond Unicode warnings