{
# tests #14
# Make sure that trimmed_mean caching works but checking execution times
# This test may fail on very fast machines but I'm not sure how to get
# better timing without requiring extra modules to be added.
my $stat = Statistics::Descriptive::Full->new();
##Make this a really big array so that it takes some time to execute!
$stat->add_data((1,2,3,4,5,6,7,8,9,10,11,12,13) x 10000);
my ($t0,$t1,$td);
my @t = ();
foreach (0..1) {
$t0 = new Benchmark;
$stat->trimmed_mean(0.1,0.1);
$t1 = new Benchmark;
$td = timediff($t1,$t0);
push @t, $td->cpu_p();
}
# TEST
ok ($t[1] < $t[0],
"trimmed_mean caching works",
);
}