1use strict;
2use lib qw(t/backcompat/0.04006/lib);
3use dbixcsl_common_tests;
4use Test::More;
5plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
6    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
7
8eval { require DBD::SQLite };
9my $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
23END {
24    unlink './t/sqlite_test' if $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
25}
26