xref: /sqlite-3.40.0/test/async.test (revision 97bbdc0a) 
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.4 2006/02/13 18:35:06 drh 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 [lrange $INCLUDE 0 0]
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
55set sqlite_open_file_count 0
56really_finish_test
57sqlite3async_halt now
58sqlite3async_wait
59sqlite3async_enable 0
60rename really_do_test do_test
61rename really_finish_test finish_test
62