Import SQLite 3.8.7.4.

third_party/sqlite/src/test/lock_common.tcl

 # 2010 April 14
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
@@ skipping 37 matching lines @@
     proc sql2 {sql} { code2 [list db2 eval $sql] }
     proc sql3 {sql} { code3 [list db3 eval $sql] }
   
     proc csql1 {sql} { list [catch { sql1 $sql } msg] $msg }
     proc csql2 {sql} { list [catch { sql2 $sql } msg] $msg }
     proc csql3 {sql} { list [catch { sql3 $sql } msg] $msg }
 
     uplevel set $varname $tn
     uplevel $script
 
-    code2 { db2 close }
-    code3 { db3 close }
+    catch { code2 { db2 close } }
+    catch { code3 { db3 close } }
     catch { close $::code2_chan }
     catch { close $::code3_chan }
     catch { db close }
   }
 }
 
 # Launch another testfixture process to be controlled by this one. A
 # channel name is returned that may be passed as the first argument to proc
 # 'testfixture' to execute a command. The child testfixture process is shut
 # down by closing the channel.
@@ skipping 95 matching lines @@
       } else {
         append script $line
         append script "\n"
       }
     }
   }]
   close $fd
   set main_loop_written 1
 }