mysql.t

#!/usr/bin/env perl
use DBI;
use Test::More tests => 3;

use strict;
use warnings;

my $options = {mysql_auto_reconnect => 1};

my $dbh = DBI->connect("dbi:mysql:", undef, undef, $options);

BAIL_OUT("MySQL connection failed: " . $DBI::errstr) unless $dbh;

my ($id) = $dbh->selectrow_array("SELECT CONNECTION_ID()");
like $id, qr/^\d+$/, "right connection id";

ok $dbh->do('KILL ?', undef, $id), "kill MySQL connection";

my ($value) = $dbh->selectrow_array("SELECT 42;");

is $value, 42, "reconnected";