File: sum.t

package info (click to toggle)
libautobox-list-util-perl 20090629-3
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 116 kB
  • ctags: 12
  • sloc: perl: 59; makefile: 2
file content (26 lines) | stat: -rwxr-xr-x 368 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
use blib;
use Test::More tests => 6;

use strict;
use autobox::List::Util;

my $v = []->sum;
is( $v,	undef,	'no args');

$v = [(9)]->sum;
is( $v, 9, 'one arg');

$v = [(1,2,3,4)]->sum;
is( $v, 10, '4 args');

$v = [(-1)]->sum;
is( $v, -1, 'one -1');

my $x = -3;

$v = [($x, 3)]->sum;
is( $v, 0, 'variable arg');

$v = [(-3.5,3)]->sum;
is( $v, -0.5, 'real numbers');