view release on metacpan or  search on metacpan

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

use strict;
use warnings;
use Acme::Pinoko;
use Test::More;


SKIP: {
    eval { require Text::MeCab; };
    skip 'Text::MeCab not installed', 1 if $@;

    my $pinoko = Acme::Pinoko->new;
    is($pinoko->say('ABC'), 'ABC', 'normal text');
    is($pinoko->say(undef), undef, 'undefined text');
    is($pinoko->say(''),    '',    'empty text');
    is($pinoko->say(0),     '0',   'zero');
    is($pinoko->say("\n"),  "\n",  '\n');
    is($pinoko->say("\t"),  "\t",  '\t');
}

SKIP: {
    eval { require Text::KyTea; };
    skip 'Text::KyTea not installed', 1 if $@;

    my $pinoko = Acme::Pinoko->new(parser => 'Text::KyTea');
    is($pinoko->say('ABC'), 'ABC', 'normal text');
    is($pinoko->say(undef), undef, 'undefined text');
    is($pinoko->say(''),    '',    'empty text');
    is($pinoko->say(0),     '0',   'zero');
    is($pinoko->say("\n"),  "\n",  '\n');
    is($pinoko->say("\t"),  "\t",  '\t');
}

done_testing;