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