X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-base.t;h=72e2bd88caaa110805050ce7a000c20fb3bd10d0;hb=a5f2d9b989d2afcdb4a7b0cc374439627a516656;hp=06c7a3f7c6b6ad035a49f97ac16e8190626b49e6;hpb=e951a98a6645fdb463116e22fd08948abfc35f97;p=perl%2Fmodules%2FAcme-CPANAuthors-You-re_using.git

diff --git a/t/10-base.t b/t/10-base.t
index 06c7a3f..72e2bd8 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -7,13 +7,18 @@ use Test::More;
 
 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");
 };