view release on metacpan or  search on metacpan

t/000_basic.t  view on Meta::CPAN

use warnings;
no  warnings 'syntax';

use Test::More tests => 6;
use Acme::CPANAuthors;

BEGIN {
    use_ok ('Acme::CPANAuthors::European');
}

ok defined $Acme::CPANAuthors::European::VERSION, "VERSION is set";


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

ok $authors, 'Got $authors';

ok $authors -> count, "There are authors";
my @ids = $authors -> id;
ok scalar @ids, "There are ids";
ok $authors -> name ("ABIGAIL"), "Find a name";