third_party/sqlite/src/test/tkt3080.test

   1 # 2008 April 27
   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 #
  12 # Ticket #3080
  13 #
  14 # Make sure that application-defined functions are able to recursively
  15 # invoke SQL statements that create and drop virtual tables.
  16 #
  17 # $Id: tkt3080.test,v 1.2 2008/11/05 16:37:35 drh Exp $
  18 #
  19
  20 set testdir [file dirname $argv0]
  21 source $testdir/tester.tcl
  22
  23 do_test tkt3080.1 {
  24   db function execsql execsql
  25   db eval {
  26     SELECT execsql('CREATE TABLE t1(x)');
  27   }
  28   execsql {SELECT name FROM sqlite_master}
  29 } {t1}
  30 do_test tkt3080.2 {
  31   db eval {
  32     INSERT INTO t1 VALUES('CREATE TABLE t2(y);');
  33     SELECT execsql(x) FROM t1;
  34   }
  35   db eval {
  36     SELECT name FROM sqlite_master;
  37   }
  38 } {t1 t2}
  39 do_test tkt3080.3 {
  40   execsql {
  41     INSERT INTO t1 VALUES('CREATE TABLE t3(z); DROP TABLE t3;');
  42   }
  43   catchsql {
  44     SELECT execsql(x) FROM t1 WHERE rowid=2;
  45   }
  46 } {1 {database table is locked}}
  47 do_test tkt3080.4 {
  48   db eval {
  49     SELECT name FROM sqlite_master;
  50   }
  51 } {t1 t2 t3}
  52
  53 ifcapable vtab {
  54   register_echo_module [sqlite3_connection_pointer db]
  55   do_test tkt3080.10 {
  56      set sql {
  57        CREATE VIRTUAL TABLE t4 USING echo(t2);
  58        INSERT INTO t4 VALUES(123);
  59        DROP TABLE t4;
  60      }
  61      execsql {
  62        DELETE FROM t1;
  63        INSERT INTO t1 VALUES($sql);
  64      }
  65      db eval {
  66        SELECT execsql(x) FROM t1
  67      }
  68      execsql {SELECT name FROM sqlite_master}
  69   } {t1 t2 t3}
  70   do_test tkt3080.11 {
  71      execsql {SELECT * FROM t2}
  72   } {123}
  73 }
  74
  75
  76
  77 finish_test