127 lines
3.0 KiB
Plaintext
127 lines
3.0 KiB
Plaintext
# 2015 Nov 26
|
|
#
|
|
# The author disclaims copyright to this source code. In place of
|
|
# a legal notice, here is a blessing:
|
|
#
|
|
# May you do good and not evil.
|
|
# May you find forgiveness for yourself and forgive others.
|
|
# May you share freely, never taking more than you give.
|
|
#
|
|
#***********************************************************************
|
|
# This file implements regression tests for SQLite library. Specifically,
|
|
# it tests the sqlite3_index_info.colUsed variable is set correctly.
|
|
#
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
set testprefix vtabI
|
|
|
|
ifcapable !vtab {
|
|
finish_test
|
|
return
|
|
}
|
|
|
|
register_echo_module db
|
|
|
|
do_execsql_test 1.0 {
|
|
CREATE TABLE t1(a, b, c, d, e);
|
|
CREATE VIRTUAL TABLE e1 USING echo(t1);
|
|
}
|
|
|
|
foreach {tn query filter} {
|
|
1 {SELECT * FROM e1}
|
|
{SELECT rowid, a, b, c, d, e FROM 't1'}
|
|
|
|
2 {SELECT a, b FROM e1}
|
|
{SELECT rowid, a, b, NULL, NULL, NULL FROM 't1'}
|
|
|
|
3 {SELECT count(*) FROM e1 GROUP BY b}
|
|
{SELECT rowid, NULL, b, NULL, NULL, NULL FROM 't1'}
|
|
|
|
4 {SELECT count(*) FROM e1 GROUP BY b HAVING a=?}
|
|
{SELECT rowid, a, b, NULL, NULL, NULL FROM 't1'}
|
|
|
|
5 {SELECT a FROM e1 WHERE c=?}
|
|
{SELECT rowid, a, NULL, c, NULL, NULL FROM 't1'}
|
|
|
|
6 {SELECT a FROM e1 ORDER BY e}
|
|
{SELECT rowid, a, NULL, NULL, NULL, e FROM 't1'}
|
|
|
|
7 {SELECT a FROM e1 ORDER BY e, d}
|
|
{SELECT rowid, a, NULL, NULL, d, e FROM 't1'}
|
|
} {
|
|
do_test 1.$tn {
|
|
set ::echo_module [list]
|
|
execsql $query
|
|
set idx [lsearch -exact $::echo_module xFilter]
|
|
lindex $::echo_module [expr $idx+1]
|
|
} $filter
|
|
}
|
|
|
|
#-------------------------------------------------------------------------
|
|
# Tests with a table with more than 64 columns.
|
|
#
|
|
proc all_col_list {} {
|
|
set L [list]
|
|
for {set i 1} {$i <= 100} {incr i} { lappend L "c$i" }
|
|
set L
|
|
}
|
|
|
|
proc part_col_list {cols} {
|
|
set L [list]
|
|
for {set i 1} {$i <= 100} {incr i} {
|
|
set c "c$i"
|
|
if {[lsearch $cols $c]>=0} {
|
|
lappend L "c$i"
|
|
} else {
|
|
lappend L NULL
|
|
}
|
|
}
|
|
set L
|
|
}
|
|
proc CL {args} {
|
|
join [part_col_list $args] ", "
|
|
}
|
|
proc CLT {args} {
|
|
set cols $args
|
|
for {set i 64} {$i <= 100} {incr i} {
|
|
lappend cols "c$i"
|
|
}
|
|
join [part_col_list $cols] ", "
|
|
}
|
|
|
|
do_test 2.0 {
|
|
execsql "CREATE TABLE t2([join [all_col_list] ,])"
|
|
execsql "CREATE VIRTUAL TABLE e2 USING echo(t2)"
|
|
} {}
|
|
|
|
foreach {tn query filter} {
|
|
1 {SELECT c1, c10, c20 FROM e2}
|
|
{SELECT rowid, [CL c1 c10 c20] FROM 't2'}
|
|
|
|
2 {SELECT c40, c50, c60 FROM e2}
|
|
{SELECT rowid, [CL c40 c50 c60] FROM 't2'}
|
|
|
|
3 {SELECT c7, c80, c90 FROM e2}
|
|
{SELECT rowid, [CLT c7] FROM 't2'}
|
|
|
|
4 {SELECT c64 FROM e2}
|
|
{SELECT rowid, [CLT c64] FROM 't2'}
|
|
|
|
5 {SELECT c63 FROM e2}
|
|
{SELECT rowid, [CL c63] FROM 't2'}
|
|
|
|
6 {SELECT c22 FROM e2 ORDER BY c50, c70}
|
|
{SELECT rowid, [CLT c22 c50] FROM 't2'}
|
|
|
|
} {
|
|
do_test 2.$tn {
|
|
set ::echo_module [list]
|
|
execsql $query
|
|
set idx [lsearch -exact $::echo_module xFilter]
|
|
lindex $::echo_module [expr $idx+1]
|
|
} [subst $filter]
|
|
}
|
|
|
|
finish_test
|