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