#!/usr/bin/env perl

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

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

ddg_goodie_test(
        [qw(
                DDG::Goodie::Frequency
        )],
    'frequency of all in test' => test_zci('Frequency: e:1/4 s:1/4 t:2/4'),
    'frequency of all letters in test' => test_zci('Frequency: e:1/4 s:1/4 t:2/4'),
    'frequency of letters in test' => test_zci('Frequency: e:1/4 s:1/4 t:2/4'),
    'frequency of all characters in test' => test_zci('Frequency: e:1/4 s:1/4 t:2/4'),
    'frequency of all chars in test' => test_zci('Frequency: e:1/4 s:1/4 t:2/4'),
    'frequency of all in testing 1234 ABC!' => test_zci('Frequency: a:1/10 b:1/10 c:1/10 e:1/10 g:1/10 i:1/10 n:1/10 s:1/10 t:2/10'),
    'frequency of all in Assassins!' => test_zci('Frequency: a:2/9 i:1/9 n:1/9 s:5/9'),
    'frequency of a in Atlantic Ocean' => test_zci('Frequency: a:3/13'),
    'freq of B in battle' => test_zci('Frequency: b:1/6'),
    'freq of s in Spoons' => test_zci('Frequency: s:2/6'),
    'frequency of all characters in testing' => test_zci('Frequency: e:1/7 g:1/7 i:1/7 n:1/7 s:1/7 t:2/7'),
    'frequency of B in battle' => test_zci('Frequency: b:1/6'),
);

done_testing;