Add test for [perl #130675]

[perl5.git] / t / lib / croak / toke_l1

diff --git a/t/lib/croak/toke_l1 b/t/lib/croak/toke_l1
index 6765d2c..6d656be 100644 (file)
--- a/t/lib/croak/toke_l1
+++ b/t/lib/croak/toke_l1
@@ -14,3 +14,9 @@ EXPECT
 Malformed UTF-8 character: \xc3\xc3 (unexpected non-continuation byte 0xc3, immediately after start byte 0xc3; need 2 bytes, got 1) at - line 2.
 Malformed UTF-8 character (fatal) at - line 2.
 ########
 Malformed UTF-8 character: \xc3\xc3 (unexpected non-continuation byte 0xc3, immediately after start byte 0xc3; need 2 bytes, got 1) at - line 2.
 Malformed UTF-8 character (fatal) at - line 2.
 ########

+# NAME [perl #130675]
+use utf8;y'0Á''
+EXPECT
+Malformed UTF-8 character: \xc1\x27 (unexpected non-continuation byte 0x27, immediately after start byte 0xc1; need 2 bytes, got 1) at - line 1.
+Malformed UTF-8 character: \xc1\x27 (any UTF-8 sequence that starts with "\xc1" is overlong which can and should be represented with a different, shorter sequence) at - line 1.
+Malformed UTF-8 character (fatal) at - line 1.