|
sl@0
|
1 |
#
|
|
sl@0
|
2 |
# May you do good and not evil.
|
|
sl@0
|
3 |
# May you find forgiveness for yourself and forgive others.
|
|
sl@0
|
4 |
# May you share freely, never taking more than you give.
|
|
sl@0
|
5 |
#
|
|
sl@0
|
6 |
#***********************************************************************
|
|
sl@0
|
7 |
# This file runs all tests.
|
|
sl@0
|
8 |
#
|
|
sl@0
|
9 |
# $Id: async.test,v 1.14 2008/09/15 14:47:21 danielk1977 Exp $
|
|
sl@0
|
10 |
|
|
sl@0
|
11 |
set testdir [file dirname $argv0]
|
|
sl@0
|
12 |
source $testdir/tester.tcl
|
|
sl@0
|
13 |
|
|
sl@0
|
14 |
if {[catch {sqlite3async_enable}]} {
|
|
sl@0
|
15 |
# The async logic is not built into this system
|
|
sl@0
|
16 |
finish_test
|
|
sl@0
|
17 |
return
|
|
sl@0
|
18 |
}
|
|
sl@0
|
19 |
|
|
sl@0
|
20 |
rename finish_test really_finish_test
|
|
sl@0
|
21 |
proc finish_test {} {
|
|
sl@0
|
22 |
catch {db close}
|
|
sl@0
|
23 |
catch {db2 close}
|
|
sl@0
|
24 |
catch {db3 close}
|
|
sl@0
|
25 |
}
|
|
sl@0
|
26 |
set ISQUICK 1
|
|
sl@0
|
27 |
|
|
sl@0
|
28 |
set INCLUDE {
|
|
sl@0
|
29 |
insert.test
|
|
sl@0
|
30 |
insert2.test
|
|
sl@0
|
31 |
insert3.test
|
|
sl@0
|
32 |
lock.test
|
|
sl@0
|
33 |
lock2.test
|
|
sl@0
|
34 |
lock3.test
|
|
sl@0
|
35 |
select1.test
|
|
sl@0
|
36 |
select2.test
|
|
sl@0
|
37 |
select3.test
|
|
sl@0
|
38 |
select4.test
|
|
sl@0
|
39 |
trans.test
|
|
sl@0
|
40 |
}
|
|
sl@0
|
41 |
|
|
sl@0
|
42 |
# Enable asynchronous IO.
|
|
sl@0
|
43 |
sqlite3async_enable 1
|
|
sl@0
|
44 |
|
|
sl@0
|
45 |
rename do_test really_do_test
|
|
sl@0
|
46 |
proc do_test {name args} {
|
|
sl@0
|
47 |
uplevel really_do_test async_io-$name $args
|
|
sl@0
|
48 |
sqlite3async_start
|
|
sl@0
|
49 |
sqlite3async_halt idle
|
|
sl@0
|
50 |
sqlite3async_wait
|
|
sl@0
|
51 |
sqlite3async_halt never
|
|
sl@0
|
52 |
}
|
|
sl@0
|
53 |
|
|
sl@0
|
54 |
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
|
|
sl@0
|
55 |
set tail [file tail $testfile]
|
|
sl@0
|
56 |
if {[lsearch -exact $INCLUDE $tail]<0} continue
|
|
sl@0
|
57 |
source $testfile
|
|
sl@0
|
58 |
|
|
sl@0
|
59 |
# Make sure everything is flushed through. This is because [source]ing
|
|
sl@0
|
60 |
# the next test file will delete the database file on disk (using
|
|
sl@0
|
61 |
# [file delete]). If the asynchronous backend still has the file
|
|
sl@0
|
62 |
# open, it will become confused.
|
|
sl@0
|
63 |
#
|
|
sl@0
|
64 |
sqlite3async_halt idle
|
|
sl@0
|
65 |
sqlite3async_start
|
|
sl@0
|
66 |
sqlite3async_wait
|
|
sl@0
|
67 |
sqlite3async_halt never
|
|
sl@0
|
68 |
}
|
|
sl@0
|
69 |
|
|
sl@0
|
70 |
# Flush the write-queue and disable asynchronous IO. This should ensure
|
|
sl@0
|
71 |
# all allocated memory is cleaned up.
|
|
sl@0
|
72 |
set sqlite3async_trace 1
|
|
sl@0
|
73 |
sqlite3async_halt idle
|
|
sl@0
|
74 |
sqlite3async_start
|
|
sl@0
|
75 |
sqlite3async_wait
|
|
sl@0
|
76 |
sqlite3async_halt never
|
|
sl@0
|
77 |
sqlite3async_enable 0
|
|
sl@0
|
78 |
set sqlite3async_trace 0
|
|
sl@0
|
79 |
|
|
sl@0
|
80 |
really_finish_test
|
|
sl@0
|
81 |
rename really_do_test do_test
|
|
sl@0
|
82 |
rename really_finish_test finish_test
|