wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 #!/usr/bin/tclsh
2 #
3 # Run this script to generate randomized test cases for the where7.test
4 # script. The output will need to be manually copied and pasted into
5 # the where7.test script.
6 #
7 puts "do_test where7-2.1 \173"
8 puts " db eval \173"
9 puts " CREATE TABLE t2(a INTEGER PRIMARY KEY,b,c,d,e,f,g);"
10 set NA 100
11 for {set a 1} {$a<=$NA} {incr a} {
12 set b [expr {$a*11}]
13 set div3 [expr {int(($a+2)/3)}]
14 set c [expr {$div3*1001}]
15 set d [expr {$a*1.001}]
16 set e [expr {$div3*100.1}]
17 set x [expr {$a%26}]
18 set f [string range {abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz} \
19 $x [expr {$x+8}]]
20 set div5 [expr {int(($a+7)/5)}]
21 set x [expr {$div5%26}]
22 set g [string range {zyxwvutsrqponmlkjihgfedcbazyxwvutsrqponmlkjihgfedcba} \
23 $x [expr {$x+6}]]
24 puts " INSERT INTO t2 VALUES($a,$b,$c,$d,$e,'$f','$g');"
25 lappend fidx($f) $a
26 lappend gidx($g) $a
27 set gof($a) $g
28 set fof($a) $f
29  
30 set expr "a=$a"
31 set term($expr) $a
32 set expr "((a BETWEEN [expr {$a-1}] AND [expr {$a+1}]) AND a!=$a)"
33 set x {}
34 if {$a>1} {set x [expr {$a-1}]}
35 if {$a<$NA} {lappend x [expr {$a+1}]}
36 set term($expr) $x
37 set expr "b=$b"
38 set term($expr) $a
39 set expr "b=[expr {$a*11+3}]"
40 set term($expr) {}
41 set expr "c=$c"
42 lappend term($expr) $a
43 set expr "(d>=$a.0 AND d<[expr {$a+1.0}] AND d NOT NULL)"
44 lappend term($expr) $a
45 set expr "f='$f'"
46 lappend term($expr) $a
47 set expr \
48 "(f GLOB '?[string range $f 1 4]*' AND f GLOB '[string range $f 0 3]*')"
49 lappend term($expr) $a
50 set expr "(g='$g' AND f GLOB '[string range $f 0 4]*')"
51 lappend term($expr) $a
52 }
53 puts " CREATE INDEX t2b ON t2(b);"
54 puts " CREATE INDEX t2c ON t2(c);"
55 puts " CREATE INDEX t2d ON t2(d);"
56 puts " CREATE INDEX t2e ON t2(e);"
57 puts " CREATE INDEX t2f ON t2(f);"
58 puts " CREATE INDEX t2g ON t2(g);"
59 puts " CREATE TABLE t3(a INTEGER PRIMARY KEY,b,c,d,e,f,g);"
60 puts " INSERT INTO t3 SELECT * FROM t2;"
61 puts " CREATE INDEX t3b ON t3(b,c);"
62 puts " CREATE INDEX t3c ON t3(c,e);"
63 puts " CREATE INDEX t3d ON t3(d,g);"
64 puts " CREATE INDEX t3e ON t3(e,f,g);"
65 puts " CREATE INDEX t3f ON t3(f,b,d,c);"
66 puts " CREATE INDEX t3g ON t3(g,f);"
67  
68 puts " \175"
69 puts "\175 {}"
70  
71 set term(b<0) {}
72 set term(1000000<b) {}
73 set term(c<=10) {}
74 set term(c>=[expr {int(($NA+2)/3)*1001+1}]) {}
75 set term(d<0.0) {}
76 set term(d>1e10) {}
77 set expr {e IS NULL}
78 set term($expr) {}
79 set expr {f IS NULL}
80 set term($expr) {}
81 set expr {g IS NULL}
82 set term($expr) {}
83  
84 set NT 1000
85 set termlist [array names term]
86 set nterm [llength $termlist]
87 for {set i 2} {$i<=$NT+1} {incr i} {
88 set n [expr {int(rand()*10)+2}]
89 set w {}
90 unset -nocomplain r
91 for {set j 0} {$j<$n} {incr j} {
92 set k [expr {int(rand()*$nterm)}]
93 set t [lindex $termlist $k]
94 lappend w $t
95 foreach a $term($t) {
96 set r($a) 1
97 }
98 }
99 if {[info exists seen($w)]} {
100 incr i -1
101 continue
102 }
103 set seen($w) 1
104 set result [lsort -int [array names r]]
105 puts "do_test where7-2.$i.1 \173"
106 puts " count_steps_sort \173"
107 puts " SELECT a FROM t2"
108 set wc [join $w "\n OR "]
109 puts " WHERE $wc"
110 puts " \175"
111 puts "\175 {$result scan 0 sort 0}"
112 puts "do_test where7-2.$i.2 \173"
113 puts " count_steps_sort \173"
114 puts " SELECT a FROM t3"
115 set wc [join $w "\n OR "]
116 puts " WHERE $wc"
117 puts " \175"
118 puts "\175 {$result scan 0 sort 0}"
119 }
120 puts "finish_test"