From: Vincent Pit <vince@profvince.com>
Date: Tue, 17 Feb 2009 14:33:40 +0000 (+0100)
Subject: Only effectively builds the author list in t/10-base.t
X-Git-Tag: v0.02~4
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=cbb501aa1e454f486e962d66d146dddad3d16ddc;p=perl%2Fmodules%2FAcme-CPANAuthors-You-re_using.git

Only effectively builds the author list in t/10-base.t

This divides the test suite run time by three.
---

diff --git a/lib/Acme/CPANAuthors/You/re_using.pm b/lib/Acme/CPANAuthors/You/re_using.pm
index 785b614..3841272 100644
--- a/lib/Acme/CPANAuthors/You/re_using.pm
+++ b/lib/Acme/CPANAuthors/You/re_using.pm
@@ -39,7 +39,11 @@ It may take some time to load since it has to get CPAN indexes at C<BEGIN> time.
 
 =cut
 
+our $SKIP;
+
 BEGIN {
+ return if $SKIP;
+
  my %authors;
 
  my $pkgs = Acme::CPANAuthors::Utils::cpan_packages();
diff --git a/t/00-load.t b/t/00-load.t
index 1211a76..07af690 100644
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -7,7 +7,8 @@ use Test::More tests => 1;
 
 BEGIN {
  local $^W = 0;
-	use_ok( "Acme::CPANAuthors::You're_using" );
+ local $Acme::CPANAuthors::You're_using::SKIP = 1;
+ use_ok( "Acme::CPANAuthors::You're_using" );
 }
 
 diag( "Testing Acme::CPANAuthors::You're_using $Acme::CPANAuthors::You're_using::VERSION, Perl $], $^X" );
diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index 27e0cf8..c7bb844 100644
--- a/t/92-pod-coverage.t
+++ b/t/92-pod-coverage.t
@@ -13,4 +13,8 @@ my $min_pc = 0.18;
 eval "use Pod::Coverage $min_pc";
 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@;
 
-all_pod_coverage_ok( { also_private => [ qw/format_available init prepare create install uninstall/ ] });
+{
+ no warnings 'once';
+ local $Acme::CPANAuthors::You're_using::SKIP = 1;
+ all_pod_coverage_ok();
+}