| Index: third_party/sqlite/sqlite-src-3080704/test/vtabA.test
|
| diff --git a/third_party/sqlite/sqlite-src-3080704/test/vtabA.test b/third_party/sqlite/sqlite-src-3080704/test/vtabA.test
|
| new file mode 100644
|
| index 0000000000000000000000000000000000000000..928cc2b703a0b129ff765f16c50e9e68d2371228
|
| --- /dev/null
|
| +++ b/third_party/sqlite/sqlite-src-3080704/test/vtabA.test
|
| @@ -0,0 +1,153 @@
|
| +# 2007 June 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. The
|
| +# focus of this file is 'hidden' virtual table columns.
|
| +#
|
| +# $Id: vtabA.test,v 1.2 2008/07/12 14:52:21 drh Exp $
|
| +
|
| +set testdir [file dirname $argv0]
|
| +source $testdir/tester.tcl
|
| +
|
| +ifcapable !vtab {
|
| + finish_test
|
| + return
|
| +}
|
| +
|
| +proc get_decltype {table col} {
|
| + set STMT [sqlite3_prepare $::DB "SELECT $col FROM $table" -1 TAIL]
|
| + set decltype [sqlite3_column_decltype $STMT 0]
|
| + sqlite3_finalize $STMT
|
| + set decltype
|
| +}
|
| +
|
| +proc get_collist {table} {
|
| + set ret [list]
|
| + db eval "PRAGMA table_info($table)" { lappend ret $name }
|
| + set ret
|
| +}
|
| +
|
| +# Register the echo module
|
| +register_echo_module [sqlite3_connection_pointer db]
|
| +
|
| +# Create a virtual table with a 'hidden' column (column b).
|
| +#
|
| +do_test vtabA-1.1 {
|
| + execsql { CREATE TABLE t1(a, b HIDDEN VARCHAR, c INTEGER) }
|
| +} {}
|
| +do_test vtabA-1.2 {
|
| + execsql { CREATE VIRTUAL TABLE t1e USING echo(t1) }
|
| +} {}
|
| +
|
| +# Test that the hidden column is not listed by [PRAGMA table_info].
|
| +#
|
| +do_test vtabA-1.3 {
|
| + execsql { PRAGMA table_info(t1e) }
|
| +} [list \
|
| + 0 a {} 0 {} 0 \
|
| + 1 c INTEGER 0 {} 0 \
|
| +]
|
| +
|
| +# Test that the hidden column is not require in the default column
|
| +# list for an INSERT statement.
|
| +#
|
| +do_test vtabA-1.4 {
|
| + catchsql {
|
| + INSERT INTO t1e VALUES('value a', 'value c');
|
| + }
|
| +} {0 {}}
|
| +do_test vtabA-1.5 {
|
| + execsql {
|
| + SELECT a, b, c FROM t1e;
|
| + }
|
| +} {{value a} {} {value c}}
|
| +
|
| +do_test vtabA-1.6 {
|
| + execsql {
|
| + SELECT * FROM t1e;
|
| + }
|
| +} {{value a} {value c}}
|
| +
|
| +# Test that the expansion of a '*' expression in the result set of
|
| +# a SELECT does not include the hidden column.
|
| +#
|
| +do_test vtabA-1.7 {
|
| + execsql {
|
| + INSERT INTO t1e SELECT * FROM t1e;
|
| + }
|
| +} {}
|
| +do_test vtabA-1.8 {
|
| + execsql {
|
| + SELECT * FROM t1e;
|
| + }
|
| +} {{value a} {value c} {value a} {value c}}
|
| +
|
| +# Test that the declaration type of the hidden column does not include
|
| +# the token "HIDDEN".
|
| +#
|
| +do_test vtabA-1.9 {
|
| + get_decltype t1e b
|
| +} {VARCHAR}
|
| +do_test vtabA-1.10 {
|
| + get_collist t1e
|
| +} {a c}
|
| +
|
| +#----------------------------------------------------------------------
|
| +# These tests vtabA-2.* concentrate on testing that the HIDDEN token
|
| +# is detected and handled correctly in various declarations.
|
| +#
|
| +proc analyse_parse {columns decltype_list} {
|
| + db eval { DROP TABLE IF EXISTS t1e; }
|
| + db eval { DROP TABLE IF EXISTS t1; }
|
| + db eval " CREATE TABLE t1 $columns "
|
| + db eval { CREATE VIRTUAL TABLE t1e USING echo(t1) }
|
| + set ret [list [get_collist t1e]]
|
| + foreach c $decltype_list {
|
| + lappend ret [get_decltype t1e $c]
|
| + }
|
| + set ret
|
| +}
|
| +
|
| +do_test vtabA-2.1 {
|
| + analyse_parse {(a text, b integer hidden, c hidden)} {a b c}
|
| +} {a text integer {}}
|
| +
|
| +do_test vtabA-2.2 {
|
| + analyse_parse {(a hidden , b integerhidden, c hidden1)} {a b c}
|
| +} {{b c} {} integerhidden hidden1}
|
| +
|
| +do_test vtabA-2.3 {
|
| + analyse_parse {(a HiDden, b HIDDEN, c hidden)} {a b c}
|
| +} {{} {} {} {}}
|
| +
|
| +do_test vtabA-2.4 {
|
| + analyse_parse {(a whatelse can i hidden test, b HIDDEN hidden)} {a b}
|
| +} {{} {whatelse can i test} hidden}
|
| +
|
| +
|
| +# Ticket [d2f02d37f52bfe23e421f2c60fbb8586ac76ff01]:
|
| +# assertion failure on an UPDATE involving two virtual tables.
|
| +#
|
| +do_test vtabA-3.1 {
|
| + db eval {
|
| + DROP TABLE IF EXISTS t1;
|
| + DROP TABLE IF EXISTS t2;
|
| + CREATE TABLE t1(a,b);
|
| + INSERT INTO t1 VALUES(1,2);
|
| + CREATE TABLE t2(x,y);
|
| + INSERT INTO t2 VALUES(3,4);
|
| + CREATE VIRTUAL TABLE vt1 USING echo(t1);
|
| + CREATE VIRTUAL TABLE vt2 USING echo(t2);
|
| + UPDATE vt2 SET x=(SELECT a FROM vt1 WHERE b=2) WHERE y=4;
|
| + SELECT * FROM t2;
|
| + }
|
| +} {1 4}
|
| +
|
| +finish_test
|
|
|