wasCSharpSQLite – Blame information for rev

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 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