Return to vtabA.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/vtabA.test, revision 1.1.1.1

1.1       misho       1: # 2007 June 26
                      2: #
                      3: # The author disclaims copyright to this source code.  In place of
                      4: # a legal notice, here is a blessing:
                      5: #
                      6: #    May you do good and not evil.
                      7: #    May you find forgiveness for yourself and forgive others.
                      8: #    May you share freely, never taking more than you give.
                      9: #
                     10: #***********************************************************************
                     11: # This file implements regression tests for SQLite library.  The
                     12: # focus of this file is 'hidden' virtual table columns.
                     13: #
                     14: # $Id: vtabA.test,v 1.2 2008/07/12 14:52:21 drh Exp $
                     15: 
                     16: set testdir [file dirname $argv0]
                     17: source $testdir/tester.tcl
                     18: 
                     19: ifcapable !vtab {
                     20:   finish_test
                     21:   return
                     22: }
                     23: 
                     24: proc get_decltype {table col} {
                     25:   set STMT [sqlite3_prepare $::DB "SELECT $col FROM $table" -1 TAIL]
                     26:   set decltype [sqlite3_column_decltype $STMT 0]
                     27:   sqlite3_finalize $STMT
                     28:   set decltype
                     29: }
                     30: 
                     31: proc get_collist {table} {
                     32:   set ret [list]
                     33:   db eval "PRAGMA table_info($table)" { lappend ret $name }
                     34:   set ret
                     35: }
                     36: 
                     37: # Register the echo module
                     38: register_echo_module [sqlite3_connection_pointer db]
                     39: 
                     40: # Create a virtual table with a 'hidden' column (column b).
                     41: #
                     42: do_test vtabA-1.1 {
                     43:   execsql { CREATE TABLE t1(a, b HIDDEN VARCHAR, c INTEGER) }
                     44: } {}
                     45: do_test vtabA-1.2 {
                     46:   execsql { CREATE VIRTUAL TABLE t1e USING echo(t1) }
                     47: } {}
                     48: 
                     49: # Test that the hidden column is not listed by [PRAGMA table_info].
                     50: #
                     51: do_test vtabA-1.3 {
                     52:   execsql { PRAGMA table_info(t1e) }
                     53: } [list              \
                     54:   0 a {}      0 {} 0 \
                     55:   1 c INTEGER 0 {} 0 \
                     56: ]
                     57: 
                     58: # Test that the hidden column is not require in the default column
                     59: # list for an INSERT statement.
                     60: #
                     61: do_test vtabA-1.4 {
                     62:   catchsql {
                     63:     INSERT INTO t1e VALUES('value a', 'value c');
                     64:   }
                     65: } {0 {}}
                     66: do_test vtabA-1.5 {
                     67:   execsql {
                     68:     SELECT a, b, c FROM t1e;
                     69:   }
                     70: } {{value a} {} {value c}}
                     71: 
                     72: do_test vtabA-1.6 {
                     73:   execsql {
                     74:     SELECT * FROM t1e;
                     75:   }
                     76: } {{value a} {value c}}
                     77: 
                     78: # Test that the expansion of a '*' expression in the result set of
                     79: # a SELECT does not include the hidden column.
                     80: #
                     81: do_test vtabA-1.7 {
                     82:   execsql {
                     83:     INSERT INTO t1e SELECT * FROM t1e;
                     84:   }
                     85: } {}
                     86: do_test vtabA-1.8 {
                     87:   execsql {
                     88:     SELECT * FROM t1e;
                     89:   }
                     90: } {{value a} {value c} {value a} {value c}}
                     91: 
                     92: # Test that the declaration type of the hidden column does not include
                     93: # the token "HIDDEN".
                     94: #
                     95: do_test vtabA-1.9 {
                     96:   get_decltype t1e b
                     97: } {VARCHAR}
                     98: do_test vtabA-1.10 {
                     99:   get_collist t1e
                    100: } {a c}
                    101: 
                    102: #----------------------------------------------------------------------
                    103: # These tests vtabA-2.* concentrate on testing that the HIDDEN token
                    104: # is detected and handled correctly in various declarations.
                    105: #
                    106: proc analyse_parse {columns decltype_list} {
                    107:   db eval { DROP TABLE IF EXISTS t1e; }
                    108:   db eval { DROP TABLE IF EXISTS t1; }
                    109:   db eval " CREATE TABLE t1 $columns "
                    110:   db eval { CREATE VIRTUAL TABLE t1e USING echo(t1) }
                    111:   set ret [list [get_collist t1e]]
                    112:   foreach c $decltype_list {
                    113:     lappend ret [get_decltype t1e $c]
                    114:   }
                    115:   set ret
                    116: }
                    117: 
                    118: do_test vtabA-2.1 {
                    119:   analyse_parse {(a text, b integer hidden, c hidden)} {a b c}
                    120: } {a text integer {}}
                    121: 
                    122: do_test vtabA-2.2 {
                    123:   analyse_parse {(a hidden   , b integerhidden, c hidden1)} {a b c}
                    124: } {{b c} {} integerhidden hidden1}
                    125: 
                    126: do_test vtabA-2.3 {
                    127:   analyse_parse {(a HiDden, b HIDDEN, c hidden)} {a b c}
                    128: } {{} {} {} {}}
                    129: 
                    130: do_test vtabA-2.4 {
                    131:   analyse_parse {(a whatelse can i hidden test, b HIDDEN hidden)} {a b}
                    132: } {{} {whatelse can i test} hidden}
                    133: 
                    134: 
                    135: # Ticket [d2f02d37f52bfe23e421f2c60fbb8586ac76ff01]:
                    136: # assertion failure on an UPDATE involving two virtual tables.
                    137: #
                    138: do_test vtabA-3.1 {
                    139:   db eval {
                    140:     DROP TABLE IF EXISTS t1;
                    141:     DROP TABLE IF EXISTS t2;
                    142:     CREATE TABLE t1(a,b);
                    143:     INSERT INTO t1 VALUES(1,2);
                    144:     CREATE TABLE t2(x,y);
                    145:     INSERT INTO t2 VALUES(3,4);
                    146:     CREATE VIRTUAL TABLE vt1 USING echo(t1);
                    147:     CREATE VIRTUAL TABLE vt2 USING echo(t2);
                    148:     UPDATE vt2 SET x=(SELECT a FROM vt1 WHERE b=2) WHERE y=4;
                    149:     SELECT * FROM t2;
                    150:   }
                    151: } {1 4}
                    152: 
                    153: finish_test