view release on metacpan or  search on metacpan

t/01_translate.t  view on Meta::CPAN

use strict;
use utf8;
use Test::Base;

plan tests => 1 * blocks;

use Acme::Lou;

my $lou = Acme::Lou->new;

run {
    my $block = shift;
    is(
        $lou->translate($block->input),
        $block->expected,
        $block->name
    );
};

__DATA__

=== basic 
--- input
今年もよろしくお願いいたします。
--- expected 
ディスイヤーもよろしくプリーズいたします。

=== basic 
--- input
ルーと一緒です。
--- expected 
ルーとトゥギャザーです。

=== basic 
--- quote: http://www.kantei.go.jp/jp/abespeech/2007/01/04kaiken.html
--- input
美しい国づくりの礎を築くことができたと、考えています。
--- expected 
ビューティフルなカントリーづくりのファンデーションストーンをビルドすることができたと、シンクアバウトしています。

=== adnominal 
--- input
それ、どんな返事？
--- expected
それ、ホワットリプライ？

=== verb 5-dan
--- input
変わらない。変わります。変わる。
--- expected
変わらない。チェンジします。チェンジする。

=== verb 5-dan
--- input
変わる、変われば、変わろう。変われ。
--- expected
チェンジする、チェンジすれば、変わろう。チェンジ。

=== verb kami-1
--- input
閉じない。いや、閉じます。閉じる。
--- expected