##    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: async.test,v 1.7 2006/03/19 13:00:25 drh Exp $if {[catch {sqlite3async_enable}]} {  # The async logic is not built into this system  return}set testdir [file dirname $argv0]source $testdir/tester.tclrename finish_test really_finish_testproc finish_test {} {}set ISQUICK 1set INCLUDE {  select1.test  select2.test  select3.test  select4.test  insert.test  insert2.test  insert3.test  trans.test}# set INCLUDE {select4.test}# Enable asynchronous IO.sqlite3async_enable 1rename do_test really_do_testproc do_test {name args} {  uplevel really_do_test async_io-$name $args  sqlite3async_halt idle  sqlite3async_start  sqlite3async_wait}foreach testfile [lsort -dictionary [glob $testdir/*.test]] {  set tail [file tail $testfile]  if {[lsearch -exact $INCLUDE $tail]<0} continue  source $testfile  catch {db close}}# Flush the write-queue and disable asynchronous IO. This should ensure# all allocated memory is cleaned up.set sqlite3async_trace 1sqlite3async_halt idlesqlite3async_startsqlite3async_waitsqlite3async_enable 0set sqlite3async_trace 0really_finish_testrename really_do_test do_testrename really_finish_test finish_test