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