Flush the TCL statement cache before each lock_status pragma. (CVS 2270)

FossilOrigin-Name: 8beae3ff8cbe23f20eb242187edbdb72133a24c3

manifest

@@ -1,5 +1,5 @@
-C Change\sthe\sTCL\sinterface\sso\sthat\sit\scan\scache\sVMs\sand\sreuse\sthem\swithout\nrecompiling.\s\sBut\sfor\snow\sleave\sthe\scache\sturned\soff\sby\sdefault.\s(CVS\s2269)
-D 2005-01-24T00:28:43
+C Flush\sthe\sTCL\sstatement\scache\sbefore\seach\slock_status\spragma.\s(CVS\s2270)
+D 2005-01-24T01:38:33
 F Makefile.in ffd81f5e926d40b457071b4de8d7c1fa18f39b5a
 F Makefile.linux-gcc a9e5a0d309fa7c38e7c14d3ecf7690879d3a5457
 F README a01693e454a00cc117967e3f9fdab2d4d52e9bc1
@@ -86,7 +86,7 @@ F tclinstaller.tcl 36478c3bbfc5b93ceac42d94e3c736937b808432
 F test/all.test 7f0988442ab811dfa41793b5b550f5828ce316f3
 F test/alter.test 95c57a4f461fa81293e0dccef7f83889aadb169a
 F test/attach.test 4f83c2edc418ca2e63c6ac8678f912234732e9a7
-F test/attach2.test eeb987770f4dbe68bd29afdbc2e8cff0142e6eb5
+F test/attach2.test 6f3a3a3a7f5be40388dd4d805e0e0712718dca9d
 F test/attach3.test c05c70b933afbde0901dab9da3e66ee842c09f38
 F test/auth.test 559e0816b8100740624ebb0ab7aab05f5c92831c
 F test/autoinc.test c6daf10ffce8a898cd375b4a71615a741a6029d0
@@ -271,7 +271,7 @@ F www/tclsqlite.tcl e73f8f8e5f20e8277619433f7970060ab01088fc
 F www/vdbe.tcl 095f106d93875c94b47367384ebc870517431618
 F www/version3.tcl 092a01f5ef430d2c4acc0ae558d74c4bb89638a0
 F www/whentouse.tcl 3e522a06ad41992023c80ca29a048ae2331ca5bd
-P 0778383b6f9e6f58202ca20e74b399f8dce90ec4
-R ba8450c2d46ae1450997886c0dc42fa3
+P 8db6bfef52c1f35afdb8b60cba34f6807a5917f4
+R 04f78ef84e429eb28cb91e619e88c53e
 U drh
-Z 7261e4a7ba6b87590bc4e2e701cce410
+Z 1ed3d448d66b352d27841d237b7b8939

manifest.uuid

@@ -1 +1 @@
-8db6bfef52c1f35afdb8b60cba34f6807a5917f4
+8beae3ff8cbe23f20eb242187edbdb72133a24c3

test/attach2.test

@@ -12,7 +12,7 @@
 # focus of this script is testing the ATTACH and DETACH commands
 # and related functionality.
 #
-# $Id: attach2.test,v 1.30 2004/11/23 10:13:03 danielk1977 Exp $
+# $Id: attach2.test,v 1.31 2005/01/24 01:38:33 drh Exp $
 #
 
 set testdir [file dirname $argv0]
@@ -153,6 +153,7 @@ for {set i 2} {$i<=15} {incr i} {
 #
 proc lock_status {testnum db expected_result} {
   do_test attach2-$testnum [subst {
+    $db cache flush  ;# The lock_status pragma should not be cached
     execsql {PRAGMA lock_status} $db
   }] $expected_result
 }