mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-20 19:04:59 +00:00
Remove t/lib/TimeSeriesTrender.t
This commit is contained in:
@@ -1,42 +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 => 1;
|
||||
|
||||
use TimeSeriesTrender;
|
||||
use PerconaTest;
|
||||
|
||||
my $result;
|
||||
my $tst = new TimeSeriesTrender(
|
||||
callback => sub { $result = $_[0]; },
|
||||
);
|
||||
|
||||
$tst->set_time('5');
|
||||
map { $tst->add_number($_) }
|
||||
qw(1 2 1 2 12 23 2 2 3 3 21 3 3 1 1 2 3 1 2 12 2
|
||||
3 1 3 2 22 2 2 2 2 3 1 1);
|
||||
$tst->set_time('6');
|
||||
|
||||
is_deeply($result,
|
||||
{
|
||||
ts => 5,
|
||||
stdev => 6.09038140334414,
|
||||
avg => 4.42424242424242,
|
||||
min => 1,
|
||||
max => 23,
|
||||
cnt => 33,
|
||||
sum => 146,
|
||||
},
|
||||
'Simple stats test');
|
||||
|
||||
# #############################################################################
|
||||
# Done.
|
||||
# #############################################################################
|
Reference in New Issue
Block a user