summaryrefslogtreecommitdiff
path: root/cpan/List-Util/t/sum0.t
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2012-12-17 09:35:15 +0000
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2012-12-17 09:44:32 +0000
commit8b1989690cb5c8e76b281f6f8b7829d8081649fc (patch)
treed7b4c0a579cf38b2aebde3f523259d00f43a0182 /cpan/List-Util/t/sum0.t
parent93b74b47eb5e224de232c87de1cafcd5a43fd945 (diff)
downloadperl-8b1989690cb5c8e76b281f6f8b7829d8081649fc.tar.gz
Update Scalar-List-Utils to CPAN version 1.26
[DELTA] 1.26 -- Sun Dec 16 19:39 * Merge patch from JDHEDDEN - Add Scalar::Util::isdual() RT#76150 1.25_01 -- Wed Nov 21 09:47 * Fix a hash order dependency bug t/tainted.t (Currently this is a core only version to fix perl5 smokes)
Diffstat (limited to 'cpan/List-Util/t/sum0.t')
-rw-r--r--cpan/List-Util/t/sum0.t15
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');