percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-04-17 01:01:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

EventAggregator: Remove apdex code

Browse Source
This commit is contained in:
Brian Fraser
2013-01-11 13:24:02 -03:00
parent 944b2039d3
commit 5495945c7e
2 changed files with 3 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
t/lib/EventAggregator.t
View File

@@ -9,7 +9,7 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 82;
use Test::More;
use QueryRewriter;
use EventAggregator;
@@ -431,7 +431,7 @@ foreach my $event (@$events) {
is_deeply( $ea->results, $result, 'user aggregation' );
is($ea->type_for('Query_time'), 'num', 'Query_time is numeric');
$ea->calculate_statistical_metrics(apdex_t => 1);
$ea->calculate_statistical_metrics();
is_deeply(
$ea->metrics(
where => 'bob',
@@ -446,8 +446,6 @@ is_deeply(
median => '0.000682',
stddev => 0,
pct_95 => '0.000682',
apdex_t => 1,
apdex => '1.00',
},
'Got simple hash of metrics from metrics()',
);
@@ -466,8 +464,6 @@ is_deeply(
median => 0,
stddev => 0,
pct_95 => 0,
apdex_t => undef,
apdex => undef,
},
'It does not crash on metrics()',
);
@@ -1816,59 +1812,6 @@ is_deeply(
"Merge results"
);
# #############################################################################
# Apdex
# #############################################################################
my $samples = {
280 => 10, # 0.81623354758492 satisfy
281 => 10, # 0.85704522496417 satisfy
282 => 10, # 0.89989748621238 satisfy
283 => 50, # 0.94489236052300 satisfy
284 => 50, # 0.99213697854915 satisfy
285 => 10, # 1.04174382747661 tolerate
290 => 10, # 1.32955843985657 tolerate
313 => 1, # 4.08377033290049 frustrated
};
my $apdex = $ea->calculate_apdex(
t => 1,
samples => $samples,
);
is(
$apdex,
'0.93',
"Apdex score"
);
$samples = {
0 => 150,
};
$apdex = $ea->calculate_apdex(
t => 1,
samples => $samples,
);
is(
$apdex,
'1.00',
"Apdex score 1.00"
);
$samples = {
400 => 150,
};
$apdex = $ea->calculate_apdex(
t => 1,
samples => $samples,
);
is(
$apdex,
'0.00',
"Apdex score 0.00"
);
# #############################################################################
# Special-case attribs called *_crc for mqd --variations.
# #############################################################################
@@ -1953,4 +1896,5 @@ like(
qr/Complete test coverage/,
'_d() works'
);
done_testing;
exit;