# 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