percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-21 18:24:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix RawLogParser.t. Use diag in PerconaTest.pm.

Browse Source
This commit is contained in:
Daniel Nichter
2012-10-20 13:32:12 -06:00
parent 85a0616ec3
commit be50548f3b
2 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/PerconaTest.pm
View File

@@ -386,7 +386,7 @@ sub test_log_parser {
\@e,
$args{result},
"$base_file_name: results"
) or print "Got: ", Dumper(\@e);
) or diag(Dumper(\@e));
}
if ( defined $args{num_events} ) {
@@ -443,7 +443,7 @@ sub test_protocol_parser {
\@e,
$args{result},
"$base_file_name: " . ($args{desc} || "results")
) or print "Got: ", Dumper(\@e);
) or diag(Dumper(\@e));
}
if ( defined $args{num_events} ) {
@@ -496,7 +496,7 @@ sub test_packet_parser {
$args{result},
"$args{file}" . ($args{desc} ? ": $args{desc}" : '')
) ) {
print Dumper(\@packets);
diag(Dumper(\@packets));
}
return;
@@ -601,7 +601,7 @@ sub no_diff {
diag($out);
if ( $ENV{UPDATE_SAMPLES} || $args{update_sample} ) {
`cat $tmp_file > $expected_output`;
print STDERR "Updated $expected_output\n";
diag("Updated $expected_output");
}
}