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