#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
my $pkg;
BEGIN {
$pkg = 'Catmandu::Fix::sum';
use_ok $pkg;
}
require_ok $pkg;
lives_ok { $pkg->new('numbers')->fix({ numbers => [1,2] }) };
is_deeply
$pkg->new('numbers')->fix({ numbers => [1,2] }),
{ numbers => 3 }, "Simple sum ok";
# Fibonacci sequence now!
is_deeply
$pkg->new('numbers')->fix({ numbers => [1,1,2,3,5,8,13,21] }),
{ numbers => 54 }, "Fibbonaci sum ok";
is_deeply
$pkg->new('numbers')->fix({ numbers => [1.234, 4.653, 4.5] }),
{ numbers => 10.387 }, "Float sum ok";
dies_ok { $pkg->new('numbers')->fix({ numbers => ['hello', 'world'] }) };
done_testing 7;