Import SQLite 3.10.2.

third_party/sqlite/src/test/bc_common.tcl

 
 
 
 proc bc_find_binaries {zCaption} {
   # Search for binaries to test against. Any executable files that match
   # our naming convention are assumed to be testfixture binaries to test
   # against.
   #
   set binaries [list]
-  set pattern "[file tail [info nameofexec]]?*"
+  set self [file tail [info nameofexec]]
+  set pattern "$self?*"
   if {$::tcl_platform(platform)=="windows"} {
     set pattern [string map {\.exe {}} $pattern]
   }
   foreach file [glob -nocomplain $pattern] {
+    if {$file==$self} continue
     if {[file executable $file] && [file isfile $file]} {lappend binaries $file}
   }
 
   if {[llength $binaries]==0} {
     puts "WARNING: No historical binaries to test against."
     puts "WARNING: Omitting backwards-compatibility tests"
   }
 
   foreach bin $binaries {
     puts -nonewline "Testing against $bin - "
@@ skipping 38 matching lines @@
   catch { code1 { db close } }
   catch { code2 { db close } }
   catch { close $::bc_chan }
 }
 
 proc do_all_bc_test {script} {
   foreach bin $::BC(binaries) {
     uplevel [list do_bc_test $bin $script]
   }
 }