use
strict;
use
utf8;
BEGIN
{
use_ok(
"Acme::Shukugawa::Atom"
);
}
my
%data
= (
"六本木の胸の大きいお姉さんがいる店を予約した"
=>
"ギロッポンのパイオツカイデーチャンネーがいるセーミーをバミった"
,
"ハワイ"
=>
"ワイハー"
,
"寿司"
=>
"シースー"
,
"銀座"
=>
"ザギン"
,
"狼"
=>
"カミオー"
,
# "鋏" => "サミハー", <- mecabの辞書にない?
"おばあさんの口はどうして大きいの?"
=>
"チャンバーのチークーはどうしてカイデー?"
);
while
(
my
(
$orig
,
$expected
) =
each
%data
) {
is( Acme::Shukugawa::Atom->translate(
$orig
),
$expected
);
}