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.
6 #***********************************************************************
7 # This file runs all tests.
9 # $Id: async.test,v 1.14 2008/09/15 14:47:21 danielk1977 Exp $
11 set testdir [file dirname $argv0]
12 source $testdir/tester.tcl
14 if {[catch {sqlite3async_enable}]} {
15 # The async logic is not built into this system
20 rename finish_test really_finish_test
42 # Enable asynchronous IO.
45 rename do_test really_do_test
46 proc do_test {name args} {
47 uplevel really_do_test async_io-$name $args
49 sqlite3async_halt idle
51 sqlite3async_halt never
54 foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
55 set tail [file tail $testfile]
56 if {[lsearch -exact $INCLUDE $tail]<0} continue
59 # Make sure everything is flushed through. This is because [source]ing
60 # the next test file will delete the database file on disk (using
61 # [file delete]). If the asynchronous backend still has the file
62 # open, it will become confused.
64 sqlite3async_halt idle
67 sqlite3async_halt never
70 # Flush the write-queue and disable asynchronous IO. This should ensure
71 # all allocated memory is cleaned up.
72 set sqlite3async_trace 1
73 sqlite3async_halt idle
76 sqlite3async_halt never
78 set sqlite3async_trace 0
81 rename really_do_test do_test
82 rename really_finish_test finish_test