From 5f2071dfa22d6c99550432e7c0dce82f16c8a67a Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Sun, 5 Apr 2009 02:48:53 +0000
Subject: [PATCH] DBD-SQLite: added a regression test reported by #27553 (this
 has already been fixed)

---
 t/rt_27553_prepared_cache_and_analyze.t | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 t/rt_27553_prepared_cache_and_analyze.t

diff --git a/t/rt_27553_prepared_cache_and_analyze.t b/t/rt_27553_prepared_cache_and_analyze.t
new file mode 100644
index 0000000..0da198b
--- /dev/null
+++ b/t/rt_27553_prepared_cache_and_analyze.t
@@ -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');