diff options
| author | Karl Williamson <khw@cpan.org> | 2020-05-24 12:42:10 -0600 |
|---|---|---|
| committer | Sawyer X <xsawyerx@cpan.org> | 2020-05-27 11:09:32 +0300 |
| commit | 7b23763834781686e711bf3ede59a65eeb4553b4 (patch) | |
| tree | cbfd870d17678934f37980812bc67022fd5220cf /t/re | |
| parent | c47eeaa05a24ae40e0f77e325ed5de031440126d (diff) | |
| download | perl-7b23763834781686e711bf3ede59a65eeb4553b4.tar.gz | |
t/re/anyof.t: Adapt a test for EBCDIC
a-z is not contiguous on EBCDIC platforms
Diffstat (limited to 't/re')
| -rw-r--r-- | t/re/anyof.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/re/anyof.t b/t/re/anyof.t index 6434f937ee..6cc34efd2b 100644 --- a/t/re/anyof.t +++ b/t/re/anyof.t @@ -466,8 +466,9 @@ my @tests = ( '(?l:[\x{212A}])' => 'EXACTL <\x{212a}>', '(?l:[\s\x{212A}])' => 'ANYOFPOSIXL[\s][1680 2000-200A 2028-2029 202F 205F 212A 3000]', '(?l:[^\S\x{202F}])' => 'ANYOFPOSIXL[^\\S][1680 2000-200A 2028-2029 205F 3000]', - '(?li:[a-z])' => 'ANYOFL{i}[a-z{utf8 locale}\x{017F}\x{212A}]', - + '(?li:[a-z])' => (($::IS_ASCII) + ? 'ANYOFL{i}[a-z{utf8 locale}\x{017F}\x{212A}]' + : 'ANYOFL{i}[a-ij-rs-z{utf8 locale}\x{017F}\x{212A}]'), '\p{All}' => 'SANY', '\P{All}' => 'OPFAIL', '[\p{Any}]' => 'ANYOF[\x00-\xFF][0100-10FFFF]', |