package xt::Utils::mysql;
use strict;
use warnings;
use Test::mysqld;
use Test::More;
use t::Utils;
my $mysql = Test::mysqld->new
or plan skip_all => $Test::mysqld::errstr;
{
no warnings "redefine";
sub t::Utils::setup {
my ($class, $table) = @_;
my $dbh = DBI->connect($mysql->dsn( dbname => "test" ));
my $schema = t::Utils::_get_schema($dbh, $table);
$schema =~ s/CREATE TABLE/CREATE TABLE IF NOT EXISTS/;
$dbh->do($schema);
$dbh;
}
}
1;