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