X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fpodcoverage.t;h=a5c923fc492a58eb599996f13f6b64a66b227b7b;hb=d6b39e463d43250ea171fa983b2364227172266f;hp=be4bbbb98969168287bc6fdb52338c062a0f5351;hpb=70c288086248e5a4008490df22a56632341f2473;p=dbsrgits%2FDBIx-Class.git

diff --git a/xt/podcoverage.t b/xt/podcoverage.t
index be4bbbb..a5c923f 100644
--- a/xt/podcoverage.t
+++ b/xt/podcoverage.t
@@ -7,15 +7,10 @@ use lib qw(t/lib);
 use DBICTest;
 use namespace::clean;
 
-# Don't run tests for installs
-if ( DBICTest::RunMode->is_plain ) {
-  plan( skip_all => "Author tests not required for installation" );
-}
-
 require DBIx::Class;
 unless ( DBIx::Class::Optional::Dependencies->req_ok_for ('test_podcoverage') ) {
   my $missing = DBIx::Class::Optional::Dependencies->req_missing_for ('test_podcoverage');
-  $ENV{RELEASE_TESTING} || DBICTest::RunMode->is_author
+  $ENV{RELEASE_TESTING}
     ? die ("Failed to load release-testing module requirements: $missing")
     : plan skip_all => "Test needs: $missing"
 }
@@ -130,6 +125,8 @@ my $exceptions = {
     'DBIx::Class::ResultSource::*'                  => { skip => 1 },
     'DBIx::Class::Storage::Statistics'              => { skip => 1 },
     'DBIx::Class::Storage::DBI::Replicated::Types'  => { skip => 1 },
+    'DBIx::Class::GlobalDestruction'                => { skip => 1 },
+    'DBIx::Class::Storage::BlockRunner'             => { skip => 1 }, # temporary
 
 # test some specific components whose parents are exempt below
     'DBIx::Class::Relationship::Base'               => {},
@@ -149,6 +146,9 @@ my $exceptions = {
 
 # skipped because the synopsis covers it clearly
     'DBIx::Class::InflateColumn::File'              => { skip => 1 },
+
+# internal subclass, nothing to POD
+    'DBIx::Class::ResultSet::Pager'                 => { skip => 1 },
 };
 
 my $ex_lookup = {};