From: Rafael Kitover <rkitover@cpan.org>
Date: Thu, 24 Dec 2009 09:24:08 +0000 (+0000)
Subject: fix POD coverage and t/backcompat/0.04006/23dumpmore.t
X-Git-Tag: 0.04999_13~23^2~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=818c6a0ce648636f8e4e7d0505f20bc4a3b04bfe;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

fix POD coverage and t/backcompat/0.04006/23dumpmore.t
---

diff --git a/lib/DBIx/Class/Schema/Loader/Compat/v0_040.pm b/lib/DBIx/Class/Schema/Loader/Compat/v0_040.pm
index 1af1647..2dca0f4 100644
--- a/lib/DBIx/Class/Schema/Loader/Compat/v0_040.pm
+++ b/lib/DBIx/Class/Schema/Loader/Compat/v0_040.pm
@@ -24,3 +24,15 @@ sub _relbuilder {
 }
 
 1;
+
+=head1 NAME
+
+DBIx::Class::Schema::Loader::Compat::v0_040 - Compatibility for DBIx::Class::Schema::Loader
+version 0.04006
+
+=head1 DESCRIPTION
+
+Dumps from the old version are auto-detected, and the compat layer is turned
+on. See also L<DBIx::Class::Schema::Loader::Base/namingg>.
+
+=cut
diff --git a/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm b/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
index 3d12a25..63e2a14 100644
--- a/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
+++ b/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
@@ -30,5 +30,15 @@ sub _remote_relname {
     return $remote_relname;
 }
 
-
 1;
+
+=head1 NAME
+
+DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_040 - RelBuilder for
+compatibility with DBIx::Class::Schema::Loader version 0.04006
+
+=head1 DESCRIPTION
+
+Loaded by L<DBIx::Class::Schema::Loader::Compat::v0_040>.
+
+=cut
diff --git a/t/backcompat/0.04006/20invocations.t b/t/backcompat/0.04006/20invocations.t
index 7b9944a..bd8850b 100644
--- a/t/backcompat/0.04006/20invocations.t
+++ b/t/backcompat/0.04006/20invocations.t
@@ -2,11 +2,10 @@ use strict;
 use Test::More;
 use lib qw(t/backcompat/0.04006/lib);
 use make_dbictest_db;
-use Test::More;
+
 plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
     unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
 
-
 # Takes a $schema as input, runs 4 basic tests
 sub test_schema {
     my ($testname, $schema) = @_;
diff --git a/t/backcompat/0.04006/21misc_fatal.t b/t/backcompat/0.04006/21misc_fatal.t
index a0db0eb..9720347 100644
--- a/t/backcompat/0.04006/21misc_fatal.t
+++ b/t/backcompat/0.04006/21misc_fatal.t
@@ -2,7 +2,6 @@ use strict;
 use Test::More;
 use lib qw(t/backcompat/0.04006/lib);
 use make_dbictest_db;
-use Test::More;
 plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
     unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
 
diff --git a/t/backcompat/0.04006/22dump.t b/t/backcompat/0.04006/22dump.t
index 0394101..d067a60 100644
--- a/t/backcompat/0.04006/22dump.t
+++ b/t/backcompat/0.04006/22dump.t
@@ -3,11 +3,10 @@ use Test::More;
 use lib qw(t/backcompat/0.04006/lib);
 use File::Path;
 use make_dbictest_db;
-use Test::More;
+
 plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
     unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
 
-
 my $dump_path = './t/_dump';
 
 {
diff --git a/t/backcompat/0.04006/23dumpmore.t b/t/backcompat/0.04006/23dumpmore.t
index b4681b3..2d14615 100644
--- a/t/backcompat/0.04006/23dumpmore.t
+++ b/t/backcompat/0.04006/23dumpmore.t
@@ -4,14 +4,12 @@ use lib qw(t/backcompat/0.04006/lib);
 use File::Path;
 use make_dbictest_db;
 require DBIx::Class::Schema::Loader;
-use Test::More;
+
 plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
     unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
 
-
-$^O eq 'MSWin32'
-    ? plan(skip_all => "ActiveState perl produces additional warnings, and this test uses unix paths")
-    : plan(tests => 85);
+$^O eq 'MSWin32' && plan skip_all =>
+"Win32 perl produces additional warnings, and this test uses unix paths";
 
 my $DUMP_PATH = './t/_dump';
 
@@ -270,4 +268,6 @@ do_dump_test(
     },
 );
 
+done_testing;
+
 END { rmtree($DUMP_PATH, 1, 1); }
diff --git a/t/backcompat/0.04006/lib/My/ResultBaseClass.pm b/t/backcompat/0.04006/lib/My/ResultBaseClass.pm
new file mode 100644
index 0000000..e246321
--- /dev/null
+++ b/t/backcompat/0.04006/lib/My/ResultBaseClass.pm
@@ -0,0 +1,5 @@
+package My::ResultBaseClass;
+
+use base 'DBIx::Class::Core';
+
+1;
diff --git a/t/backcompat/0.04006/lib/My/SchemaBaseClass.pm b/t/backcompat/0.04006/lib/My/SchemaBaseClass.pm
new file mode 100644
index 0000000..7670d97
--- /dev/null
+++ b/t/backcompat/0.04006/lib/My/SchemaBaseClass.pm
@@ -0,0 +1,5 @@
+package My::SchemaBaseClass;
+
+use base 'DBIx::Class::Schema';
+
+1;