# 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