Commit | Line | Data |
9a95164d |
1 | use strict; |
3c10a10f |
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}; |
9a95164d |
7 | |
8 | eval { require DBD::SQLite }; |
9 | my $class = $@ ? 'SQLite2' : 'SQLite'; |
10 | |
11 | { |
12 | my $tester = dbixcsl_common_tests->new( |
13 | vendor => 'SQLite', |
14 | auto_inc_pk => 'INTEGER NOT NULL PRIMARY KEY', |
15 | dsn => "dbi:$class:dbname=./t/sqlite_test", |
16 | user => '', |
17 | password => '', |
18 | ); |
19 | |
20 | $tester->run_tests(); |
21 | } |
22 | |
23 | END { |
24 | unlink './t/sqlite_test'; |
25 | } |