use strict;
-use lib qw( . ./t );
-use dbixcl_common_tests;
+use lib qw(t/lib);
+use dbixcsl_common_tests;
-my $database = $ENV{DB2_NAME} || '';
-my $user = $ENV{DB2_USER} || '';
-my $password = $ENV{DB2_PASS} || '';
+my $dsn = $ENV{DBICTEST_DB2_DSN} || '';
+my $user = $ENV{DBICTEST_DB2_USER} || '';
+my $password = $ENV{DBICTEST_DB2_PASS} || '';
-my $tester = dbixcl_common_tests->new(
- vendor => 'DB2',
- auto_inc_pk => 'SERIAL NOT NULL PRIMARY KEY',
- dsn => "dbi:DB2:$database",
- user => $user,
- password => $password,
+my $tester = dbixcsl_common_tests->new(
+ vendor => 'DB2',
+ auto_inc_pk => 'INTEGER GENERATED BY DEFAULT AS IDENTITY NOT NULL PRIMARY KEY',
+ dsn => $dsn,
+ user => $user,
+ password => $password,
+ null => '',
+ data_types => {
+ 'timestamp DEFAULT CURRENT TIMESTAMP' => { data_type => 'timestamp', default_value => \'CURRENT_TIMESTAMP' }
+ },
);
-if( !$database || !$user ) {
- $tester->skip_tests('You need to set the DB2_NAME, DB2_USER and DB2_PASS environment variables');
+if( !$dsn || !$user ) {
+ $tester->skip_tests('You need to set the DBICTEST_DB2_DSN, _USER, and _PASS environment variables');
}
else {
$tester->run_tests();
}
+# vim:et sts=4 sw=4 tw=0: