3 # The author disclaims copyright to this source code. In place of
4 # a legal notice, here is a blessing:
6 # May you do good and not evil.
7 # May you find forgiveness for yourself and forgive others.
8 # May you share freely, never taking more than you give.
10 #***********************************************************************
11 # This file implements regression tests for SQLite library. The
12 # focus of this file is testing the CREATE INDEX statement.
15 set testdir [file dirname $argv0]
16 source $testdir/tester.tcl
18 # Create a table with a large number of columns
21 set sql {CREATE TABLE t1(}
22 for {set i 1} {$i<1000} {incr i} {
29 set sql {INSERT INTO t1 VALUES(}
30 for {set i 1} {$i<1000} {incr i} {
37 execsql {SELECT c123 FROM t1}
41 for {set j 1} {$j<=100} {incr j} {
42 set sql {INSERT INTO t1 VALUES(}
43 for {set i 1} {$i<1000} {incr i} {
44 append sql [expr {$j*10000+$i}],
46 append sql "[expr {$j*10000+1000}]);"
50 execsql {SELECT count(*) FROM t1}
53 execsql {SELECT round(sum(c1000)) FROM t1}
56 # Create indices with many columns
59 set sql "CREATE INDEX t1i1 ON t1("
60 for {set i 1} {$i<1000} {incr i} {
68 execsql {EXPLAIN SELECT c9 FROM t1 ORDER BY c1, c2, c3, c4, c5}
70 execsql {SELECT c9 FROM t1 ORDER BY c1, c2, c3, c4, c5, c6 LIMIT 5}
71 } {9 10009 20009 30009 40009}