#!/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();