136 lines
3.3 KiB
Plaintext
136 lines
3.3 KiB
Plaintext
# 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.1 2007/06/26 10:38:54 danielk1977 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
|
|
|