view release on metacpan or  search on metacpan

t/socialskk-plugin-wikipedia.t  view on Meta::CPAN

package Test::App::SocialSKK::Plugin::Wikipedia;
use LWP::UserAgent;
use lib 't/lib';
use App::SocialSKK::Test;
use App::SocialSKK::Plugin::Wikipedia;

sub startup : Test(startup) {
    my $self = shift;
       $self->module = App::SocialSKK::Plugin::Wikipedia->new({
           ua => LWP::UserAgent->new,
       });
}

sub get_candidates : Tests {
    my $self = shift;
    my $network_is_alive = $self->ping('ja.wikipedia.org');

 SKIP: {
        skip 'This test requires netword connection.' if !$network_is_alive;

        desc 'When get_candidates() called,' => sub {
            it 'for the word "ああ", some candidates should be returned.';
            ok scalar $self->module->get_candidates('ああ'), spec;

            it 'for empty string, no candidates should be returned.';
            ok !scalar $self->module->get_candidates(''), spec;
        };
    }
}

__PACKAGE__->runtests;

1;