1use strict; 2use lib qw(t/lib); 3use dbixcsl_common_tests; 4 5# The default max_cursor_count and max_statement_count settings of 50 are too 6# low to run this test. 7 8my $dsn = $ENV{DBICTEST_SYBASE_ASA_ODBC_DSN} || ''; 9my $user = $ENV{DBICTEST_SYBASE_ASA_ODBC_USER} || ''; 10my $password = $ENV{DBICTEST_SYBASE_ASA_ODBC_PASS} || ''; 11 12my $tester = dbixcsl_common_tests->new( 13 vendor => 'SQLAnywhere', 14 auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY', 15 default_function => 'current timestamp', 16 dsn => $dsn, 17 user => $user, 18 password => $password, 19); 20 21if( !$dsn ) { 22 $tester->skip_tests('You need to set the DBICTEST_SYBASE_ASA_DSN, _USER, and _PASS environment variables'); 23} 24else { 25 $tester->run_tests(); 26} 27