1# 2# May you do good and not evil. 3# May you find forgiveness for yourself and forgive others. 4# May you share freely, never taking more than you give. 5# 6#*********************************************************************** 7# This file runs all tests. 8# 9# $Id: async.test,v 1.6 2006/02/14 10:48:40 danielk1977 Exp $ 10 11 12if {[catch {sqlite3async_enable}]} { 13 # The async logic is not built into this system 14 return 15} 16 17 18set testdir [file dirname $argv0] 19source $testdir/tester.tcl 20rename finish_test really_finish_test 21proc finish_test {} {} 22set ISQUICK 1 23 24set INCLUDE { 25 select1.test 26 select2.test 27 select3.test 28 select4.test 29 insert.test 30 insert2.test 31 insert3.test 32 trans.test 33} 34# set INCLUDE {select4.test} 35 36# Enable asynchronous IO. 37sqlite3async_enable 1 38 39rename do_test really_do_test 40proc do_test {name args} { 41 uplevel really_do_test async_io-$name $args 42 sqlite3async_halt idle 43 sqlite3async_start 44 sqlite3async_wait 45} 46 47foreach testfile [lsort -dictionary [glob $testdir/*.test]] { 48 set tail [file tail $testfile] 49 if {[lsearch -exact $INCLUDE $tail]<0} continue 50 source $testfile 51 catch {db close} 52} 53 54# Flush the write-queue and disable asynchronous IO. This should ensure 55# all allocated memory is cleaned up. 56sqlite3async_halt idle 57sqlite3async_start 58sqlite3async_wait 59sqlite3async_enable 0 60 61really_finish_test 62rename really_do_test do_test 63rename really_finish_test finish_test 64