7 require Config; import Config;
8 keys %Config; # Silence warning
9 if ($Config{extensions} !~ /\bList\/Util\b/) {
10 print "1..0 # Skip: List::Util was not built\n";
16 use Test::More tests => 8;
18 use List::Util qw(sum);
21 is( $v, undef, 'no args');
24 is( $v, 9, 'one arg');
27 is( $v, 10, '4 args');
30 is( $v, -1, 'one -1');
35 is( $v, 0, 'variable arg');
38 is( $v, -0.5, 'real numbers');
40 my $one = Foo->new(1);
41 my $two = Foo->new(2);
42 my $thr = Foo->new(3);
44 $v = sum($one,$two,$thr);
45 is($v, 6, 'overload');
51 '""' => sub { ${$_[0]} },
52 '+0' => sub { ${$_[0]} },
57 bless \$value, $class;
62 eval { require bignum; } or skip("Need bignum for testing overloading",1);
68 is($v, $v3, 'bignum');