diff options
| author | Karl Williamson <khw@cpan.org> | 2017-07-10 20:11:09 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-07-10 20:20:09 -0600 |
| commit | 1e629c2290cf7b0cfc69d56f21dbb4c53f60127d (patch) | |
| tree | 9ade287d5d3edb5ad575831eb99a316d7604e50d /t/re | |
| parent | ceea523d49f14d4a20af3d440da95e5cfad000d2 (diff) | |
| download | perl-1e629c2290cf7b0cfc69d56f21dbb4c53f60127d.tar.gz | |
t/re/pat_advanced.t: Fix test to work on EBCDIC
Diffstat (limited to 't/re')
| -rw-r--r-- | t/re/pat_advanced.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t index a2ff68169b..3d57beade4 100644 --- a/t/re/pat_advanced.t +++ b/t/re/pat_advanced.t @@ -945,7 +945,9 @@ sub run_tests { 'Empty string charname produces NOTHING node'; like "\N{LONG-STR}", qr/^\N{LONG-STR}$/, 'Verify that long string works'; like "\N{LONG-STR}", qr/^\N{LONG-STR}$/i, 'Verify under folding that long string works'; - like "\xc4", qr/\N{EMPTY-STR}\xe4/i, 'Empty \N{} should change /d to /u'; + + # perlhacktips points out that these work on both ASCII and EBCDIC + like "\xfc", qr/\N{EMPTY-STR}\xdc/i, 'Empty \N{} should change /d to /u'; eval '/(?[[\N{EMPTY-STR}]])/'; like $@, qr/Zero length \\N\{\}/, 'Verify zero-length return from \N{} correctly fails'; |