From 1e629c2290cf7b0cfc69d56f21dbb4c53f60127d Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 10 Jul 2017 20:11:09 -0600 Subject: [PATCH] t/re/pat_advanced.t: Fix test to work on EBCDIC --- t/re/pat_advanced.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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'; -- 1.8.3.1