diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-11-12 09:02:46 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-22 13:32:50 -0800 |
| commit | 7c17ea2f2d2fb0ac90f5c7a93b8f63a3a691e3b8 (patch) | |
| tree | d56b1128215e7cf12589cfba4c276b66e14b68e1 /t | |
| parent | 2448cf3991b8f8be68ad1ad82de30f08a28e3374 (diff) | |
| download | perl-7c17ea2f2d2fb0ac90f5c7a93b8f63a3a691e3b8.tar.gz | |
re/pat.t: Skip tests on EBCDIC
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.
Diffstat (limited to 't')
| -rw-r--r-- | t/re/pat.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/re/pat.t b/t/re/pat.t index 1bbb73aa4a..5024112985 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -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); |