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',
+ default_function => 'getdate()',
+ default_function_def => 'DATETIME DEFAULT getdate()',
dsn => $dsn,
user => $user,
password => $password,
+ extra => dbixcsl_mssql_extra_tests->extra,
);
if( !$dsn || !$user ) {