#!/usr/bin/env perl

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

zci answer_type => "factors";
zci is_cached   => 1;

ddg_goodie_test(
    [qw( DDG::Goodie::Factors)],
    '30 factors' => test_zci(
        'Factors of 30: 1, 2, 3, 5, 6, 10, 15, 30',
        structured_answer => {
            input     => ['30'],
            operation => 'Factors',
            result    => '1, 2, 3, 5, 6, 10, 15, 30'
        }
    ),
    'factors of 72' => test_zci(
        'Factors of 72: 1, 2, 3, 4, 6, 8, 9, 12, 18, 24, 36, 72',
        structured_answer => {
            input     => ['72'],
            operation => 'Factors',
            result    => '1, 2, 3, 4, 6, 8, 9, 12, 18, 24, 36, 72'
        }
    ),
    'factors of 30' => test_zci(
        'Factors of 30: 1, 2, 3, 5, 6, 10, 15, 30',
        structured_answer => {
            input     => ['30'],
            operation => 'Factors',
            result    => '1, 2, 3, 5, 6, 10, 15, 30'
        }
    ),
    '72 factors' => test_zci(
        'Factors of 72: 1, 2, 3, 4, 6, 8, 9, 12, 18, 24, 36, 72',
        structured_answer => {
            input     => ['72'],
            operation => 'Factors',
            result    => '1, 2, 3, 4, 6, 8, 9, 12, 18, 24, 36, 72'
        }
    ),
);

done_testing;