view release on metacpan or  search on metacpan

t/02_shisu.t  view on Meta::CPAN

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: ターギー

===
--- input:    テープ
--- expected: プーテー