1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
use strict;
use warnings;
use Test::More;
use DBI;
use DBI::Const::GetInfoType;
use lib 't', '.';
require 'lib.pl';
$|= 1;
use vars qw($test_dsn $test_user $test_password);
my $dbh;
eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,
{
mysql_auto_reconnect => 1,
RaiseError => 1,
PrintError => 1,
AutoCommit => 1 });
};
if ($@) {
plan skip_all =>
"no database connection";
}
my $dbh2;
eval {$dbh2= DBI->connect($test_dsn, $test_user, $test_password);};
if ($@) {
plan skip_all =>
"no database connection";
}
plan tests => 5;
ok(defined $dbh, "Handle 1 Connected to database");
ok(defined $dbh2, "Handle 2 Connected to database");
#kill first db connection to trigger an auto reconnect
ok ($dbh2->do('kill ' . $dbh->{'mysql_thread_id'}));
#insert a temporary delay, try uncommenting this if it's not seg-faulting at first,
# one of my initial tests without this delay didn't seg fault
sleep 1;
#ping first dbh handle to trigger auto-reconnect
$dbh->ping;
ok ($dbh);
ok ($dbh2);
|
