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