This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t/utf8_warn_base.pl: Clean up test name
[perl5.git] / ext / XS-APItest / t / utf8_warn_base.pl
index 7a13c2f..27537c8 100644 (file)
@@ -1299,11 +1299,13 @@ foreach my $test (@tests) {
                         }
                     }
 
-                    my $this_name = "utf8n_to_uvchr_error() $testname: "
-                                                . (($disallowed)
-                                                   ? 'disallowed'
-                                                   : 'allowed');
-                    $this_name .= ", $eval_warn";
+                    my $this_name = "utf8n_to_uvchr_error() $testname: ";
+                    if (! $initially_malformed) {
+                        $this_name .= ($disallowed)
+                                       ? 'disallowed, '
+                                       : 'allowed, ';
+                    }
+                    $this_name .= "$eval_warn";
                     $this_name .= ", " . ((  $this_warning_flags
                                             & $this_utf8n_flag_to_warn)
                                           ? 'with flag for raising warnings'