use strict;
use warnings;
use DBI;
use Test::More;
use Test::mysqld;
my $mysqld = Test::mysqld->new(
my_cnf => {
'skip-networking' => '',
},
) or plan skip_all => $Test::mysqld::errstr;
plan tests => 4;
my $base_dir = $mysqld->base_dir;
my $dsn = $mysqld->dsn;
is(
$dsn,
"DBI:mysql:dbname=test;mysql_socket=$base_dir/tmp/mysql.sock;user=root",
'check dsn',
);
my $dbh = DBI->connect($dsn);
ok($dbh, 'connect to mysqld');
local $? = 255; # dummy vale
undef $mysqld;
sleep 1; # just in case
is($?, 255, "\$? is left in tact");
ok(! -e "$base_dir/tmp/mysql.sock", "mysqld is down");