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.2 2009/04/07 14:14:23 danielk1977 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 file delete -force 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 117
