add tests for ping on disconnected handle, issue perl5-dbi#306

Author: Aaron Trevena

t/10connect.t

@@ -62,6 +62,8 @@ my $info_hashref = $dbh->{mysql_dbd_stats};
 
 ok($dbh->disconnect(), 'Disconnected');
 
+ok( ! $dbh->ping(), 'dbh is disconnected and did not segv');
+
 # dbi docs state:
 # The username and password can also be specified using the attributes
 # Username and Password, in which case they take precedence over the $username

t/15reconnect.t

@@ -44,6 +44,8 @@ ok($dbh->disconnect(), "disconnecting active handle");
 
 ok(!$dbh->{Active}, "checking for inactive handle");
 
+ok( ! $dbh->ping(), 'dbh is disconnected and did not segv');
+
 ok(!$dbh->do("SELECT 1"), "implicitly reconnecting handle with 'do'");
 
 ok(!$dbh->{Active}, "checking for reactivated handle");