[DBD::Pg 2/2] Remove more old ping() calls from tests
[email protected] Fri, 2 Jan 2015 05:04:14 +0000
| Newsgroups | perl.dbd.pg.changes |
|---|---|
| Message-ID | <[email protected]> |
Committed by Greg Sabino Mullane <[email protected]> Subject: [DBD::Pg 2/2] Remove more old ping() calls from tests --- t/02attribs.t | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/t/02attribs.t b/t/02attribs.t index 21533cd..9c90b15 100644 --- a/t/02attribs.t +++ b/t/02attribs.t @@ -18,7 +18,7 @@ my ($helpconnect,$connerror,$dbh) = connect_database(); if (! $dbh) { plan skip_all => 'Connection to database failed, cannot continue testing'; } -plan tests => 258; +plan tests => 259; isnt ($dbh, undef, 'Connect to database for handle attributes testing'); @@ -1657,10 +1657,6 @@ SKIP: { $t=qq{Ping fails after the child has exited ("InactiveDestroy" = $destroy)}; is ( $dbh->ping(), 0, $t); - $t='Failed ping returns a SQLSTATE code of 08000'; - my $state = $dbh->state(); - is ($state, '08000', $t); - $t=qq{pg_ping gives an error code of -2 after the child has exited ("InactiveDestroy" = $destroy)}; is ( $dbh->pg_ping(), -2,$t); } -- 1.8.4