use Test::More;

my %tests = (
   foo => ..
   bar => ..
);

plan tests => (keys(%tests) * 5 + 1);

# etc