use strict;
use 5.010;
package FusqlFS::Backend::MySQL::Test;
use FusqlFS::Version;
our $VERSION = $FusqlFS::Version::VERSION;
our $fusqlh;
sub dbi_connect
{
use DBI;
my $debug = 0;
DBI->connect('DBI:mysql:', 'root', '', { PrintError => $debug, PrintWarn => $debug });
}
sub set_up
{
my $dbh = dbi_connect();
return unless $dbh;
$dbh->do("DROP DATABASE IF EXISTS fusqlfs_test");
return unless $dbh->do("CREATE DATABASE fusqlfs_test");
$dbh->disconnect;
use FusqlFS::Backend::MySQL;
$fusqlh = FusqlFS::Backend::MySQL->new(host => '', port => '', database => 'fusqlfs_test', user => 'root', password => '');
}
sub tear_down
{
$fusqlh->{dbh}->disconnect();
$fusqlh->destroy();
my $dbh = dbi_connect();
$dbh->do("DROP DATABASE IF EXISTS fusqlfs_test");
$dbh->disconnect;
}
1;