Index: third_party/sqlite/sqlite-src-3170000/test/vtabI.test |
diff --git a/third_party/sqlite/sqlite-src-3170000/test/vtabI.test b/third_party/sqlite/sqlite-src-3170000/test/vtabI.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..4b5a0a8c32e493ec9ff0f18e13fcbd4801457270 |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3170000/test/vtabI.test |
@@ -0,0 +1,126 @@ |
+# 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 |