#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Test::Deep;
use DDG::Test::Goodie;

zci answer_type => 'fibonacci';
zci is_cached   => 1;

sub build_test
{
    my ($answer, $subtitle) = @_;
    return test_zci("The $subtitle fibonacci number is $answer (assuming f(0) = 0).", structured_answer => {
        data => {
           title => $answer,
           subtitle => "$subtitle Fibonacci number"
        },
        templates => {
            group => 'text'
        }
    });
}

ddg_goodie_test(
    [qw(DDG::Goodie::Fibonacci)],
    'fib 7' => build_test(13, '7th'),
    'fibonacci 33' => build_test(3524578, '33rd'),
    q`what's the 6th fibonacci number?` => build_test(8, '6th'),
    '10th number in the fibonacci sequence?' => build_test(55, '10th'),
    'what is the 18th number in the fibonacci series' => build_test(2584, '18th'),
    'tell a fib'                  => undef,
    'what are fibonacci numbers?' => undef,
);

done_testing;