##    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.##***********************************************************************# This file runs all tests.## $Id: quick.test,v 1.43 2006/02/14 10:48:40 danielk1977 Exp $proc lshift {lvar} {  upvar $lvar l  set ret [lindex $l 0]  set l [lrange $l 1 end]  return $ret}while {[set arg [lshift argv]] != ""} {  switch -- $arg {    -sharedpagercache {      sqlite3_enable_shared_cache 1    }    default {      set argv [linsert $argv 0 $arg]      break    }  }}set testdir [file dirname $argv0]source $testdir/tester.tclrename finish_test really_finish_testproc finish_test {} {}set ISQUICK 1set EXCLUDE {  all.test  async.test  async2.test  btree2.test  btree3.test  btree4.test  btree5.test  btree6.test  corrupt.test  crash.test  malloc.test  malloc2.test  malloc3.test  memleak.test  misuse.test  quick.test  autovacuum_crash.test  btree8.test  utf16.test  shared_err.test}if {[sqlite3 -has-codec]} {  # lappend EXCLUDE \  #  conflict.test}foreach testfile [lsort -dictionary [glob $testdir/*.test]] {  set tail [file tail $testfile]  if {[lsearch -exact $EXCLUDE $tail]>=0} continue  source $testfile  catch {db close}  if {$sqlite_open_file_count>0} {    puts "$tail did not close all files: $sqlite_open_file_count"    incr nErr    lappend ::failList $tail  }}source $testdir/misuse.testset sqlite_open_file_count 0really_finish_test