#!perl

use perl5i::latest;

use Test::More tests => 6;

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' );