Commit | Line | Data |
---|---|---|
1bfb5477 | 1 | #!./perl |
2 | ||
f4a2945e | 3 | BEGIN { |
1bfb5477 | 4 | unless (-d 'blib') { |
f4a2945e | 5 | chdir 't' if -d 't'; |
6 | @INC = '../lib'; | |
6b05f64e | 7 | require Config; import Config; |
1bfb5477 | 8 | keys %Config; # Silence warning |
6b05f64e | 9 | if ($Config{extensions} !~ /\bList\/Util\b/) { |
10 | print "1..0 # Skip: List::Util was not built\n"; | |
11 | exit 0; | |
12 | } | |
1bfb5477 | 13 | } |
f4a2945e | 14 | } |
15 | ||
1bfb5477 | 16 | |
f4a2945e | 17 | use List::Util qw(sum); |
18 | ||
aaaf1885 | 19 | print "1..6\n"; |
f4a2945e | 20 | |
21 | print "not " if defined sum; | |
22 | print "ok 1\n"; | |
23 | ||
24 | print "not " unless sum(9) == 9; | |
25 | print "ok 2\n"; | |
26 | ||
27 | print "not " unless sum(1,2,3,4) == 10; | |
28 | print "ok 3\n"; | |
29 | ||
aaaf1885 | 30 | print "not " unless sum(-1) == -1; |
31 | print "ok 4\n"; | |
32 | ||
33 | my $x = -3; | |
34 | ||
35 | print "not " unless sum($x,3) == 0; | |
36 | print "ok 5\n"; | |
37 | ||
38 | print "not " unless sum(-3.5,3) == -0.5; | |
39 | print "ok 6\n"; | |
40 |