This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/tr.t: Clarify skip tests message
authorKarl Williamson <khw@cpan.org>
Fri, 15 May 2015 19:34:07 +0000 (13:34 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 25 Aug 2015 22:58:01 +0000 (16:58 -0600)
t/op/tr.t

index a130213..ffb3877 100644 (file)
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -324,7 +324,7 @@ is($c, 8);
 is($a, "XXXXXXXX");
 
 SKIP: {
-    skip "not EBCDIC", 4 unless $::IS_EBCDIC;
+    skip "valid only on EBCDIC platforms", 4 unless $::IS_EBCDIC;
 
     $c = ($a = "\x89\x8a\x8b\x8c\x8d\x8f\x90\x91") =~ tr/i-j/X/;
     is($c, 2);