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; |
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; |