backcompat tests now run, but fail

diff --git a/t/backcompat/0.04006/10sqlite_common.t b/t/backcompat/0.04006/10sqlite_common.t
index b28f1ac..4dd6adc 100644 (file)
--- a/t/backcompat/0.04006/10sqlite_common.t
+++ b/t/backcompat/0.04006/10sqlite_common.t
@@ -1,6 +1,9 @@
 use strict;
 use lib qw(t/backcompat/0.04006/lib);
 use dbixcsl_common_tests;
+use Test::More;
+plan skip_all => 'Backcompat tests disabled'
+    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
 
 eval { require DBD::SQLite };
 my $class = $@ ? 'SQLite2' : 'SQLite';

diff --git a/t/backcompat/0.04006/11mysql_common.t b/t/backcompat/0.04006/11mysql_common.t
index c65c7b1..fdb63d2 100644 (file)
--- a/t/backcompat/0.04006/11mysql_common.t
+++ b/t/backcompat/0.04006/11mysql_common.t
@@ -1,6 +1,10 @@
 use strict;
-use lib qw(t/lib);
+use lib qw(t/backcompat/0.04006/lib);
 use dbixcsl_common_tests;
+use Test::More;
+plan skip_all => 'Backcompat tests disabled'
+    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
+
 
 my $dsn         = $ENV{DBICTEST_MYSQL_DSN} || '';
 my $user        = $ENV{DBICTEST_MYSQL_USER} || '';

diff --git a/t/backcompat/0.04006/12pg_common.t b/t/backcompat/0.04006/12pg_common.t
index 21e83ec..e0b8d09 100644 (file)
--- a/t/backcompat/0.04006/12pg_common.t
+++ b/t/backcompat/0.04006/12pg_common.t
@@ -1,6 +1,10 @@
 use strict;
-use lib qw(t/lib);
+use lib qw(t/backcompat/0.04006/lib);
 use dbixcsl_common_tests;
+use Test::More;
+plan skip_all => 'Backcompat tests disabled'
+    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
+
 
 my $dsn      = $ENV{DBICTEST_PG_DSN} || '';
 my $user     = $ENV{DBICTEST_PG_USER} || '';

diff --git a/t/backcompat/0.04006/13db2_common.t b/t/backcompat/0.04006/13db2_common.t
index b52fa68..c024cd3 100644 (file)
--- a/t/backcompat/0.04006/13db2_common.t
+++ b/t/backcompat/0.04006/13db2_common.t
@@ -1,6 +1,10 @@
 use strict;
-use lib qw(t/lib);
+use lib qw(t/backcompat/0.04006/lib);
 use dbixcsl_common_tests;
+use Test::More;
+plan skip_all => 'Backcompat tests disabled'
+    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
+
 
 my $dsn      = $ENV{DBICTEST_DB2_DSN} || '';
 my $user     = $ENV{DBICTEST_DB2_USER} || '';

diff --git a/t/backcompat/0.04006/14ora_common.t b/t/backcompat/0.04006/14ora_common.t
index 2cd05b5..b86a9c9 100644 (file)
--- a/t/backcompat/0.04006/14ora_common.t
+++ b/t/backcompat/0.04006/14ora_common.t
@@ -1,6 +1,10 @@
 use strict;
-use lib qw(t/lib);
+use lib qw(t/backcompat/0.04006/lib);
 use dbixcsl_common_tests;
+use Test::More;
+plan skip_all => 'Backcompat tests disabled'
+    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
+
 
 my $dsn      = $ENV{DBICTEST_ORA_DSN} || '';
 my $user     = $ENV{DBICTEST_ORA_USER} || '';

diff --git a/t/backcompat/0.04006/20invocations.t b/t/backcompat/0.04006/20invocations.t
index c818842..1c05ca5 100644 (file)
--- a/t/backcompat/0.04006/20invocations.t
+++ b/t/backcompat/0.04006/20invocations.t
@@ -1,7 +1,11 @@
 use strict;
 use Test::More;
-use lib qw(t/lib);
+use lib qw(t/backcompat/0.04006/lib);
 use make_dbictest_db;
+use Test::More;
+plan skip_all => 'Backcompat tests disabled'
+    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
+
 
 # Takes a $schema as input, runs 4 basic tests
 sub test_schema {

diff --git a/t/backcompat/0.04006/21misc_fatal.t b/t/backcompat/0.04006/21misc_fatal.t
index a1ce752..77d1611 100644 (file)
--- a/t/backcompat/0.04006/21misc_fatal.t
+++ b/t/backcompat/0.04006/21misc_fatal.t
@@ -1,7 +1,11 @@
 use strict;
 use Test::More;
-use lib qw(t/lib);
+use lib qw(t/backcompat/0.04006/lib);
 use make_dbictest_db;
+use Test::More;
+plan skip_all => 'Backcompat tests disabled'
+    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
+
 
 {
     $INC{'DBIx/Class/Storage/xyzzy.pm'} = 1;

diff --git a/t/backcompat/0.04006/22dump.t b/t/backcompat/0.04006/22dump.t
index a10c483..5aa5f59 100644 (file)
--- a/t/backcompat/0.04006/22dump.t
+++ b/t/backcompat/0.04006/22dump.t
@@ -1,8 +1,12 @@
 use strict;
 use Test::More;
-use lib qw(t/lib);
+use lib qw(t/backcompat/0.04006/lib);
 use File::Path;
 use make_dbictest_db;
+use Test::More;
+plan skip_all => 'Backcompat tests disabled'
+    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 6455ad0..f207df3 100644 (file)
--- a/t/backcompat/0.04006/23dumpmore.t
+++ b/t/backcompat/0.04006/23dumpmore.t
@@ -1,9 +1,13 @@
 use strict;
 use Test::More;
-use lib qw(t/lib);
+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 => 'Backcompat tests disabled'
+    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
+
 
 $^O eq 'MSWin32'
     ? plan(skip_all => "ActiveState perl produces additional warnings, and this test uses unix paths")