Move bundled copy of sqlite one level deeper to better separate it...

third_party/sqlite/test/vtab7.test

-# 2006 July 25
-#
-# 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.
-#
-#***********************************************************************
-# This file implements regression tests for SQLite library. The focus
-# of this test is reading and writing to the database from within a
-# virtual table xSync() callback.
-#
-# $Id: vtab7.test,v 1.4 2007/12/04 16:54:53 drh Exp $
-
-set testdir [file dirname $argv0]
-source $testdir/tester.tcl
-
-ifcapable !vtab {
-  finish_test
-  return
-}
-
-# Register the echo module. Code inside the echo module appends elements
-# to the global tcl list variable ::echo_module whenever SQLite invokes
-# certain module callbacks. This includes the xSync(), xCommit() and 
-# xRollback() callbacks. For each of these callback, two elements are
-# appended to ::echo_module, as follows:
-#
-#     Module method        Elements appended to ::echo_module
-#     -------------------------------------------------------
-#     xSync()              xSync echo($tablename)
-#     xCommit()            xCommit echo($tablename)
-#     xRollback()          xRollback echo($tablename)
-#     -------------------------------------------------------
-#
-# In each case, $tablename is replaced by the name of the real table (not
-# the echo table). By setting up a tcl trace on the ::echo_module variable,
-# code in this file arranges for a Tcl script to be executed from within
-# the echo module xSync() callback.
-#
-register_echo_module [sqlite3_connection_pointer db]
-trace add variable ::echo_module write echo_module_trace
-
-# This Tcl proc is invoked whenever the ::echo_module variable is written.
-#
-proc echo_module_trace {args} {
-  # Filter out writes to ::echo_module that are not xSync, xCommit or 
-  # xRollback callbacks.
-  if {[llength $::echo_module] < 2} return
-  set x [lindex $::echo_module end-1]
-  if {$x ne "xSync" && $x ne "xCommit" && $x ne "xRollback"} return
-
-  regexp {^echo.(.*).$} [lindex $::echo_module end] dummy tablename
-  # puts "Ladies and gentlemen, an $x on $tablename!"
-
-  if {[info exists ::callbacks($x,$tablename)]} {
-    eval $::callbacks($x,$tablename)
-  }
-}
-
-# The following tests, vtab7-1.*, test that the trace callback on 
-# ::echo_module is providing the expected tcl callbacks.
-do_test vtab7-1.1 {
-  execsql {
-    CREATE TABLE abc(a, b, c);
-    CREATE VIRTUAL TABLE abc2 USING echo(abc);
-  }
-} {}
-
-do_test vtab7-1.2 {
-  set ::callbacks(xSync,abc) {incr ::counter}
-  set ::counter 0
-  execsql {
-    INSERT INTO abc2 VALUES(1, 2, 3);
-  }
-  set ::counter
-} {1}
-
-# Write to an existing database table from within an xSync callback.
-do_test vtab7-2.1 {
-  set ::callbacks(xSync,abc) {
-    execsql {INSERT INTO log VALUES('xSync');}
-  }
-  execsql {
-    CREATE TABLE log(msg);
-    INSERT INTO abc2 VALUES(4, 5, 6);
-    SELECT * FROM log;
-  }
-} {xSync}
-do_test vtab7-2.3 {
-  execsql {
-    INSERT INTO abc2 VALUES(4, 5, 6);
-    SELECT * FROM log;
-  }
-} {xSync xSync}
-do_test vtab7-2.4 {
-  execsql {
-    INSERT INTO abc2 VALUES(4, 5, 6);
-    SELECT * FROM log;
-  }
-} {xSync xSync xSync}
-
-# Create a database table from within xSync callback.
-do_test vtab7-2.5 {
-  set ::callbacks(xSync,abc) {
-    execsql { CREATE TABLE newtab(d, e, f); }
-  }
-  execsql {
-    INSERT INTO abc2 VALUES(1, 2, 3);
-    SELECT name FROM sqlite_master ORDER BY name;
-  }
-} {abc abc2 log newtab}
-
-# Drop a database table from within xSync callback.
-# This is not allowed.  Tables cannot be dropped while
-# any other statement is active.
-#
-do_test vtab7-2.6 {
-  set ::callbacks(xSync,abc) {
-    set ::rc [catchsql { DROP TABLE newtab }]
-  }
-  execsql {
-    INSERT INTO abc2 VALUES(1, 2, 3);
-    SELECT name FROM sqlite_master ORDER BY name;
-  }
-} {abc abc2 log newtab}
-do_test vtab7-2.6.1 {
-  set ::rc
-} {1 {database table is locked}}
-execsql {DROP TABLE newtab}
-
-# Write to an attached database from xSync().
-ifcapable attach {
-  do_test vtab7-3.1 {
-    file delete -force test2.db
-    file delete -force test2.db-journal
-    execsql {
-      ATTACH 'test2.db' AS db2;
-      CREATE TABLE db2.stuff(description, shape, color);
-    }
-    set ::callbacks(xSync,abc) {
-      execsql { INSERT INTO db2.stuff VALUES('abc', 'square', 'green'); }
-    }
-    execsql {
-      INSERT INTO abc2 VALUES(1, 2, 3);
-      SELECT * from stuff;
-    }
-  } {abc square green}
-}
-
-# UPDATE: The next test passes, but leaks memory. So leave it out.
-#
-# The following tests test that writing to the database from within
-# the xCommit callback causes a misuse error.
-# do_test vtab7-4.1 {
-#   unset -nocomplain ::callbacks(xSync,abc)
-#   set ::callbacks(xCommit,abc) {
-#     execsql { INSERT INTO log VALUES('hello') }
-#   }
-#   catchsql {
-#     INSERT INTO abc2 VALUES(1, 2, 3);
-#   }
-# } {1 {library routine called out of sequence}}
-
-# These tests, vtab7-4.*, test that an SQLITE_LOCKED error is returned
-# if an attempt to write to a virtual module table or create a new 
-# virtual table from within an xSync() callback.
-do_test vtab7-4.1 {
-  execsql {
-    CREATE TABLE def(d, e, f);
-    CREATE VIRTUAL TABLE def2 USING echo(def);
-  }
-  set ::callbacks(xSync,abc) {
-    set ::error [catchsql { INSERT INTO def2 VALUES(1, 2, 3) }]
-  }
-  execsql {
-    INSERT INTO abc2 VALUES(1, 2, 3);
-  }
-  set ::error
-} {1 {database table is locked}}
-do_test vtab7-4.2 {
-  set ::callbacks(xSync,abc) {
-    set ::error [catchsql { CREATE VIRTUAL TABLE def3 USING echo(def) }]
-  }
-  execsql {
-    INSERT INTO abc2 VALUES(1, 2, 3);
-  }
-  set ::error
-} {1 {database table is locked}}
-
-do_test vtab7-4.3 {
-  set ::callbacks(xSync,abc) {
-    set ::error [catchsql { DROP TABLE def2 }]
-  }
-  execsql {
-    INSERT INTO abc2 VALUES(1, 2, 3);
-    SELECT name FROM sqlite_master ORDER BY name;
-  }
-  set ::error
-} {1 {database table is locked}}
-
-trace remove variable ::echo_module write echo_module_trace
-unset -nocomplain ::callbacks
-
-finish_test