[Bast-commits] r6911 - in branches/DBIx-Class-Schema-Loader/mssql_tweaks/t: . lib

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-07-01 13:06:12 +0000 (Wed, 01 Jul 2009)
New Revision: 6911

Modified:
   branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/16mssql_common.t
   branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/lib/dbixcsl_common_tests.pm
Log:
make mssql test get futher with dbd::sybase

Modified: branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/16mssql_common.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/16mssql_common.t	2009-07-01 11:30:38 UTC (rev 6910)
+++ branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/16mssql_common.t	2009-07-01 13:06:12 UTC (rev 6911)
@@ -1,4 +1,13 @@
 use strict;
+use warnings;
+
+# use this if you keep a copy of DBD::Sybase linked to FreeTDS somewhere else
+BEGIN {
+  if (my $lib_dirs = $ENV{DBICTEST_MSSQL_PERL5LIB}) {
+    unshift @INC, $_ for split /:/, $lib_dirs;
+  }
+}
+
 use lib qw(t/lib);
 use dbixcsl_common_tests;
 

Modified: branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/lib/dbixcsl_common_tests.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/lib/dbixcsl_common_tests.pm	2009-07-01 11:30:38 UTC (rev 6910)
+++ branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/lib/dbixcsl_common_tests.pm	2009-07-01 13:06:12 UTC (rev 6911)
@@ -953,7 +953,7 @@
           CREATE TABLE loader_test32 (
             id INTEGER NOT NULL PRIMARY KEY,
             rel1 INTEGER NOT NULL,
-            rel2 INTEGER,
+            rel2 INTEGER NULL,
             FOREIGN KEY (rel1) REFERENCES loader_test31(id),
             FOREIGN KEY (rel2) REFERENCES loader_test31(id)
           ) $self->{innodb}
@@ -973,7 +973,7 @@
           CREATE TABLE loader_test34 (
             id INTEGER NOT NULL PRIMARY KEY,
             rel1 INTEGER NOT NULL,
-            rel2 INTEGER,
+            rel2 INTEGER NULL,
             FOREIGN KEY (id,rel1) REFERENCES loader_test33(id1,id2),
             FOREIGN KEY (id,rel2) REFERENCES loader_test33(id1,id2)
           ) $self->{innodb}