view release on metacpan or  search on metacpan

t/03_say_mecab.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::Requires qw/Text::MeCab/;
use Test::Base;
plan tests => 1 * blocks;

binmode Test::More->builder->$_ => ':utf8'
    for qw/output failure_output todo_output/;

use Acme::Pinoko;

my $pinoko = Acme::Pinoko->new(parser => 'Text::MeCab');

run
{
    my $block = shift;
    is($pinoko->say($block->input), $block->expected);
};


__DATA__

=== No change
--- input:    せっかくいいとこなのにぃ
--- expected: せっかくいいとこなのにぃ

=== No change
--- input:    やったー
--- expected: やったー

=== No change (アニメ版では変化するが漫画版では変化しない)
--- input:    先生
--- expected: 先生

=== No change
--- input:    ピノコ
--- expected: ピノコ

=== No change
--- input:    ちゃんとお食べ。残すなんてぜいたくよ
--- expected: ちゃんとお食べ。残ちゅなんてぜいたくよのさ

=== No change
--- input:    ラルゴ
--- expected: ラルゴ
--- SKIP 漫画版では変化しないが保留 (アニメ版では「ヤユゴ」に変わることもある？)

=== No change
--- input:    めいっぱいたいへーん
--- expected: めいっぱいたいへーん

=== No change
--- input:    早くのませて
--- expected: 早くのませて

=== No change
--- input:    つくえ
--- expected: つくえ

=== No change
--- input:    稼げばいいじゃないの
--- expected: 稼げばいいじゃないのよさ

=== No change
--- input:    おっかない
--- expected: おっかない