root/lang/perl/Acme-Shukugawa-Atom/trunk/t/03_waiha.t @ 7989

use Test::Base;
use utf8;

plan tests => 1 + 1 * blocks;

use_ok("Acme::Shukugawa::Atom");


sub translate {
    Acme::Shukugawa::Atom->translate(shift);
}

filters {
    input => 'translate',
};

run_is;

__DATA__

===
--- input:    ハワイ
--- expected: ワイハー

===
--- input:    狼
--- expected: カミオー

===
--- SKIP
# mecabの辞書にない？
--- input:    鋏
--- expected: サミハー