t/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    unlink 'db.db' if -e 'db.db';
  12    if (-d 't/sql') {
  13      remove_tree('t/sql');
  14      mkdir 't/sql';
  15    }
  16 }
  17
  18 1;