#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
use utf8;
zci answer_type => 'hiragana';
zci is_cached => 1;
ddg_goodie_test(
[qw(
DDG::Goodie::Hiragana
)],
"hiragana a" => test_zci('あ', html => "
あ
"),
"hiragana konnichiwa" => test_zci('こんにちわ', html => "こんにちわ
"),
"nihon hiragana" => test_zci('にほん', html => "にほん
"),
"hiragana tsukue no ue" => test_zci('つくえ の うえ', html => "つくえ の うえ
"),
"Japanese zero" => undef,
"what is hiragana?" => undef,
"hiragana" => undef,
);
done_testing();