percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-19 17:04:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Split the QueryHistory tests out of QueryReview.t

Browse Source
This commit is contained in:
Brian Fraser
2013-03-07 11:29:30 -03:00
parent e4a1714841
commit a3dd5d7ba6
4 changed files with 225 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/QueryHistory.pm
View File

@@ -130,3 +130,17 @@ sub set_review_history {
$sample,
map { $data{$_->[0]}->{$_->[1]} } @{$self->history_metrics});
}
sub _d {
my ($package, undef, $line) = caller 0;
@_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }
map { defined $_ ? $_ : 'undef' }
@_;
print STDERR "# $package:$line $PID ", join(' ', @_), "\n";
}
1;
}
# ###########################################################################
# End QueryHistory package
# ###########################################################################