Update to Scalar-List-Utils-1.15

[p5sagit/p5-mst-13.2.git] / ext / List / Util / t / sum.t

diff --git a/ext/List/Util/t/sum.t b/ext/List/Util/t/sum.t
index f75679d..4860eeb 100755 (executable)
--- a/ext/List/Util/t/sum.t
+++ b/ext/List/Util/t/sum.t
@@ -13,28 +13,27 @@ BEGIN {
     }
 }
 
+use Test::More tests => 6;
 
 use List::Util qw(sum);
 
-print "1..6\n";
+my $v = sum;
+is( $v,        undef,  'no args');
 
-print "not " if defined sum;
-print "ok 1\n";
+$v = sum(9);
+is( $v, 9, 'one arg');
 
-print "not " unless sum(9) == 9;
-print "ok 2\n";
+$v = sum(1,2,3,4);
+is( $v, 10, '4 args');
 
-print "not " unless sum(1,2,3,4) == 10;
-print "ok 3\n";
-
-print "not " unless sum(-1) == -1;
-print "ok 4\n";
+$v = sum(-1);
+is( $v, -1, 'one -1');
 
 my $x = -3;
 
-print "not " unless sum($x,3) == 0;
-print "ok 5\n";
+$v = sum($x, 3);
+is( $v, 0, 'variable arg');
 
-print "not " unless sum(-3.5,3) == -0.5;
-print "ok 6\n";
+$v = sum(-3.5,3);
+is( $v, -0.5, 'real numbers');