cpan/Scalar-List-Utils/t/sum0.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

use strict;
use warnings;

use Test::More tests => 3;

use List::Util qw( sum0 );

my $v = sum0;
is( $v, 0, 'no args' );

$v = sum0(9);
is( $v, 9, 'one arg' );

$v = sum0(1,2,3,4);
is( $v, 10, '4 args');