[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