use Acme::CPANAuthors;
+local @INC = grep $_ ne '.', @INC;
+
+diag 'Directories in @INC :';
+diag " $_" for @INC;
+
my $authors = eval {
- local $SIG{__WARN__} = sub { die @_ };
+ local $SIG{__WARN__} = sub {
+ my ($msg) = @_;
+ if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
+ die $1;
+ }
+ diag $_ for @_;
+ };
Acme::CPANAuthors->new("You're_using");
};
is $authors->name('???'), undef, 'wrong name';
is $authors->name('VPIT'), 'Vincent Pit', 'we should at least have this module';
isnt $authors->name('ISHIGAKI'), undef, 'we should at least have Acme::CPANAuthors\' author';
-isnt $authors->name('LBROCARD'), undef, 'we should at least have Parse::CPAN::* author';
+isnt $authors->name('GAAS'), undef, 'we should at least have LWP\'s author';