t/no-component-lib/DBICDHTest.pm

   1 package DBICDHTest;
   2
   3 use strict;
   4 use warnings;
   5
   6 use File::Path 'remove_tree';
   7 use Test::More;
   8 use Test::Exception;
   9
  10 sub ready {
  11    if (-d 't/sql') {
  12      remove_tree('t/sql');
  13      mkdir 't/sql';
  14    }
  15 }
  16
  17 sub dbh {
  18   DBI->connect('dbi:SQLite::memory:', undef, undef, { RaiseError => 1 })
  19 }
  20
  21 1;