use Acme::CPANAuthors;
+local @INC = grep $_ ne '.', @INC;
+
+diag 'Directories in @INC :';
+diag " $_" for @INC;
+
my $authors = eval {
local $SIG{__WARN__} = sub {
my ($msg) = @_;
if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
die $1;
}
- CORE::warn(@_);
+ diag $_ for @_;
};
Acme::CPANAuthors->new("You're_using");
};
plan skip_all => $@;
}
-diag 'Directories in @INC :';
-diag " $_" for @INC;
-
my $count = $authors->count;
diag "$count authors found";
cmp_ok $count, '>', 0, 'there are some authors';