X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-base.t;h=cab221723d939bef3ff4af46f2277e6aad59b7ec;hb=38ff7a43eb9a0c90be1f4bb605ca2454b46a28c1;hp=39eff2314932c2248bd05af4c1b8f8906abfebee;hpb=27f259be3b5d89e23f7e6e882bd3d8310eaf9d3e;p=perl%2Fmodules%2FAcme-CPANAuthors-You-re_using.git

diff --git a/t/10-base.t b/t/10-base.t
index 39eff23..cab2217 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -7,6 +7,8 @@ use Test::More;
 
 use Acme::CPANAuthors;
 
+local @INC = grep $_ ne '.', @INC;
+
 my $authors = eval {
  local $SIG{__WARN__} = sub {
   my ($msg) = @_;
@@ -24,6 +26,9 @@ if ($authors) {
  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';
@@ -31,4 +36,4 @@ cmp_ok $count, '>', 0, 'there are some authors';
 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';