This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re/pat.t: Skip tests on EBCDIC
authorKarl Williamson <public@khwilliamson.com>
Fri, 12 Nov 2010 16:02:46 +0000 (09:02 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 22 Nov 2010 21:32:50 +0000 (13:32 -0800)
There's no convenient way to translate to EBCDIC in these tests, since
they don't use the normal test routines which have this facility.
Therefore, have to skip these tests on those platforms.

t/re/pat.t

index 1bbb73a..5024112 100644 (file)
@@ -1072,8 +1072,11 @@ sub run_tests {
 
     }
 
-    {   # Some constructs with Latin1 characters cause a utf8 string not to
-        # match itself in non-utf8
+    SKIP: {   # Some constructs with Latin1 characters cause a utf8 string not
+              # to match itself in non-utf8
+        if ($IS_EBCDIC) {
+            skip "Needs to be customized to run on EBCDIC", 6;
+        }
         my $c = "\xc0";
         my $pattern = my $utf8_pattern = qr/((\xc0)+,?)/;
         utf8::upgrade($utf8_pattern);