t/backcompat/0.04006/10sqlite_common.t

   1 use strict;
   2 use lib qw(t/backcompat/0.04006/lib);
   3 use dbixcsl_common_tests;
   4 use Test::More;
   5 plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
   6     unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
   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' if $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
  25 }