File:  [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test / vtabC.test
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs - revision graph
Tue Feb 21 17:04:16 2012 UTC (12 years, 10 months ago) by misho
Branches: sqlite3, MAIN
CVS tags: v3_7_10, HEAD
sqlite3

    1: # 2008 April 10
    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: # This file implements regression tests for SQLite library.  The
   12: # focus of this file is is verifying that the xUpdate, xSync, xCommit
   13: # and xRollback methods are only invoked after an xBegin or xCreate.
   14: # Ticket #3083.
   15: #
   16: # $Id: vtabC.test,v 1.1.1.1 2012/02/21 17:04:16 misho Exp $
   17: 
   18: set testdir [file dirname $argv0]
   19: source $testdir/tester.tcl
   20: 
   21: ifcapable !vtab {
   22:   finish_test
   23:   return
   24: }
   25: 
   26: ifcapable !trigger { finish_test ; return }
   27: 
   28: 
   29: # N will be the number of virtual tables we have defined.
   30: #
   31: unset -nocomplain N
   32: for {set N 1} {$N<=20} {incr N} {
   33:   db close
   34:   forcedelete test.db test.db-journal
   35:   sqlite3 db test.db
   36:   register_echo_module [sqlite3_connection_pointer db]
   37: 
   38:   # Create $N tables and $N virtual tables to echo them.
   39:   #
   40:   unset -nocomplain tablist
   41:   set tablist {}
   42:   do_test vtabC-1.$N.1 {
   43:     for {set i 1} {$i<=$::N} {incr i} {
   44:       execsql "CREATE TABLE t${i}(x)"
   45:       execsql "CREATE VIRTUAL TABLE vt$i USING echo(t$i)"
   46:       lappend ::tablist t$i vt$i
   47:     }
   48:     execsql {SELECT count(*) FROM sqlite_master}
   49:   } [expr {$N*2}]
   50:   do_test vtabC-1.$N.2 {
   51:     execsql {SELECT name FROM sqlite_master}
   52:   } $tablist
   53: 
   54:   # Create a table m and add triggers to make changes on all
   55:   # of the virtual tables when m is changed.
   56:   #
   57:   do_test vtabC-1.$N.3 {
   58:     execsql {CREATE TABLE m(a)}
   59:     set sql "CREATE TRIGGER rins AFTER INSERT ON m BEGIN\n"
   60:     for {set i 1} {$i<=$::N} {incr i} {
   61:       append sql "  INSERT INTO vt$i VALUES(NEW.a+$i);\n"
   62:     }
   63:     append sql "END;"
   64:     execsql $sql
   65:     execsql {SELECT count(*) FROM sqlite_master}
   66:   } [expr {$N*2+2}]
   67:   do_test vtabC-1.$N.4 {
   68:     execsql {
   69:       INSERT INTO m VALUES(1000);
   70:       SELECT * FROM m;
   71:     }
   72:   } {1000}
   73:   for {set j 1} {$j<=$::N} {incr j} {
   74:     do_test vtabC-1.$N.5.$j {
   75:       execsql "SELECT * FROM t$::j"
   76:     } [expr {$j+1000}]
   77:     do_test vtabC-1.$N.6.$j {
   78:       execsql "SELECT * FROM vt$::j"
   79:     } [expr {$j+1000}]
   80:   }
   81:   do_test vtabC-1.$N.7 {
   82:     set sql "CREATE TRIGGER rins2 BEFORE INSERT ON m BEGIN\n"
   83:     for {set i 1} {$i<=$::N} {incr i} {
   84:       append sql "  INSERT INTO vt$i VALUES(NEW.a+$i*100);\n"
   85:     }
   86:     for {set i 1} {$i<=$::N} {incr i} {
   87:       append sql "  INSERT INTO vt$i VALUES(NEW.a+$i*10000);\n"
   88:     }
   89:     append sql "END;"
   90:     execsql $sql
   91:     execsql {SELECT count(*) FROM sqlite_master}
   92:   } [expr {$N*2+3}]
   93:   do_test vtabC-1.$N.8 {
   94:     execsql {
   95:       INSERT INTO m VALUES(9000000);
   96:       SELECT * FROM m;
   97:     }
   98:   } {1000 9000000}
   99:   unset -nocomplain res
  100:   for {set j 1} {$j<=$::N} {incr j} {
  101:     set res [expr {$j+1000}]
  102:     lappend res [expr {$j*100+9000000}]
  103:     lappend res [expr {$j*10000+9000000}]
  104:     lappend res [expr {$j+9000000}]
  105:     do_test vtabC-1.$N.9.$j {
  106:       execsql "SELECT * FROM t$::j"
  107:     } $res
  108:     do_test vtabC-1.$N.10.$j {
  109:       execsql "SELECT * FROM vt$::j"
  110:     } $res
  111:   }
  112: }
  113: unset -nocomplain res N i j
  114: 
  115: 
  116: finish_test

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>