11 local $SIG{__WARN__} = sub {
13 if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
18 Acme::CPANAuthors->new("You're_using");
27 diag 'Directories in @INC :';
30 my $count = $authors->count;
31 diag "$count authors found";
32 cmp_ok $count, '>', 0, 'there are some authors';
34 is $authors->name('???'), undef, 'wrong name';
35 is $authors->name('VPIT'), 'Vincent Pit', 'we should at least have this module';
36 isnt $authors->name('ISHIGAKI'), undef, 'we should at least have Acme::CPANAuthors\' author';
37 isnt $authors->name('GAAS'), undef, 'we should at least have LWP\'s author';