view release on metacpan or  search on metacpan

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

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
our $r = eval "require Test::NoWarnings; 1";
 
use Test::More 0.88;
use Acme::CPANAuthors;
 
BEGIN {
    use_ok ('Acme::CPANAuthors::Pumpkings') or
       BAIL_OUT ("Loading of 'Acme::CPANAuthors::Pumpkings' failed");
}
 
ok defined $Acme::CPANAuthors::Pumpkings::VERSION, "VERSION is set";
 
 
my $authors = Acme::CPANAuthors -> new ('Pumpkings');
 
ok $authors, 'Got $authors';
 
ok $authors -> count, "There are pumpkings";
my @ids = $authors -> id;
ok scalar @ids, "There are ids";
ok $authors -> name ("LWALL"), "Find a name";