This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: Add test name to debug output
authorKarl Williamson <public@khwilliamson.com>
Sat, 27 Jul 2013 19:38:18 +0000 (13:38 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 12 Aug 2013 19:51:22 +0000 (13:51 -0600)
This makes it easier to understand what is going wrong.

lib/locale.t

index ed42268..654821b 100644 (file)
@@ -687,7 +687,7 @@ sub report_result {
     $message = "  ($message)" if $message;
     unless ($pass_fail) {
        $Problem{$i}{$Locale} = 1;
-       debug "# failed $i with locale '$Locale'$message\n";
+       debug "# failed $i ($test_names{$i}) with locale '$Locale'$message\n";
     } else {
        push @{$Okay{$i}}, $Locale;
     }
@@ -1461,6 +1461,7 @@ foreach ($first_locales_test_number..$final_locales_test_number) {
             "# The locale ", (@f == 1 ? "definition" : "definitions"), "\n#\n",
            "#\t", $f, "\n#\n",
            "# on your system may have errors because the locale test $_\n",
+           "# \"$test_names{$_}\"\n",
             "# failed in ", (@f == 1 ? "that locale" : "those locales"),
             ".\n";
        print <<EOW;