From: Karl Williamson <public@khwilliamson.com>
Date: Sat, 27 Jul 2013 19:38:18 +0000 (-0600)
Subject: lib/locale.t: Add test name to debug output
X-Git-Tag: upstream/5.20.0~2394
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=baae13cb9bae8fb21347f5efb4db7f1847d28241;p=platform%2Fupstream%2Fperl.git

lib/locale.t: Add test name to debug output

This makes it easier to understand what is going wrong.
---

diff --git a/lib/locale.t b/lib/locale.t
index ed42268..654821b 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -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;