Annotation of embedaddon/sqlite3/test/triggerB.test, revision 1.1
1.1 ! misho 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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>