OLD | NEW |
1 #!/usr/bin/tclsh | 1 #!/usr/bin/tclsh |
2 # | 2 # |
3 # Run this script to generate randomized test cases for the where7.test | 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 | 4 # script. The output will need to be manually copied and pasted into |
5 # the where7.test script. | 5 # the where7.test script. |
6 # | 6 # |
7 puts "do_test where7-2.1 \173" | 7 puts "do_test where7-2.1 \173" |
8 puts " db eval \173" | 8 puts " db eval \173" |
9 puts " CREATE TABLE t2(a INTEGER PRIMARY KEY,b,c,d,e,f,g);" | 9 puts " CREATE TABLE t2(a INTEGER PRIMARY KEY,b,c,d,e,f,g);" |
10 set NA 100 | 10 set NA 100 |
(...skipping 100 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
111 puts "\175 {$result scan 0 sort 0}" | 111 puts "\175 {$result scan 0 sort 0}" |
112 puts "do_test where7-2.$i.2 \173" | 112 puts "do_test where7-2.$i.2 \173" |
113 puts " count_steps_sort \173" | 113 puts " count_steps_sort \173" |
114 puts " SELECT a FROM t3" | 114 puts " SELECT a FROM t3" |
115 set wc [join $w "\n OR "] | 115 set wc [join $w "\n OR "] |
116 puts " WHERE $wc" | 116 puts " WHERE $wc" |
117 puts " \175" | 117 puts " \175" |
118 puts "\175 {$result scan 0 sort 0}" | 118 puts "\175 {$result scan 0 sort 0}" |
119 } | 119 } |
120 puts "finish_test" | 120 puts "finish_test" |
OLD | NEW |