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

pqd: Remove sparklines

Browse Source
This commit is contained in:
Brian Fraser
2013-01-11 13:45:20 -03:00
parent 5495945c7e
commit 4fc66a08d3
105 changed files with 18 additions and 996 deletions
Download Patch File Download Diff File Expand all files Collapse all files

189
t/lib/QueryReportFormatter.t
View File

@@ -1175,21 +1175,7 @@ SKIP: {
}
$ea->calculate_statistical_metrics();
# Make sure that explain_sparkline() does USE db like explain_report()
# does because by mqd defaults expalin_sparline() is called by profile()
# so if it doesn't USE db then the EXPLAIN will fail. Here we reset
# the db to something else because we already called explain_report()
# above which did USE qrf.
#
# 5.6 really is that different: ia vs. TF>aI. It's smarter.
$dbh->do("USE mysql");
my $explain_sparkline = $qrf->explain_sparkline($arg, 'qrf');
is(
$explain_sparkline,
$sandbox_version eq '5.6' ? "ia" : "TF>aI",
"explain_sparkling() uses db"
);
$report = new ReportFormatter(
line_width => 82,
extend_right => 1,
@@ -1360,181 +1346,6 @@ ok(
"Variance-to-mean ration (issue 1124)"
);
# #############################################################################
# Issue 1141: Add "spark charts" to mk-query-digest profile
# #############################################################################
sub proc_events {
my ( %args ) = @_;
my ($arg, $attrib, $vals) = @args{qw(arg attrib vals)};
my $bytes = length $arg;
my $fingerprint = $qr->fingerprint($arg);
$events = [];
foreach my $val ( @$vals ) {
push @$events, {
bytes => $bytes,
arg => $arg,
fingerprint => $fingerprint,
$attrib => $val,
}
}
$ea = new EventAggregator(
groupby => 'fingerprint',
worst => 'Query_time',
);
foreach my $event (@$events) {
$ea->aggregate($event);
}
$ea->calculate_statistical_metrics(apdex_t=>1);
# Seeing the full chart helps determine what the
# sparkline should look like.
if ( $args{chart} ) {
$result = $qrf->chart_distro(
ea => $ea,
item => 'select c from t',
attrib => 'Query_time',
);
print $result;
}
return;
};
# Test sparklines in isolation.
proc_events(
arg => 'select c from t',
attrib => 'Query_time',
vals => [qw(0 0 0)],
);
$result = $qrf->distro_sparkline(
ea => $ea,
item => 'select c from t',
attrib => 'Query_time',
);
is(
$result,
" ",
"Sparkchart line - all zeros"
);
# 1us
# 10us
# 100us ################################################
# 1ms ################################
# 10ms ################################
# 100ms ################################################################
# 1s ################
# 10s+
proc_events(
arg => 'select c from t',
attrib => 'Query_time',
vals => [qw(0.100000 0.500000 0.000600 0.008000 0.990000 1.000000 0.400000 0.003000 0.000200 0.000100 0.010000 0.020000)],
);
$result = $qrf->distro_sparkline(
ea => $ea,
item => 'select c from t',
attrib => 'Query_time',
);
is(
$result,
" -..^_ ",
"Sparkchart line 1"
);
# 1us
# 10us
# 100us
# 1ms
# 10ms ################################
# 100ms ################################################################
# 1s ########
# 10s+
proc_events(
arg => 'select c from t',
attrib => 'Query_time',
vals => [qw(0.01 0.03 0.08 0.09 0.3 0.5 0.5 0.6 0.7 0.5 0.5 0.9 1.0)],
);
$result = $qrf->distro_sparkline(
ea => $ea,
item => 'select c from t',
attrib => 'Query_time',
);
is(
$result,
" .^_ ",
"Sparkchart line 2"
);
# 1us ################################################################
# 10us ################################################################
# 100us ################################################################
# 1ms ################################################################
# 10ms ################################################################
# 100ms ################################################################
# 1s ################################################################
# 10s+
proc_events(
arg => 'select c from t',
attrib => 'Query_time',
vals => [qw(0.000003 0.000030 0.000300 0.003000 0.030000 0.300000 3)],
);
$result = $qrf->distro_sparkline(
ea => $ea,
item => 'select c from t',
attrib => 'Query_time',
);
is(
$result,
"^^^^^^^ ",
"Sparkchart line - vals in all ranges except 10s+"
);
# 1us ################################################################
# 10us ################################################################
# 100us
# 1ms
# 10ms
# 100ms
# 1s ################################################################
# 10s+ ################################################################
proc_events(
arg => 'select c from t',
attrib => 'Query_time',
vals => [qw(0.000003 0.000030 0.000003 0.000030 3 3 30 30)],
);
$result = $qrf->distro_sparkline(
ea => $ea,
item => 'select c from t',
attrib => 'Query_time',
);
is(
$result,
"^^ ^^",
"Sparkchart line - twin peaks"
);
# Test that that ^ sparkchart appears in the event header properly.
$result = $qrf->event_report(
ea => $ea,
select => [ qw(Query_time) ],
item => 'select c from t',
rank => 1,
orderby => 'Query_time',
reason => 'top',
);
ok(
no_diff(
$result,
"t/lib/samples/QueryReportFormatter/report028.txt",
cmd_output => 1,
),
'Sparkchart in event header'
);
# ############################################################################
# Bug 887688: Prepared statements crash pt-query-digest
# ############################################################################