X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03podcoverage.t;h=e8c0a0c31452410ce8b5ec5d1d47c89305c87753;hb=ebe790dbc130d3604bb07e9636ff0458f8b464a9;hp=aacbf1847547ccc56cdae928a8ea11279472e0c9;hpb=0ebb0072e0390268976ead85abfeb3022c16a6a9;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/03podcoverage.t b/t/03podcoverage.t index aacbf18..e8c0a0c 100644 --- a/t/03podcoverage.t +++ b/t/03podcoverage.t @@ -2,7 +2,8 @@ use Test::More; 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}; +plan skip_all => 'set TEST_POD to enable this test' + unless ($ENV{TEST_POD} || -e 'MANIFEST.SKIP'); my @modules = sort { $a cmp $b } (Test::Pod::Coverage::all_modules()); plan tests => scalar(@modules); @@ -21,16 +22,31 @@ my $exceptions = { ignore => [ qw/MODIFY_CODE_ATTRIBUTES component_base_class - mk_classdata/ + mk_classdata + mk_classaccessor/ + ] + }, + 'DBIx::Class::Storage' => { + ignore => [ + qw(cursor) ] }, 'DBIx::Class::CDBICompat::AccessorMapping' => { skip => 1 }, + 'DBIx::Class::CDBICompat::AbstractSearch' => { + ignore => [qw(search_where)] + }, 'DBIx::Class::CDBICompat::AttributeAPI' => { skip => 1 }, 'DBIx::Class::CDBICompat::AutoUpdate' => { skip => 1 }, + 'DBIx::Class::CDBICompat::ColumnsAsHash' => { + ignore => [qw(inflate_result new update)] + }, 'DBIx::Class::CDBICompat::ColumnCase' => { skip => 1 }, 'DBIx::Class::CDBICompat::ColumnGroups' => { skip => 1 }, 'DBIx::Class::CDBICompat::Constraints' => { skip => 1 }, 'DBIx::Class::CDBICompat::Constructor' => { skip => 1 }, + 'DBIx::Class::CDBICompat::Copy' => { + ignore => [qw(copy)] + }, 'DBIx::Class::CDBICompat::DestroyWarning' => { skip => 1 }, 'DBIx::Class::CDBICompat::GetSet' => { skip => 1 }, 'DBIx::Class::CDBICompat::HasA' => { skip => 1 }, @@ -58,7 +74,7 @@ my $exceptions = { 'DBIx::Class::Relationship::ProxyMethods' => { skip => 1 }, 'DBIx::Class::ResultSetProxy' => { skip => 1 }, 'DBIx::Class::ResultSourceProxy' => { skip => 1 }, - 'DBIx::Class::Storage' => { 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 }, @@ -70,6 +86,18 @@ my $exceptions = { 'DBIx::Class::Storage::DBI::mysql' => { skip => 1 }, 'SQL::Translator::Parser::DBIx::Class' => { skip => 1 }, 'SQL::Translator::Producer::DBIx::Class::File' => { skip => 1 }, + +# skipped because the synopsis covers it clearly + + 'DBIx::Class::InflateColumn::File' => { skip => 1 }, + +# skip connection since it's just an override + + 'DBIx::Class::Schema::Versioned' => { ignore => [ qw(connection) ] }, + +# must kill authors. + + 'DBIx::Class::Storage::DBI::Replication' => { skip => 1 }, }; foreach my $module (@modules) {