1#!/usr/bin/perl
2use strict;
3use warnings;
4use Test::More tests => 5;
5
6BEGIN { use_ok( 'Statistics::Lite', ':all' ); }
7
8# statshash: a tiny bit more substantial data set
9
10my %stats = statshash(0..10,1);
11is($stats{sum},56,"call sum - hash-based");
12is($stats{mean},4+2/3,"call mean - hash-based");
13is($stats{variance},11+1/3,"call variance - hash-based");
14is($stats{variancep},10.3+8/90,"call variancep - hash-based");
15
16