percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-19 02:05:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix and test UpgradeResults::format_query_times001().

Browse Source
This commit is contained in:
Daniel Nichter
2013-03-11 18:51:43 -06:00
parent 8eb3c26236
commit b2809f2a0c
4 changed files with 59 additions and 162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

158
t/lib/UpgradeReportFormatter.t
View File

@@ -1,158 +0,0 @@
#!/usr/bin/perl
BEGIN {
die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
};
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 3;
use Transformers;
use EventAggregator;
use QueryRewriter;
use ReportFormatter;
use UpgradeReportFormatter;
use PerconaTest;
my $result;
my $expected;
my ($meta_events, $events1, $events2, $meta_ea, $ea1, $ea2);
my $qr = new QueryRewriter();
my $urf = new UpgradeReportFormatter();
sub aggregate {
foreach my $event (@$meta_events) {
$event->{fingerprint} = $qr->fingerprint( $event->{arg} );
$meta_ea->aggregate($event);
}
foreach my $event (@$events1) {
$event->{fingerprint} = $qr->fingerprint( $event->{arg} );
$ea1->aggregate($event);
}
$ea1->calculate_statistical_metrics();
foreach my $event (@$events2) {
$event->{fingerprint} = $qr->fingerprint( $event->{arg} );
$ea2->aggregate($event);
}
$ea2->calculate_statistical_metrics();
}
$meta_ea = new EventAggregator(
groupby => 'fingerprint',
worst => 'differences',
);
$ea1 = new EventAggregator(
groupby => 'fingerprint',
worst => 'Query_time',
);
$ea2 = new EventAggregator(
groupby => 'fingerprint',
worst => 'Query_time',
);
isa_ok($urf, 'UpgradeReportFormatter');
$events1 = [
{
cmd => 'Query',
arg => "SELECT id FROM users WHERE name='foo'",
Query_time => '8.000652',
pos_in_log => 1,
db => 'test1',
Errors => 'No',
},
{
cmd => 'Query',
arg => "SELECT id FROM users WHERE name='foo'",
Query_time => '1.001943',
pos_in_log => 2,
db => 'test1',
Errors => 'Yes',
},
{
cmd => 'Query',
arg => "SELECT id FROM users WHERE name='bar'",
Query_time => '1.000682',
pos_in_log => 5,
db => 'test1',
Errors => 'No',
},
];
$events2 = $events1;
$meta_events = [
{
arg => "SELECT id FROM users WHERE name='bar'",
differences => 0,
different_row_counts => 0,
different_checksums => 0,
sampleno => 1,
},
{
arg => "SELECT id FROM users WHERE name='bar'",
differences => 0,
different_row_counts => 0,
different_checksums => 0,
sampleno => 2,
},
{
arg => "SELECT id FROM users WHERE name='bar'",
differences => 1,
different_row_counts => 1,
different_checksums => 0,
sampleno => 3,
},
];
$expected = <<EOF;
# Query 1: ID 0x82860EDA9A88FCC5 at byte 0 _______________________________
# host1: host1.domain.com:3306
# host2: host2.domain.com:3307
# Found 1 differences in 3 samples:
# checksums 0
# row counts 1
# host1 host2
# Errors 1 1
# Warnings 0 0
# Query_time
# sum 10s 10s
# min 1s 1s
# max 8s 8s
# avg 3s 3s
# pct_95 8s 8s
# stddev 3s 3s
# median 992ms 992ms
EOF
aggregate();
$result = $urf->event_report(
meta_ea => $meta_ea,
hosts => [ {name=>'host1.domain.com:3306', ea=>$ea1},
{name=>'host2.domain.com:3307', ea=>$ea2} ],
where => 'select id from users where name=?',
rank => 1,
worst => 'differences',
);
is($result, $expected, 'Event report');
# #############################################################################
# Done.
# #############################################################################
my $output = '';
{
local *STDERR;
open STDERR, '>', \$output;
$urf->_d('Complete test coverage');
}
like(
$output,
qr/Complete test coverage/,
'_d() works'
);
exit;

50
t/lib/UpgradeResults.t Normal file
View File

@@ -0,0 +1,50 @@
#!/usr/bin/perl
BEGIN {
die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
};
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More;
use UpgradeResults;
use PerconaTest;
my $output;
my $samples = "t/lib/samples/UpgradeResults";
my $r = new UpgradeResults(
max_class_size => 100,
max_examples => 3,
);
# #############################################################################
# _format_query_times()
# #############################################################################
$output = UpgradeResults::_format_query_times(
[
'INSERT INTO t (id, username) VALUES (NULL, \'long_username\')',
'0.000812',
'0.039595',
'48.8'
],
);
ok(
no_diff(
$output,
"$samples/format_query_times001",
cmd_output => 1,
),
"format_query_times001"
) or diag($test_diff);
# #############################################################################
# Done.
# #############################################################################
done_testing;

2
t/lib/samples/UpgradeResults/format_query_times001 Normal file
View File

@@ -0,0 +1,2 @@
0.000812 vs. 0.039595 seconds (48.8% increase)