diff options
| author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2012-09-24 10:15:50 +0000 |
|---|---|---|
| committer | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-09-26 13:46:46 +0000 |
| commit | 485b97be9f2f2abf5a40923b5fd85f75714a8c02 (patch) | |
| tree | ca05cb0ecf3828d909a898c3e5805804a0aff5f8 /t/rt_64177_ping_wipes_out_the_errstr.t | |
| download | perl-dbd-sqlite-tarball-baserock/morph.tar.gz | |
Imported from /srv/lorry/lorry-area/perl-dbd-sqlite-tarball/DBD-SQLite-1.38_01.tar.gz.HEADDBD-SQLite-1.38_01masterbaserock/morph
Diffstat (limited to 't/rt_64177_ping_wipes_out_the_errstr.t')
| -rw-r--r-- | t/rt_64177_ping_wipes_out_the_errstr.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/t/rt_64177_ping_wipes_out_the_errstr.t b/t/rt_64177_ping_wipes_out_the_errstr.t new file mode 100644 index 0000000..db63363 --- /dev/null +++ b/t/rt_64177_ping_wipes_out_the_errstr.t @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +BEGIN { + $| = 1; + $^W = 1; +} + +use t::lib::Test; +use Test::More tests => 8; +use Test::NoWarnings; + +my $dbh = connect_ok(RaiseError => 1, PrintError => 0); +eval { $dbh->do('foobar') }; +ok $@, "raised error"; +ok $dbh->err, "has err"; +ok $dbh->errstr, "has errstr"; +ok $dbh->ping, "ping succeeded"; +ok $dbh->err, "err is not wiped out"; +ok $dbh->errstr, "errstr is not wiped out"; |