diff --git a/t/32_inactive_error.t b/t/32_inactive_error.t new file mode 100644 index 0000000..311aa41 --- /dev/null +++ b/t/32_inactive_error.t @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +BEGIN { + $| = 1; + $^W = 1; +} + +use Test::More tests => 2; +use t::lib::Test; + +my $dbh = connect_ok( PrintError => 0, RaiseError => 1 ); + +my $sth = $dbh->prepare('CREATE TABLE foo (f)'); + $dbh->disconnect; + +# attempt to execute on inactive database handle +my $ret = eval { $sth->execute; }; + +ok !defined $ret;