X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F16mssql_common.t;h=4282aaecbf21d665c723764a3144aecca1d28d19;hb=f170d55b2829518155a9b8817639affab3559b03;hp=f64b0b4b842afead85d139190b1b52d3f3dcd389;hpb=046e344cc057bdacd8718acf1b6a25e77dfbc2a2;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/16mssql_common.t b/t/16mssql_common.t
index f64b0b4..4282aae 100644
--- a/t/16mssql_common.t
+++ b/t/16mssql_common.t
@@ -1,18 +1,30 @@
 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',
-    quote_char  => [qw/[ ]/],
+    vendor      => 'mssql',
     auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY',
+    default_function     => 'getdate()',
+    default_function_def => 'DATETIME DEFAULT getdate()',
     dsn         => $dsn,
     user        => $user,
     password    => $password,
+    extra       => dbixcsl_mssql_extra_tests->extra,
 );
 
 if( !$dsn || !$user ) {