[Bast-commits] r8165 - in branches/DBIx-Class-Schema-Loader/back-compat: lib/DBIx/Class/Schema/Loader/Compat lib/DBIx/Class/Schema/Loader/RelBuilder/Compat t/backcompat/0.04006 t/backcompat/0.04006/lib t/backcompat/0.04006/lib/My

caelum at dev.catalyst.perl.org caelum at dev.catalyst.perl.org
Thu Dec 24 09:24:09 GMT 2009


Author: caelum
Date: 2009-12-24 09:24:08 +0000 (Thu, 24 Dec 2009)
New Revision: 8165

Added:
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/lib/My/
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/lib/My/ResultBaseClass.pm
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/lib/My/SchemaBaseClass.pm
Modified:
   branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Compat/v0_040.pm
   branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/20invocations.t
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/21misc_fatal.t
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/22dump.t
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/23dumpmore.t
Log:
fix POD coverage and t/backcompat/0.04006/23dumpmore.t

Modified: branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Compat/v0_040.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Compat/v0_040.pm	2009-12-24 09:13:37 UTC (rev 8164)
+++ branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/Compat/v0_040.pm	2009-12-24 09:24:08 UTC (rev 8165)
@@ -24,3 +24,15 @@
 }
 
 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

Modified: branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm	2009-12-24 09:13:37 UTC (rev 8164)
+++ branches/DBIx-Class-Schema-Loader/back-compat/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm	2009-12-24 09:24:08 UTC (rev 8165)
@@ -30,5 +30,15 @@
     return $remote_relname;
 }
 
+1;
 
-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

Modified: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/20invocations.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/20invocations.t	2009-12-24 09:13:37 UTC (rev 8164)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/20invocations.t	2009-12-24 09:24:08 UTC (rev 8165)
@@ -2,11 +2,10 @@
 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) = @_;

Modified: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/21misc_fatal.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/21misc_fatal.t	2009-12-24 09:13:37 UTC (rev 8164)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/21misc_fatal.t	2009-12-24 09:24:08 UTC (rev 8165)
@@ -2,7 +2,6 @@
 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};
 

Modified: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/22dump.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/22dump.t	2009-12-24 09:13:37 UTC (rev 8164)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/22dump.t	2009-12-24 09:24:08 UTC (rev 8165)
@@ -3,11 +3,10 @@
 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';
 
 {

Modified: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/23dumpmore.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/23dumpmore.t	2009-12-24 09:13:37 UTC (rev 8164)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/23dumpmore.t	2009-12-24 09:24:08 UTC (rev 8165)
@@ -4,15 +4,13 @@
 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 =>
+"Win32 perl produces additional warnings, and this test uses unix paths";
 
-$^O eq 'MSWin32'
-    ? plan(skip_all => "ActiveState perl produces additional warnings, and this test uses unix paths")
-    : plan(tests => 85);
-
 my $DUMP_PATH = './t/_dump';
 
 sub do_dump_test {
@@ -270,4 +268,6 @@
     },
 );
 
+done_testing;
+
 END { rmtree($DUMP_PATH, 1, 1); }

Added: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/lib/My/ResultBaseClass.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/lib/My/ResultBaseClass.pm	                        (rev 0)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/lib/My/ResultBaseClass.pm	2009-12-24 09:24:08 UTC (rev 8165)
@@ -0,0 +1,5 @@
+package My::ResultBaseClass;
+
+use base 'DBIx::Class::Core';
+
+1;

Added: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/lib/My/SchemaBaseClass.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/lib/My/SchemaBaseClass.pm	                        (rev 0)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/lib/My/SchemaBaseClass.pm	2009-12-24 09:24:08 UTC (rev 8165)
@@ -0,0 +1,5 @@
+package My::SchemaBaseClass;
+
+use base 'DBIx::Class::Schema';
+
+1;




More information about the Bast-commits mailing list