use warnings;
use File::Path 'remove_tree';
-use Test::More;
-use Test::Exception;
+use DBI;
-sub ready {
- if (-d 't/sql') {
- remove_tree('t/sql');
- mkdir 't/sql';
- }
+sub dbh {
+ DBI->connect('dbi:SQLite::memory:', undef, undef, { RaiseError => 1 })
}
1;