xref: /sqlite-3.40.0/test/vtabI.test (revision 1acb539f) 
1# 2015 Nov 26
2#
3# The author disclaims copyright to this source code.  In place of
4# a legal notice, here is a blessing:
5#
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.
9#
10#***********************************************************************
11# This file implements regression tests for SQLite library. Specifically,
12# it tests the sqlite3_index_info.colUsed variable is set correctly.
13#
14
15set testdir [file dirname $argv0]
16source $testdir/tester.tcl
17set testprefix vtabI
18
19ifcapable !vtab {
20  finish_test
21  return
22}
23
24register_echo_module db
25
26do_execsql_test 1.0 {
27  CREATE TABLE t1(a, b, c, d, e);
28  CREATE VIRTUAL TABLE e1 USING echo(t1);
29}
30
31foreach {tn query filter} {
32  1 {SELECT * FROM e1}
33    {SELECT rowid, a, b, c, d, e FROM 't1'}
34
35  2 {SELECT a, b FROM e1}
36    {SELECT rowid, a, b, NULL, NULL, NULL FROM 't1'}
37
38  3 {SELECT count(*) FROM e1 GROUP BY b}
39    {SELECT rowid, NULL, b, NULL, NULL, NULL FROM 't1'}
40
41  4 {SELECT count(*) FROM e1 GROUP BY b HAVING a=?}
42    {SELECT rowid, a, b, NULL, NULL, NULL FROM 't1'}
43
44  5 {SELECT a FROM e1 WHERE c=?}
45    {SELECT rowid, a, NULL, c, NULL, NULL FROM 't1'}
46
47  6 {SELECT a FROM e1 ORDER BY e}
48    {SELECT rowid, a, NULL, NULL, NULL, e FROM 't1'}
49
50  7 {SELECT a FROM e1 ORDER BY e, d}
51    {SELECT rowid, a, NULL, NULL, d, e FROM 't1'}
52} {
53  do_test 1.$tn {
54    set ::echo_module [list]
55    execsql $query
56    set idx [lsearch -exact $::echo_module xFilter]
57    lindex $::echo_module [expr $idx+1]
58  } $filter
59}
60
61#-------------------------------------------------------------------------
62# Tests with a table with more than 64 columns.
63#
64proc all_col_list {} {
65  set L [list]
66  for {set i 1} {$i <= 100} {incr i} { lappend L "c$i" }
67  set L
68}
69
70proc part_col_list {cols} {
71  set L [list]
72  for {set i 1} {$i <= 100} {incr i} {
73    set c "c$i"
74    if {[lsearch $cols $c]>=0} {
75      lappend L "c$i"
76    } else {
77      lappend L NULL
78    }
79  }
80  set L
81}
82proc CL {args} {
83  join [part_col_list $args] ", "
84}
85proc CLT {args} {
86  set cols $args
87  for {set i 64} {$i <= 100} {incr i} {
88    lappend cols "c$i"
89  }
90  join [part_col_list $cols] ", "
91}
92
93do_test 2.0 {
94  execsql "CREATE TABLE t2([join [all_col_list] ,])"
95  execsql "CREATE VIRTUAL TABLE e2 USING echo(t2)"
96} {}
97
98foreach {tn query filter} {
99  1 {SELECT c1, c10, c20 FROM e2}
100    {SELECT rowid, [CL c1 c10 c20] FROM 't2'}
101
102  2 {SELECT c40, c50, c60 FROM e2}
103    {SELECT rowid, [CL c40 c50 c60] FROM 't2'}
104
105  3 {SELECT c7, c80, c90 FROM e2}
106    {SELECT rowid, [CLT c7] FROM 't2'}
107
108  4 {SELECT c64 FROM e2}
109    {SELECT rowid, [CLT c64] FROM 't2'}
110
111  5 {SELECT c63 FROM e2}
112    {SELECT rowid, [CL c63] FROM 't2'}
113
114  6 {SELECT c22 FROM e2 ORDER BY c50, c70}
115    {SELECT rowid, [CLT c22 c50] FROM 't2'}
116
117} {
118  do_test 2.$tn {
119    set ::echo_module [list]
120    execsql $query
121    set idx [lsearch -exact $::echo_module xFilter]
122    lindex $::echo_module [expr $idx+1]
123  } [subst $filter]
124}
125
126finish_test
127