[Bast-commits] r7974 - branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006

caelum at dev.catalyst.perl.org caelum at dev.catalyst.perl.org
Sat Nov 28 10:38:41 GMT 2009 

Author: caelum
Date: 2009-11-28 10:38:41 +0000 (Sat, 28 Nov 2009)
New Revision: 7974

Modified:
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/10sqlite_common.t
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/11mysql_common.t
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/12pg_common.t
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/13db2_common.t
   branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/14ora_common.t
   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:
backcompat tests now run, but fail

Modified: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/10sqlite_common.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/10sqlite_common.t	2009-11-28 08:46:00 UTC (rev 7973)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/10sqlite_common.t	2009-11-28 10:38:41 UTC (rev 7974)
@@ -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';

Modified: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/11mysql_common.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/11mysql_common.t	2009-11-28 08:46:00 UTC (rev 7973)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/11mysql_common.t	2009-11-28 10:38:41 UTC (rev 7974)
@@ -1,7 +1,11 @@
 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} || '';
 my $password    = $ENV{DBICTEST_MYSQL_PASS} || '';

Modified: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/12pg_common.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/12pg_common.t	2009-11-28 08:46:00 UTC (rev 7973)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/12pg_common.t	2009-11-28 10:38:41 UTC (rev 7974)
@@ -1,7 +1,11 @@
 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} || '';
 my $password = $ENV{DBICTEST_PG_PASS} || '';

Modified: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/13db2_common.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/13db2_common.t	2009-11-28 08:46:00 UTC (rev 7973)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/13db2_common.t	2009-11-28 10:38:41 UTC (rev 7974)
@@ -1,7 +1,11 @@
 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} || '';
 my $password = $ENV{DBICTEST_DB2_PASS} || '';

Modified: branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/14ora_common.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/14ora_common.t	2009-11-28 08:46:00 UTC (rev 7973)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/14ora_common.t	2009-11-28 10:38:41 UTC (rev 7974)
@@ -1,7 +1,11 @@
 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} || '';
 my $password = $ENV{DBICTEST_ORA_PASS} || '';

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-11-28 08:46:00 UTC (rev 7973)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/20invocations.t	2009-11-28 10:38:41 UTC (rev 7974)
@@ -1,8 +1,12 @@
 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 {
     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-11-28 08:46:00 UTC (rev 7973)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/21misc_fatal.t	2009-11-28 10:38:41 UTC (rev 7974)
@@ -1,8 +1,12 @@
 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;
     package DBIx::Class::Storage::xyzzy;

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-11-28 08:46:00 UTC (rev 7973)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/22dump.t	2009-11-28 10:38:41 UTC (rev 7974)
@@ -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;
+use Test::More;
+plan skip_all => 'Backcompat tests disabled'
+    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-11-28 08:46:00 UTC (rev 7973)
+++ branches/DBIx-Class-Schema-Loader/back-compat/t/backcompat/0.04006/23dumpmore.t	2009-11-28 10:38:41 UTC (rev 7974)
@@ -1,10 +1,14 @@
 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")
     : plan(tests => 85);

More information about the Bast-commits mailing list