4 use dbixcsl_common_tests;
6 # The default max_cursor_count and max_statement_count settings of 50 are too
7 # low to run this test.
9 my $dbd_sqlanywhere_dsn = $ENV{DBICTEST_SYBASE_ASA_DSN} || '';
10 my $dbd_sqlanywhere_user = $ENV{DBICTEST_SYBASE_ASA_USER} || '';
11 my $dbd_sqlanywhere_password = $ENV{DBICTEST_SYBASE_ASA_PASS} || '';
13 my $odbc_dsn = $ENV{DBICTEST_SYBASE_ASA_ODBC_DSN} || '';
14 my $odbc_user = $ENV{DBICTEST_SYBASE_ASA_ODBC_USER} || '';
15 my $odbc_password = $ENV{DBICTEST_SYBASE_ASA_ODBC_PASS} || '';
17 my $tester = dbixcsl_common_tests->new(
18 vendor => 'SQLAnywhere',
19 auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY',
20 default_function => 'current timestamp',
21 connect_info => [ ($dbd_sqlanywhere_dsn ? {
22 dsn => $dbd_sqlanywhere_dsn,
23 user => $dbd_sqlanywhere_user,
24 password => $dbd_sqlanywhere_password,
29 password => $odbc_password,
34 if (not ($dbd_sqlanywhere_dsn || $odbc_dsn)) {
35 $tester->skip_tests('You need to set the DBICTEST_SYBASE_ASA_DSN, _USER and _PASS and/or the DBICTEST_SYBASE_ASA_ODBC_DSN, _USER and _PASS environment variables');