# 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