diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-07-27 13:38:18 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-08-12 13:51:22 -0600 |
| commit | baae13cb9bae8fb21347f5efb4db7f1847d28241 (patch) | |
| tree | 6e1d0efb72c2865a8d1c6ec4e87fdfc34de4de93 /lib/locale.t | |
| parent | 5e7a10284789d95e907d8302f3b185df63b5be82 (diff) | |
| download | perl-baae13cb9bae8fb21347f5efb4db7f1847d28241.tar.gz | |
lib/locale.t: Add test name to debug output
This makes it easier to understand what is going wrong.
Diffstat (limited to 'lib/locale.t')
| -rw-r--r-- | lib/locale.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/locale.t b/lib/locale.t index ed42268759..654821ba61 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; |