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 |