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