X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03podcoverage.t;h=b82d4f73c05b34f359dc804419fa2c844dd402f6;hb=fb4b58e8bc1863b8cbfc8e2e8e6dae03fe1fa720;hp=35add8608bc7996af85db27b534df17833e56487;hpb=aa11d765d7345d63fbc497b4b5c16776eedbaa6e;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/03podcoverage.t b/t/03podcoverage.t index 35add86..b82d4f7 100644 --- a/t/03podcoverage.t +++ b/t/03podcoverage.t @@ -1,7 +1,10 @@ use Test::More; +eval "use Pod::Coverage 0.19"; +plan skip_all => 'Pod::Coverage 0.19 required' if $@; eval "use Test::Pod::Coverage 1.04"; plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@; + plan skip_all => 'set TEST_POD to enable this test' unless ($ENV{TEST_POD} || -e 'MANIFEST.SKIP'); @@ -26,11 +29,26 @@ my $exceptions = { mk_classaccessor/ ] }, + 'DBIx::Class::Row' => { + ignore => [ + qw( MULTICREATE_DEBUG ) + ], + }, 'DBIx::Class::Storage' => { ignore => [ qw(cursor) ] }, + 'DBIx::Class::Schema' => { + ignore => [ + qw(setup_connection_class) + ] + }, + 'DBIx::Class::Storage::DBI::Sybase' => { + ignore => [ + qw/should_quote_data_type/, + ] + }, 'DBIx::Class::CDBICompat::AccessorMapping' => { skip => 1 }, 'DBIx::Class::CDBICompat::AbstractSearch' => { ignore => [qw(search_where)] @@ -55,12 +73,13 @@ my $exceptions = { 'DBIx::Class::CDBICompat::LazyLoading' => { skip => 1 }, 'DBIx::Class::CDBICompat::LiveObjectIndex' => { skip => 1 }, 'DBIx::Class::CDBICompat::MightHave' => { skip => 1 }, - 'DBIx::Class::CDBICompat::ObjIndexStubs' => { skip => 1 }, + 'DBIx::Class::CDBICompat::NoObjectIndex' => { skip => 1 }, 'DBIx::Class::CDBICompat::Pager' => { skip => 1 }, 'DBIx::Class::CDBICompat::ReadOnly' => { skip => 1 }, 'DBIx::Class::CDBICompat::Relationship' => { skip => 1 }, 'DBIx::Class::CDBICompat::Relationships' => { skip => 1 }, 'DBIx::Class::CDBICompat::Retrieve' => { skip => 1 }, + 'DBIx::Class::CDBICompat::SQLTransformer' => { skip => 1 }, 'DBIx::Class::CDBICompat::Stringify' => { skip => 1 }, 'DBIx::Class::CDBICompat::TempColumns' => { skip => 1 }, 'DBIx::Class::CDBICompat::Triggers' => { skip => 1 }, @@ -75,11 +94,11 @@ my $exceptions = { 'DBIx::Class::Relationship::ManyToMany' => { skip => 1 }, 'DBIx::Class::Relationship::ProxyMethods' => { skip => 1 }, 'DBIx::Class::ResultSetProxy' => { skip => 1 }, + 'DBIx::Class::ResultSetManager' => { skip => 1 }, 'DBIx::Class::ResultSourceProxy' => { skip => 1 }, 'DBIx::Class::Storage::DBI' => { skip => 1 }, 'DBIx::Class::Storage::DBI::DB2' => { skip => 1 }, 'DBIx::Class::Storage::DBI::MSSQL' => { skip => 1 }, - 'DBIx::Class::Storage::DBI::MultiDistinctEmulation' => { skip => 1 }, 'DBIx::Class::Storage::DBI::ODBC400' => { skip => 1 }, 'DBIx::Class::Storage::DBI::ODBC::DB2_400_SQL' => { skip => 1 }, 'DBIx::Class::Storage::DBI::Oracle' => { skip => 1 }, @@ -97,9 +116,8 @@ my $exceptions = { 'DBIx::Class::Schema::Versioned' => { ignore => [ qw(connection) ] }, -# must kill authors. - - 'DBIx::Class::Storage::DBI::Replication' => { skip => 1 }, +# don't bother since it's heavily deprecated + 'DBIx::Class::ResultSetManager' => { skip => 1 }, }; foreach my $module (@modules) {