view release on metacpan or  search on metacpan

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

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

use Acme::Samurai;

plan tests => 1 * blocks;

# use YAML;
# Acme::Samurai->add_trigger('pre.node_filter' => sub { warn Dump $_[1]->feature });

run {
    my $block = shift;
    is(
        Acme::Samurai->gozaru($block->input) => $block->expected,
        encode_utf8($block->input . ' / ' . $block->name)
    );
};

__DATA__
=== 一般名詞, 固有名詞
--- input:    今日も東京は快晴。
--- expected: 今日もお江戸は日本晴れ。
=== 代名詞, 形容詞
--- input:    わたしが何か悪いことを。
--- expected: それがしが何か良からぬことを。
=== 接続詞, 連体詞
--- input:    だけど、なんで？ 本当か、そんなはずは！
--- expected: けれど、何ゆえ？ まことか、左様なはずは！
=== 副詞
--- input:    なぜパパとコギャルが警察に？
--- expected: 何ゆえ父上と小娘が奉行所に？
=== 接尾語
--- input:    田中さん、オレそんなつもりは。
--- expected: 田中どの、拙者左様な所存は。
=== 動詞 下さい
--- input:    すみませんが、100円下さい。
--- expected: 申し訳ないが、百両くだされ。
=== 動詞 できる
--- input:    できればお願いします。
--- expected: できますればお願いしまする。
=== 名詞 非自立
--- input:    そんなつもりはありません。
--- expected: 左様な所存はありませぬ。
=== 動詞 いる
--- input:    準備しているところだが
--- expected: 仕度しておるところでござるが

=== 名詞
--- input:    お元気で。
--- expected: お達者で。
=== 名詞 例外
--- input:    元気な子供
--- expected: 元気な子供

=== æ•°
--- input:    36.5度 ４２．１９５キロ 千グラム
--- expected: 三十六.五度 四十二．一九五里 千匁
=== 数ゼロ始まり
--- input:    0120
--- expected: 零一二零

=== 大字
--- input:    三十四回 一万円
--- expected: 参拾四回 壱萬両

=== ござる です基本形
--- input:    侍です。
--- expected: 侍でござる。
=== ござる です基本形 （+ 助詞）
--- input:    侍ですけど、
--- expected: 侍でござるが、
=== ござる です未然形
--- input:    侍でしょう。
--- expected: 侍でござろう。
=== ござる です未然形