view release on metacpan or  search on metacpan

t/lib/Test/App/MP4Meta/Source/Base.pm  view on Meta::CPAN

    ok( $base->{cache} );
    ok( $base->{banner_cache} );

    $self->{base} = $base;
}

sub get_film : Test(1) {
    my $self = shift;
    my $base = $self->{base};

    throws_ok { $base->get_film( {} ) } qr/no title/, 'no title';
}

sub get_tv_episode : Test(3) {
    my $self = shift;
    my $base = $self->{base};

    throws_ok { $base->get_tv_episode( {} ) } qr/no title/, 'no title';
    throws_ok { $base->get_tv_episode( { show_title => 'foo' } ) }
    qr/no season/,
      'no season';
    throws_ok { $base->get_tv_episode( { show_title => 'foo', season => 1 } ) }
    qr/no episode/, 'no episode';
}

1;

t/lib/Test/App/MP4Meta/Source/TVDB.pm  view on Meta::CPAN

}

sub get_tv_episode_not_found : Test(1) {
    my $self = shift;
    my $t    = App::MP4Meta::Source::TVDB->new();

    my $mock = Test::MockObject->new();
    $mock->set_always( 'search', [] );
    $t->{tvdb} = $mock;

    throws_ok {
        $t->get_tv_episode(
            { show_title => 'foo', season => 1, episode => 2 } );
    }
    qr/no series found/, 'no series found';
}

sub live : Test(6) {
    my $self = shift;

    return 'no live testing' unless $self->can_live_test();