1#!./perl
2
3use strict;
4use warnings;
5
6use Test::More tests => 3;
7
8use List::Util qw( sum0 );
9
10my $v = sum0;
11is( $v, 0, 'no args' );
12
13$v = sum0(9);
14is( $v, 9, 'one arg' );
15
16$v = sum0(1,2,3,4);
17is( $v, 10, '4 args');
18