| OLD | NEW |
| (Empty) |
| 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 | |
| OLD | NEW |