diff options
Diffstat (limited to 'cpan/List-Util/t/sum0.t')
-rw-r--r-- | cpan/List-Util/t/sum0.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/cpan/List-Util/t/sum0.t b/cpan/List-Util/t/sum0.t new file mode 100644 index 0000000000..e76f8a79d3 --- /dev/null +++ b/cpan/List-Util/t/sum0.t @@ -0,0 +1,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'); |