Commit | Line | Data |
bc5afe55 |
1 | use strict; |
2 | use lib qw(t/lib); |
3 | use dbixcsl_common_tests; |
4 | |
b511f36e |
5 | # to support " quoted identifiers |
6 | BEGIN { $ENV{DELIMIDENT} = 'y' } |
7 | |
bc5afe55 |
8 | # This test doesn't run over a shared memory connection, because of the single connection limit. |
9 | |
10 | my $dsn = $ENV{DBICTEST_INFORMIX_DSN} || ''; |
11 | my $user = $ENV{DBICTEST_INFORMIX_USER} || ''; |
12 | my $password = $ENV{DBICTEST_INFORMIX_PASS} || ''; |
13 | |
14 | my $tester = dbixcsl_common_tests->new( |
15 | vendor => 'Informix', |
16 | auto_inc_pk => 'SERIAL PRIMARY KEY', |
17 | null => '', |
18 | default_function => 'CURRENT YEAR TO FRACTION(5)', |
19 | default_function_def => 'DATETIME YEAR TO FRACTION(5) DEFAULT CURRENT YEAR TO FRACTION(5)', |
20 | dsn => $dsn, |
21 | user => $user, |
22 | password => $password, |
b511f36e |
23 | loader_options => { preserve_case => 1 }, |
24 | quote_char => '"', |
bc5afe55 |
25 | ); |
26 | |
27 | if( !$dsn ) { |
28 | $tester->skip_tests('You need to set the DBICTEST_INFORMIX_DSN, _USER, and _PASS environment variables'); |
29 | } |
30 | else { |
31 | $tester->run_tests(); |
32 | } |
33 | # vim:et sts=4 sw=4 tw=0: |