Return to make-where7.tcl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/make-where7.tcl, revision 1.1

1.1     ! misho       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"