1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00

DBD-SQLite: added a test; execute on inactive error should return undef, not 0

This commit is contained in:
Kenichi Ishigaki 2009-04-07 17:17:19 +00:00
parent e674c69e0f
commit 583abd817e

20
t/32_inactive_error.t Normal file
View file

@ -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;