1use strict; 2use lib qw(t/lib); 3use dbixcsl_common_tests; 4use dbixcsl_mssql_extra_tests; 5 6my $dsn = $ENV{DBICTEST_MSSQL_ODBC_DSN} || ''; 7my $user = $ENV{DBICTEST_MSSQL_ODBC_USER} || ''; 8my $password = $ENV{DBICTEST_MSSQL_ODBC_PASS} || ''; 9 10my $tester = dbixcsl_common_tests->new( 11 vendor => 'mssql', 12 auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY', 13 default_function => 'getdate()', 14 default_function_def => 'DATETIME DEFAULT getdate()', 15 dsn => $dsn, 16 user => $user, 17 password => $password, 18 extra => dbixcsl_mssql_extra_tests->extra, 19); 20 21if( !$dsn || !$user ) { 22 $tester->skip_tests('You need to set the DBICTEST_MSSQL_ODBC_DSN, _USER, and _PASS environment variables'); 23} 24else { 25 $tester->run_tests(); 26} 27