view release on metacpan or  search on metacpan

t/10-synopsis.t  view on Meta::CPAN

is( ~~@ids, $number, " .. \$authors->id eqals \$authors->count" );

SKIP: {
    skip "CPAN configuration not available", 4
        unless eval "Acme::CPANAuthors::Utils::_cpan_authors_file() ; 1";

    my @distros  = $authors->distributions("SAPER");
    cmp_ok( ~~@distros, ">", 0, " .. \$authors->distributions gives a non-empty list" );

    my $url      = $authors->avatar_url("VPIT");
    cmp_ok( length($url), ">", 0, " .. \$authors->avatar_url('VPIT') gives a non-empty string" );

    my $kwalitee = eval { $authors->kwalitee("BOOK") };
    SKIP: {
        skip $@, 1 if $@ =~ /Can't connect to cpants.perl.org/;
        isa_ok( $kwalitee, "HASH", " .. \$authors->kwalitee('BOOK')" );
    }

    my $name     = $authors->name("RGARCIA");
    cmp_ok( length($name), ">", 0, " .. \$authors->name('RGARCIA') gives a non-empty string" );
}

t/80-cpan-rt-45077.t  view on Meta::CPAN

    DOLMEN  => [ 23, "Olivier Mengué (dolmen)" ],
    JFENAL  => [ 12, "Jérôme Fenal" ],
);

plan tests => 2 * keys %name;

my $authors = Acme::CPANAuthors->new('French');

for my $pauseid (keys %name) {
    my $author = $authors->name($pauseid);
    is( length $author, $name{$pauseid}[0],
        "$pauseid: author name must be $name{$pauseid}[0] chars long" );
    is( $author, $name{$pauseid}[1], "$pauseid: checking encoding" );
}