From: Karl Williamson <khw@cpan.org>
Date: Tue, 11 Jul 2017 02:11:09 +0000 (-0600)
Subject: t/re/pat_advanced.t: Fix test to work on EBCDIC
X-Git-Tag: v5.27.2~48
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/1e629c2290cf7b0cfc69d56f21dbb4c53f60127d?ds=sidebyside

t/re/pat_advanced.t: Fix test to work on EBCDIC
---

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index a2ff681..3d57bea 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';