simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 22:28:47 -04:00
Code Issues Releases Wiki Activity

DBD-SQLite: added a regression test reported by #27553 (this has already been fixed)

Browse source
This commit is contained in:
Kenichi Ishigaki 2009-04-05 02:48:53 +00:00
parent 1ce0a42724
commit 5f2071dfa2
1 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
t/rt_27553_prepared_cache_and_analyze.t Normal file
View file

@ -0,0 +1,25 @@
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More tests => 5;
use t::lib::Test;
my $dbh = connect_ok( RaiseError => 1, AutoCommit => 1 );
$dbh->do("CREATE TABLE f (f1, f2, f3)");
my $sth = $dbh->prepare_cached("SELECT f.f1, f.* FROM f");
ok($sth);
$dbh->do("ANALYZE"); # invalidate prepared statement handles
my $sth2 = $dbh->prepare_cached("SELECT f.f1, f.* FROM f");
ok($sth2);
my $ret = eval { $sth2->execute(); "ok" };
ok !$@;
is($ret, 'ok');