zeroclickinfo-goodies/t/Hiragana.t

27 lines
890 B
Perl
Raw Normal View History

2014-10-14 11:40:59 -07:00
#!/usr/bin/env perl
2014-10-10 14:36:02 -07:00
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
2014-10-14 11:40:59 -07:00
use utf8;
2014-10-10 14:36:02 -07:00
zci answer_type => 'hiragana';
zci is_cached => 1;
ddg_goodie_test(
[qw(
DDG::Goodie::Hiragana
)],
2014-10-14 10:15:10 -07:00
"hiragana a" => test_zci('あ', html => "<div class='zci--hiragana text--primary'>&#x3042;</div>"),
"hiragana konnichiwa" => test_zci('こんにちわ', html => "<div class='zci--hiragana text--primary'>&#x3053;&#x3093;&#x306B;&#x3061;&#x308F;</div>"),
"nihon hiragana" => test_zci('にほん', html => "<div class='zci--hiragana text--primary'>&#x306B;&#x307B;&#x3093;</div>"),
"hiragana tsukue no ue" => test_zci('つくえ の うえ', html => "<div class='zci--hiragana text--primary'>&#x3064;&#x304F;&#x3048; &#x306E; &#x3046;&#x3048;</div>"),
"Japanese zero" => undef,
2014-10-12 14:23:06 -07:00
"what is hiragana?" => undef,
"hiragana" => undef,
2014-10-10 14:36:02 -07:00
);
done_testing();