Commit | Line | Data |
9a95164d |
1 | use strict; |
1c94fb11 |
2 | use lib qw(t/backcompat/0.04006/lib); |
9a95164d |
3 | use dbixcsl_common_tests; |
1c94fb11 |
4 | use Test::More; |
fb3bb595 |
5 | plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests' |
1c94fb11 |
6 | unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT}; |
7 | |
9a95164d |
8 | |
9 | my $dsn = $ENV{DBICTEST_PG_DSN} || ''; |
10 | my $user = $ENV{DBICTEST_PG_USER} || ''; |
11 | my $password = $ENV{DBICTEST_PG_PASS} || ''; |
12 | |
13 | my $tester = dbixcsl_common_tests->new( |
14 | vendor => 'Pg', |
15 | auto_inc_pk => 'SERIAL NOT NULL PRIMARY KEY', |
16 | dsn => $dsn, |
17 | user => $user, |
18 | password => $password, |
19 | ); |
20 | |
21 | if( !$dsn || !$user ) { |
22 | $tester->skip_tests('You need to set the DBICTEST_PG_DSN, _USER, and _PASS environment variables'); |
23 | } |
24 | else { |
25 | $tester->run_tests(); |
26 | } |