blob: 668c3176556f9213937555cd69a07e18d91d183a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use t::lib::Test;
use Test::More tests => 6;
use Test::NoWarnings;
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');
|