view release on metacpan or  search on metacpan

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

use strict;
use warnings;
use Test::Base;
plan tests => 1 * blocks;

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

use Acme::Ikamusume;

filters { match => 'regexp' };

run {
    my $block = shift;
    
    my $output = Acme::Ikamusume->geso($block->input);
    my $title = $block->name ." input: ". $block->input;
    
    if ($block->match) {
        like($output, $block->match, $title);
    } else {
        is($output, $block->expected, $title);
    }
};

__DATA__
=== SYNOPSIS
--- input:    イカ娘です。あなたもperlで侵略しませんか？
--- expected: イカ娘でゲソ。お主もperlで侵略しなイカ？


=== IKA: replace
--- input:    以下のように
--- expected: イカのように
=== IKA: replace
--- input:    海からの使者、イカ娘でゲソ
--- expected: 海からの使者、イカ娘でゲソ
=== IKA: replace
--- input:    西瓜でゲソ
--- expected: すイカでゲソ
=== IKA: replace
--- input:    いかんでゲソ
--- expected: イカんでゲソ
=== IKA: replace
--- input:    ハイカラでゲソ
--- expected: ハイカラでゲソ
=== IKA: replace
--- input:    侵略しないか。
--- expected: 侵略しなイカ。
=== IKA: replace
--- input:    侵略じゃないか。
--- expected: 侵略じゃなイカ。
=== IKA: replace
--- input:    侵略しないかと
--- expected: 侵略しなイカと
=== IKA: replace
--- input:    徘徊完了
--- expected: はイカイカんりょうでゲソ
=== IKA: replace
--- input:    いい感じ無敵にススメ
--- expected: イーカんじ無敵にススメ
=== IKA: replace
--- input:    いー感じ無敵にススメ
--- expected: イーカんじ無敵にススメ
=== IKA: replace
--- input:    言い方