This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t/utf8.t: Fix test name
authorKarl Williamson <khw@cpan.org>
Mon, 12 Dec 2016 00:31:59 +0000 (17:31 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 14 Dec 2016 17:52:48 +0000 (10:52 -0700)
This test name gave the wrong function being tested.

ext/XS-APItest/t/utf8.t

index c221b89..05693c0 100644 (file)
@@ -1443,7 +1443,8 @@ foreach my $test (@malformations) {
 
     $ret = test_isUTF8_CHAR_flags($bytes, $length, 0);
     is($ret, 0, "$testname: isUTF8_CHAR_flags returns 0");
-    is(scalar @warnings, 0, "$testname: isUTF8_CHAR() generated no warnings")
+    is(scalar @warnings, 0, "$testname: isUTF8_CHAR_flags() generated no"
+                          . " warnings")
       or output_warnings(@warnings);
 
     $ret = test_isSTRICT_UTF8_CHAR($bytes, $length);