1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
use t::locale_hack;
use strict;
use Test;
use Statistics::Basic qw(:all ignore_env);
plan tests => 6;
my $sbm = new Statistics::Basic::Mode([1 .. 3]);
ok($sbm->query, "[1, 2, 3]");
$sbm->insert( 3 );
ok($sbm->query, 3);
$sbm->set_size( 5 ); # adds two 0s on the end
ok($sbm->query, "[0, 3]");
$sbm->ginsert( 2 );
ok($sbm->query, "[0, 2, 3]");
$sbm->set_vector( [2, 3 .. 5, 7, 0, 0] );
ok($sbm->query, 0);
my $j = new Statistics::Basic::Mode;
$j->set_vector( [1, 2, 3, 3, 3, 2] );
ok($j->query, 3);
|
