From: Vincent Pit Date: Fri, 13 Mar 2015 14:50:04 +0000 (-0300) Subject: In t/10-base.t, always show @INC X-Git-Tag: rt91248~2 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FAcme-CPANAuthors-You-re_using.git;a=commitdiff_plain;h=afd5c9c527d944235f539e91e8db3a5891177bdf;hp=38ff7a43eb9a0c90be1f4bb605ca2454b46a28c1 In t/10-base.t, always show @INC --- diff --git a/t/10-base.t b/t/10-base.t index cab2217..c3899ce 100644 --- a/t/10-base.t +++ b/t/10-base.t @@ -9,6 +9,9 @@ use Acme::CPANAuthors; local @INC = grep $_ ne '.', @INC; +diag 'Directories in @INC :'; +diag " $_" for @INC; + my $authors = eval { local $SIG{__WARN__} = sub { my ($msg) = @_; @@ -26,9 +29,6 @@ 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';