Lines Matching refs:set
16 set testdir [file dirname $argv0]
23 set sqlite_walsummary_mmap_incr 64
25 # How long, in seconds, to run each test for. If a test is set to run for
29 set seconds(walthread-1) 20
30 set seconds(walthread-2) 20
31 set seconds(walthread-3) 20
32 set seconds(walthread-4) 20
33 set seconds(walthread-5) 1
39 # command uses [vwait] to wait until it is set, then returns the value.
40 # In other words, this is a version of the [set VARNAME] command that
47 uplevel [list set $varname]
53 # set L {a b c}
54 # set x [lshift L]
59 set ret [lindex $L 0]
60 set L [lrange $L 1 end]
78 set A $args
80 set P(testname) [lshift A]
81 set P(seconds) 5
82 set P(init) ""
83 set P(threads) [list]
84 set P(processes) 0
85 set P(check) {
86 set ic [db eval "PRAGMA integrity_check"]
93 set a [lshift A]
96 set P(seconds) [lshift A]
100 set P(init) [lshift A]
104 set P(processes) [lshift A]
108 set P(check) [lshift A]
112 set name [lshift A]
113 set count [lshift A]
114 set prg [lshift A]
139 set name [lindex $T 0]
140 set count [lindex $T 1]
141 set prg [lindex $T 2]
143 for {set i 1} {$i <= $count} {incr i} {
144 set vars "
145 set E(pid) $i
146 set E(nthread) $count
147 set E(seconds) $P(seconds)
149 set program [string map [list %TEST% $prg %VARS% $vars] {
154 set ::usleep 0
155 after $ms {set ::usleep 1}
160 set ic [$db eval {PRAGMA integrity_check}]
170 set ::finished 0
171 after [expr $E(seconds) * 1000] {set ::finished 1}
174 set rc [catch { %TEST% } msg]
188 set report " Results:"
190 set name [lindex $T 0]
191 set count [lindex $T 1]
192 set prg [lindex $T 2]
194 set reslist [list]
195 for {set i 1} {$i <= $count} {incr i} {
196 set res [wait_for_var ::done($name,$i)]
206 set res ""
207 if {[catch $P(check) msg]} { set res $msg }
208 do_test $P(testname).check [list set {} $res] ""
217 set name [lindex $args 0]
259 set results [db eval {
293 set nRun 0
299 set nRun
302 set nRun 0
308 set nRun
336 set nRun 0
337 set nDel 0
358 set {} "[expr $nRun-$nDel] w, $nDel r"
362 set nRun 0
363 set nDel 0
383 set {} "[expr $nRun-$nDel] w, $nDel r"
397 set nextwrite $E(pid)
401 set rc [catch { db eval {PRAGMA wal_checkpoint} } msg]
409 set max 0
411 set max [db eval { SELECT max(cnt) FROM t1 }]
415 set sum1 [db eval { SELECT sum(cnt) FROM t1 }]
416 set sum2 [db eval { SELECT sum(sum1) FROM t1 }]
423 set {} ok
429 set c 0
430 set s1 0
431 set s2 0
458 set {} ok
466 set row 1
470 if {$row == 10} { set row 1 }
473 set {} ok