Lines Matching refs:set
16 set testdir [file join [file dirname [info script]] .. .. test]
26 set ::NROW 1000
27 set ::NDEL 10
28 set ::NSELECT 100
31 set ::NROW 100
32 set ::NSELECT 10
36 if {$module=="rtree_i32"} {set etype INT} {set etype REAL}
37 for {set nDim 1} {$nDim <= 5} {incr nDim} {
40 set cols [list]
44 set cols [join [lrange $cols 0 [expr {$nDim*2-1}]] ", "]
53 for {set ii 0} {$ii < $::NROW} {incr ii} {
55 set values [list]
56 for {set jj 0} {$jj<$nDim*2} {incr jj} {
59 set values [join $values ,]
62 set rc [catch {db eval "INSERT INTO t1 VALUES($ii, $values)"}]
75 set t1 [execsql {SELECT * FROM t1 ORDER BY ii}]
76 set t2 [execsql {SELECT * FROM t2 ORDER BY ii}]
77 set rc [expr {$t1 eq $t2}]
82 set rc
87 set OPS [list < > <= >= =]
88 for {set ii 0} {$ii < $::NSELECT} {incr ii} {
90 set where [list]
92 set colidx [expr int(rand()*($nDim*2+1))-1]
94 set col ii
96 set col "c$colidx"
98 set op [lindex $OPS [expr int(rand()*[llength $OPS])]]
99 set val [expr int(rand()*1000)]
102 set where [join $where " AND "]
104 set t1 [execsql "SELECT * FROM t1 WHERE $where ORDER BY ii"]
105 set t2 [execsql "SELECT * FROM t2 WHERE $where ORDER BY ii"]
106 set rc [expr {$t1 eq $t2}]
113 #set t1 [execsql "SELECT * FROM t1 WHERE $where ORDER BY ii"]
116 set rc
120 for {set ii 0} {$ii < $::NROW} {incr ii $::NDEL} {
126 set t1 [execsql {SELECT * FROM t1 ORDER BY ii}]
127 set t2 [execsql {SELECT * FROM t2 ORDER BY ii}]
128 set rc [expr {$t1 eq $t2}]
133 set rc