view release on metacpan or  search on metacpan

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

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
no  warnings 'syntax';
 
use Test::More 0.88;
use Acme::CPANAuthors;
 
BEGIN {
    use_ok ('Acme::CPANAuthors::CPANTS::FiveOrMore') or
       BAIL_OUT ("Loading of 'Acme::CPANAuthors::CPANTS::FiveOrMores' failed");
}
 
ok defined $Acme::CPANAuthors::CPANTS::FiveOrMore::VERSION, "VERSION is set";
 
 
my $authors = Acme::CPANAuthors -> new ('CPANTS::FiveOrMore');
 
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";