Commit a5903ed9 authored by unknown's avatar unknown

Minor output format change of the Perl test suite script (align with the shell script).


mysql-test/lib/mtr_report.pl:
  Make the Perl test script output identical to that of the (old) shell script,
  so that reported differences compare as equal strings (for automatic analysis).
parent 02fce1c3
...@@ -74,7 +74,7 @@ sub mtr_show_failed_diff ($) { ...@@ -74,7 +74,7 @@ sub mtr_show_failed_diff ($) {
sub mtr_report_test_name ($) { sub mtr_report_test_name ($) {
my $tinfo= shift; my $tinfo= shift;
printf "%-31s ", $tinfo->{'name'}; printf "%-30s ", $tinfo->{'name'};
} }
sub mtr_report_test_skipped ($) { sub mtr_report_test_skipped ($) {
...@@ -122,13 +122,13 @@ sub mtr_report_test_failed ($) { ...@@ -122,13 +122,13 @@ sub mtr_report_test_failed ($) {
# we should write out into $::path_timefile when the error occurs. # we should write out into $::path_timefile when the error occurs.
if ( -f $::path_timefile ) if ( -f $::path_timefile )
{ {
print "Errors are (from $::path_timefile) :\n"; print "\nErrors are (from $::path_timefile) :\n";
print mtr_fromfile($::path_timefile); # FIXME print_file() instead print mtr_fromfile($::path_timefile); # FIXME print_file() instead
print "\n(the last lines may be the most important ones)\n"; print "\n(the last lines may be the most important ones)\n";
} }
else else
{ {
print "Unexpected termination, probably when starting mysqld\n"; print "\nUnexpected termination, probably when starting mysqld\n";
} }
} }
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment