This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t/utf8_warn_base.pl: Add a test
[perl5.git] / ext / XS-APItest / t / utf8_warn_base.pl
index 189813d..8d8fb5d 100644 (file)
@@ -412,6 +412,10 @@ my @tests;
     if (! $::is64bit) {
         if (isASCII) {
             push @tests,
     if (! $::is64bit) {
         if (isASCII) {
             push @tests,
+                [ "overlong malformation, but naively looks like overflow",
+                    "\xff\x80\x80\x80\x80\x80\x80\x83\xbf\xbf\xbf\xbf\xbf",
+                    0xFFFFFFFF,
+                ],
                 [ "overflow that old algorithm failed to detect",
                     "\xfe\x86\x80\x80\x80\x80\x80",
                     -1,
                 [ "overflow that old algorithm failed to detect",
                     "\xfe\x86\x80\x80\x80\x80\x80",
                     -1,