[perl5.git] / cpan / Scalar-List-Utils / t / sum0.t

#!./perl

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');
Commit	Line	Data
b823713c CBW	1	#!./perl
b823713c CBW	2
8b198969 CBW	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 3;
	7
	8	use List::Util qw( sum0 );
	9
	10	my $v = sum0;
	11	is( $v, 0, 'no args' );
	12
	13	$v = sum0(9);
	14	is( $v, 9, 'one arg' );
	15
	16	$v = sum0(1,2,3,4);
	17	is( $v, 10, '4 args');