From: Rafael Kitover <rkitover@cpan.org>
Date: Wed, 1 Jul 2009 13:06:12 +0000 (+0000)
Subject: make mssql test get futher with dbd::sybase
X-Git-Tag: 0.04999_08~2^2~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=05d322c82ca2a8f5b3621e930dc078472b74a5e0;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

make mssql test get futher with dbd::sybase
---

diff --git a/t/16mssql_common.t b/t/16mssql_common.t
index 898ef6d..9cafbe5 100644
--- a/t/16mssql_common.t
+++ b/t/16mssql_common.t
@@ -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;
 
diff --git a/t/lib/dbixcsl_common_tests.pm b/t/lib/dbixcsl_common_tests.pm
index 989c5a8..34115de 100644
--- a/t/lib/dbixcsl_common_tests.pm
+++ b/t/lib/dbixcsl_common_tests.pm
@@ -953,7 +953,7 @@ sub create {
           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 @@ sub create {
           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}