X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F16mssql_common.t;h=2b59b076f22894d5cf9fc3ee8508ba88ce5e4afb;hb=1c95b304b7122906e73de27b72b7cf9fa76bc475;hp=898ef6de614b499fdfc7f876dc864499e82cfbbc;hpb=af8f627907ce02b59cec8ee788917b81367802aa;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/16mssql_common.t b/t/16mssql_common.t
index 898ef6d..2b59b07 100644
--- a/t/16mssql_common.t
+++ b/t/16mssql_common.t
@@ -1,17 +1,28 @@
 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;
+use dbixcsl_mssql_extra_tests;
 
 my $dsn      = $ENV{DBICTEST_MSSQL_DSN} || '';
 my $user     = $ENV{DBICTEST_MSSQL_USER} || '';
 my $password = $ENV{DBICTEST_MSSQL_PASS} || '';
 
 my $tester = dbixcsl_common_tests->new(
-    vendor      => 'Microsoft',
+    vendor      => 'mssql',
     auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY',
     dsn         => $dsn,
     user        => $user,
     password    => $password,
+    extra       => dbixcsl_mssql_extra_tests->extra,
 );
 
 if( !$dsn || !$user ) {