Move bundled copy of sqlite one level deeper to better separate it...

third_party/sqlite/test/vtabA.test

-# 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}
-
-finish_test