
use strict;
use Test;
use Statistics::Basic;

plan tests => 6;

my  $sbv = new Statistics::Basic::Variance([1 .. 3]);

ok( $sbv->query == (2/3) );

    $sbv->insert( 4 );
ok( $sbv->query == (2/3) );

    $sbv->set_size( 4 );
ok( $sbv->query == (35/16) );

    $sbv->set_vector( [5 .. 7] );
ok( $sbv->query == (2/3) );

    $sbv->ginsert( 8 );
ok( $sbv->query == (5/4) );

my  $j = new Statistics::Basic::Variance;
    $j->set_vector([1 .. 3]);
ok( $j->query == (2/3) );
