1use strict; 2use warnings; 3 4# use this if you keep a copy of DBD::Sybase linked to FreeTDS somewhere else 5BEGIN { 6 if (my $lib_dirs = $ENV{DBICTEST_MSSQL_PERL5LIB}) { 7 unshift @INC, $_ for split /:/, $lib_dirs; 8 } 9} 10 11use lib qw(t/lib); 12use dbixcsl_common_tests; 13use dbixcsl_mssql_extra_tests; 14 15my $dsn = $ENV{DBICTEST_MSSQL_DSN} || ''; 16my $user = $ENV{DBICTEST_MSSQL_USER} || ''; 17my $password = $ENV{DBICTEST_MSSQL_PASS} || ''; 18 19my $tester = dbixcsl_common_tests->new( 20 vendor => 'mssql', 21 auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY', 22 default_function => 'getdate()', 23 default_function_def => 'DATETIME DEFAULT getdate()', 24 dsn => $dsn, 25 user => $user, 26 password => $password, 27 extra => dbixcsl_mssql_extra_tests->extra, 28); 29 30if( !$dsn || !$user ) { 31 $tester->skip_tests('You need to set the DBICTEST_MSSQL_DSN, _USER, and _PASS environment variables'); 32} 33else { 34 $tester->run_tests(); 35} 36