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