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" 121
