This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add test for [perl #130675]
[perl5.git] / t / lib / croak / toke_l1
index 6765d2c..6d656be 100644 (file)
@@ -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.
 ########
+# 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.