[dbsrgits/DBIx-Class-DeploymentHandler.git] / t / lib / DBICDHTest.pm

package DBICDHTest;

use strict;
use warnings;

use File::Path 'remove_tree';
use Test::More;
use Test::Exception;

sub ready {
   unlink 'db.db' if -e 'db.db';
   if (-d 't/sql') {
     remove_tree('t/sql');
     mkdir 't/sql';
   }
}

1;
Commit	Line	Data
02d58ac0	1	package DBICDHTest;
	2
	3	use strict;
	4	use warnings;
	5
	6	use File::Path 'remove_tree';
fe3b6dff	7	use Test::More;
fe3b6dff	8	use Test::Exception;
02d58ac0	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
02d58ac0	18	1;