X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03podcoverage.t;h=175542b57d033165ba610d16548d8b62ed10d56a;hb=00c937a24ecd01b75997dd3e0211f2377fcd84ff;hp=e8c0a0c31452410ce8b5ec5d1d47c89305c87753;hpb=5ef62e9f53f21785ad3879efedb0548dd991d175;p=dbsrgits%2FDBIx-Class.git diff --git a/t/03podcoverage.t b/t/03podcoverage.t index e8c0a0c..175542b 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,10 +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 }, @@ -73,6 +94,7 @@ 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 }, @@ -95,9 +117,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) {