diff options
Diffstat (limited to 't/uni/parser.t')
| -rw-r--r-- | t/uni/parser.t | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/t/uni/parser.t b/t/uni/parser.t index a428786039..f1ce90a0c8 100644 --- a/t/uni/parser.t +++ b/t/uni/parser.t @@ -9,7 +9,7 @@ BEGIN { skip_all_without_unicode_tables(); } -plan (tests => 53); +plan (tests => 55); use utf8; use open qw( :utf8 :std ); @@ -229,6 +229,22 @@ like( $@, qr/Bad name after Ｆｏｏ'/, 'Bad name after Ｆｏｏ\'' ); {stderr => 1}, "RT# 124216"); } +SKIP: { # [perl #128738] + use Config; + if ($Config{uvsize} < 8) { + skip("test is only valid on 64-bit ints", 2); + } + else { + my $a; + eval "\$a = q \x{ffffffff}Hello, \\\\whirled!\x{ffffffff}"; + is $@, "", + "No errors in eval'ing a string with large code point delimiter"; + is $a, 'Hello, \whirled!', + "Got expected result in eval'ing a string with a large code point" + . " delimiter"; + } +} + # New tests go here ^^^^^ |