use strict;
use warnings;

use DBI;
use Test::More;
use Test::mysqld;
use Test::SharedFork;

my $mysqld = Test::mysqld->new(
    my_cnf => {
        'skip-networking' => '',
    },
) or plan skip_all => $Test::mysqld::errstr;

plan tests => 3;

ok(DBI->connect($mysqld->dsn), 'check if db is ready');

unless (my $pid = Test::SharedFork::fork) {
    die "fork failed:$!"
        unless defined $pid;
    # child process
    ok(DBI->connect($mysqld->dsn), 'connect from child process');
    exit 0;
}

1 while wait == -1;

ok(DBI->connect($mysqld->dsn), 'connect after child exit');