1#!/usr/bin/perl 2use strict; 3use warnings; 4use Test::More tests => 11; 5 6BEGIN { use_ok( 'Statistics::Lite', ':all' ); } 7 8my %stats= statshash(1,2,3); 9 10is($stats{min}, 1, "call min - hash-based interface"); 11is($stats{max}, 3, "call max - hash-based interface"); 12is($stats{range}, 2, "call range - hash-based interface"); 13is($stats{sum}, 6, "call sum - hash-based interface"); 14is($stats{count}, 3, "call count - hash-based interface"); 15is($stats{mean}, 2, "call mean - hash-based interface"); 16is($stats{median}, 2, "call median - hash-based interface"); 17is($stats{mode}, 2, "call mode - hash-based interface"); 18 19is($stats{variance}, 1, "call variance - hash-based interface"); 20is($stats{stddev}, 1, "call stddev - hash-based interface"); 21