1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!perl
use strict;
use warnings;
use Test::More tests => 2 + 4 * 2;
use Test::Fatal;
use lib '.';
use t::lib::Functions;
my $mc = mcpan();
can_ok( $mc, 'favorite' );
foreach my $option ( { author => 'XSAWYERX' }, { dist => 'MetaCPAN-Client' } ) {
my $rs = $mc->favorite($option);
isa_ok( $rs, 'MetaCPAN::Client::ResultSet' );
can_ok( $rs, qw<type scroller> );
is( $rs->type, 'favorite', 'Correct resultset type' );
isa_ok( $rs->scroller, 'MetaCPAN::Client::Scroll' );
}
|
