view release on metacpan or  search on metacpan

t/06-percentile.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use App::St;

my $st = App::St->new( keep_data => 1 );

for my $num (reverse 1..10) {
  $st->process($num);
}

my %percentiles = (
    0   => 1,
    50  => 5.5,
    90  => 9.5,
    100 => 10,
);

plan tests => scalar keys %percentiles;

for my $p (keys %percentiles) {
    is($st->percentile($p), $percentiles{$p});
}