diff -r 000000000000 -r bde4ae8d615e os/persistentdata/persistentstorage/sqlite3api/TEST/TclScript/tkt3080.test --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TclScript/tkt3080.test Fri Jun 15 03:10:57 2012 +0200 @@ -0,0 +1,77 @@ +# 2008 April 27 +# +# 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. +# +#*********************************************************************** +# +# Ticket #3080 +# +# Make sure that application-defined functions are able to recursively +# invoke SQL statements that create and drop virtual tables. +# +# $Id: tkt3080.test,v 1.1 2008/04/28 17:12:11 drh Exp $ +# + +set testdir [file dirname $argv0] +source $testdir/tester.tcl + +do_test tkt3080.1 { + db function execsql execsql + db eval { + SELECT execsql('CREATE TABLE t1(x)'); + } + execsql {SELECT name FROM sqlite_master} +} {t1} +do_test tkt3080.2 { + db eval { + INSERT INTO t1 VALUES('CREATE TABLE t2(y);'); + SELECT execsql(x) FROM t1; + } + db eval { + SELECT name FROM sqlite_master; + } +} {t1 t2} +do_test tkt3080.3 { + execsql { + INSERT INTO t1 VALUES('CREATE TABLE t3(z); DROP TABLE t3;'); + } + catchsql { + SELECT execsql(x) FROM t1 WHERE rowid=2; + } +} {1 {database table is locked}} +do_test tkt3080.4 { + db eval { + SELECT name FROM sqlite_master; + } +} {t1 t2} + +ifcapable vtab { + register_echo_module [sqlite3_connection_pointer db] + do_test tkt3080.10 { + set sql { + CREATE VIRTUAL TABLE t4 USING echo(t2); + INSERT INTO t4 VALUES(123); + DROP TABLE t4; + } + execsql { + DELETE FROM t1; + INSERT INTO t1 VALUES($sql); + } + db eval { + SELECT execsql(x) FROM t1 + } + execsql {SELECT name FROM sqlite_master} + } {t1 t2} + do_test tkt3080.11 { + execsql {SELECT * FROM t2} + } {123} +} + + + +finish_test