t/10sqlite_common.t

   1 use strict;
   2 use lib qw( ./t );
   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         multi_fk_broken => 1,
  16     );
  17
  18     $tester->run_tests();
  19 }
  20
  21 END {
  22     unlink './t/sqlite_test';
  23 }