OLD | NEW |
| (Empty) |
1 # 2008 April 15 | |
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. Specifically, | |
12 # it tests updating tables with constraints within a trigger. Ticket #3055. | |
13 # | |
14 | |
15 set testdir [file dirname $argv0] | |
16 source $testdir/tester.tcl | |
17 ifcapable {!trigger} { | |
18 finish_test | |
19 return | |
20 } | |
21 | |
22 # Create test tables with constraints. | |
23 # | |
24 do_test triggerB-1.1 { | |
25 execsql { | |
26 CREATE TABLE x(x INTEGER PRIMARY KEY, y INT NOT NULL); | |
27 INSERT INTO x(y) VALUES(1); | |
28 INSERT INTO x(y) VALUES(1); | |
29 CREATE TEMP VIEW vx AS SELECT x, y, 0 AS yy FROM x; | |
30 CREATE TEMP TRIGGER tx INSTEAD OF UPDATE OF y ON vx | |
31 BEGIN | |
32 UPDATE x SET y = new.y WHERE x = new.x; | |
33 END; | |
34 SELECT * FROM vx; | |
35 } | |
36 } {1 1 0 2 1 0} | |
37 do_test triggerB-1.2 { | |
38 execsql { | |
39 UPDATE vx SET y = yy; | |
40 SELECT * FROM vx; | |
41 } | |
42 } {1 0 0 2 0 0} | |
43 | |
44 # Added 2008-08-22: | |
45 # | |
46 # Name resolution within triggers. | |
47 # | |
48 do_test triggerB-2.1 { | |
49 catchsql { | |
50 CREATE TRIGGER ty AFTER INSERT ON x BEGIN | |
51 SELECT wen.x; -- Unrecognized name | |
52 END; | |
53 INSERT INTO x VALUES(1,2); | |
54 } | |
55 } {1 {no such column: wen.x}} | |
56 do_test triggerB-2.2 { | |
57 catchsql { | |
58 CREATE TRIGGER tz AFTER UPDATE ON x BEGIN | |
59 SELECT dlo.x; -- Unrecognized name | |
60 END; | |
61 UPDATE x SET y=y+1; | |
62 } | |
63 } {1 {no such column: dlo.x}} | |
64 | |
65 do_test triggerB-2.3 { | |
66 execsql { | |
67 CREATE TABLE t2(a INTEGER PRIMARY KEY, b); | |
68 INSERT INTO t2 VALUES(1,2); | |
69 CREATE TABLE changes(x,y); | |
70 CREATE TRIGGER r1t2 AFTER UPDATE ON t2 BEGIN | |
71 INSERT INTO changes VALUES(new.a, new.b); | |
72 END; | |
73 } | |
74 execsql { | |
75 UPDATE t2 SET a=a+10; | |
76 SELECT * FROM changes; | |
77 } | |
78 } {11 2} | |
79 do_test triggerB-2.4 { | |
80 execsql { | |
81 CREATE TRIGGER r2t2 AFTER DELETE ON t2 BEGIN | |
82 INSERT INTO changes VALUES(old.a, old.c); | |
83 END; | |
84 } | |
85 catchsql { | |
86 DELETE FROM t2; | |
87 } | |
88 } {1 {no such column: old.c}} | |
89 | |
90 # Triggers maintain a mask of columns from the invoking table that are | |
91 # used in the trigger body as NEW.column or OLD.column. That mask is then | |
92 # used to reduce the amount of information that needs to be loaded into | |
93 # the NEW and OLD pseudo-tables at run-time. | |
94 # | |
95 # These tests cases check the logic for when there are many columns - more | |
96 # than will fit in a bitmask. | |
97 # | |
98 do_test triggerB-3.1 { | |
99 execsql { | |
100 CREATE TABLE t3( | |
101 c0, c1, c2, c3, c4, c5, c6, c7, c8, c9, | |
102 c10, c11, c12, c13, c14, c15, c16, c17, c18, c19, | |
103 c20, c21, c22, c23, c24, c25, c26, c27, c28, c29, | |
104 c30, c31, c32, c33, c34, c35, c36, c37, c38, c39, | |
105 c40, c41, c42, c43, c44, c45, c46, c47, c48, c49, | |
106 c50, c51, c52, c53, c54, c55, c56, c57, c58, c59, | |
107 c60, c61, c62, c63, c64, c65 | |
108 ); | |
109 CREATE TABLE t3_changes(colnum, oldval, newval); | |
110 INSERT INTO t3 VALUES( | |
111 'a0', 'a1', 'a2', 'a3', 'a4', 'a5', 'a6', 'a7', 'a8', 'a9', | |
112 'a10','a11','a12','a13','a14','a15','a16','a17','a18','a19', | |
113 'a20','a21','a22','a23','a24','a25','a26','a27','a28','a29', | |
114 'a30','a31','a32','a33','a34','a35','a36','a37','a38','a39', | |
115 'a40','a41','a42','a43','a44','a45','a46','a47','a48','a49', | |
116 'a50','a51','a52','a53','a54','a55','a56','a57','a58','a59', | |
117 'a60','a61','a62','a63','a64','a65' | |
118 ); | |
119 } | |
120 for {set i 0} {$i<=65} {incr i} { | |
121 set sql [subst { | |
122 CREATE TRIGGER t3c$i AFTER UPDATE ON t3 | |
123 WHEN old.c$i!=new.c$i BEGIN | |
124 INSERT INTO t3_changes VALUES($i, old.c$i, new.c$i); | |
125 END | |
126 }] | |
127 db eval $sql | |
128 } | |
129 execsql { | |
130 SELECT * FROM t3_changes | |
131 } | |
132 } {} | |
133 for {set i 0} {$i<=64} {incr i} { | |
134 do_test triggerB-3.2.$i.1 [subst { | |
135 execsql { | |
136 UPDATE t3 SET c$i='b$i'; | |
137 SELECT * FROM t3_changes ORDER BY rowid DESC LIMIT 1; | |
138 } | |
139 }] [subst {$i a$i b$i}] | |
140 do_test triggerB-3.2.$i.2 [subst { | |
141 execsql { | |
142 SELECT count(*) FROM t3_changes | |
143 } | |
144 }] [expr {$i+1}] | |
145 do_test triggerB-3.2.$i.2 [subst { | |
146 execsql { | |
147 SELECT * FROM t3_changes WHERE colnum=$i | |
148 } | |
149 }] [subst {$i a$i b$i}] | |
150 } | |
151 | |
152 | |
153 finish_test | |
OLD | NEW |