This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t/utf8_malformed.t: Remove redundant test
authorKarl Williamson <khw@cpan.org>
Tue, 4 Jul 2017 19:23:18 +0000 (13:23 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 13 Jul 2017 03:14:26 +0000 (21:14 -0600)
This tests the too short malformation, which is already adequately
tested in utf8_warn_base.pl

ext/XS-APItest/t/utf8_malformed.t

index 67b2823..47dda98 100644 (file)
@@ -55,13 +55,6 @@ my @malformations = (
         2, 3,
         qr/unexpected non-continuation byte .* 2 bytes after start byte/
     ],
-    [ "too short malformation", I8_to_native("\xf1${I8c}a"), 2,
-        # Having the 'a' after this, but saying there are only 2 bytes also
-        # tests that we pay attention to the passed in length
-        $::UTF8_ALLOW_SHORT, $::UTF8_GOT_SHORT, $REPLACEMENT,
-        2, 2,
-        qr/2 bytes available, need 4/
-    ],
     [ "overlong malformation, lowest 2-byte",
         (isASCII) ? "\xc0\x80" : I8_to_native("\xc0\xa0"),
         2,