| Index: third_party/sqlite/src/test/trigger2.test
|
| diff --git a/third_party/sqlite/src/test/trigger2.test b/third_party/sqlite/src/test/trigger2.test
|
| new file mode 100644
|
| index 0000000000000000000000000000000000000000..b4b922a5ee939f09481f24979a46a255b3efd9e6
|
| --- /dev/null
|
| +++ b/third_party/sqlite/src/test/trigger2.test
|
| @@ -0,0 +1,759 @@
|
| +# The author disclaims copyright to this source code. In place of
|
| +# a legal notice, here is a blessing:
|
| +#
|
| +# May you do good and not evil.
|
| +# May you find forgiveness for yourself and forgive others.
|
| +# May you share freely, never taking more than you give.
|
| +#
|
| +#***********************************************************************
|
| +#
|
| +# Regression testing of FOR EACH ROW table triggers
|
| +#
|
| +# 1. Trigger execution order tests.
|
| +# These tests ensure that BEFORE and AFTER triggers are fired at the correct
|
| +# times relative to each other and the triggering statement.
|
| +#
|
| +# trigger2-1.1.*: ON UPDATE trigger execution model.
|
| +# trigger2-1.2.*: DELETE trigger execution model.
|
| +# trigger2-1.3.*: INSERT trigger execution model.
|
| +#
|
| +# 2. Trigger program execution tests.
|
| +# These tests ensure that trigger programs execute correctly (ie. that a
|
| +# trigger program can correctly execute INSERT, UPDATE, DELETE * SELECT
|
| +# statements, and combinations thereof).
|
| +#
|
| +# 3. Selective trigger execution
|
| +# This tests that conditional triggers (ie. UPDATE OF triggers and triggers
|
| +# with WHEN clauses) are fired only fired when they are supposed to be.
|
| +#
|
| +# trigger2-3.1: UPDATE OF triggers
|
| +# trigger2-3.2: WHEN clause
|
| +#
|
| +# 4. Cascaded trigger execution
|
| +# Tests that trigger-programs may cause other triggers to fire. Also that a
|
| +# trigger-program is never executed recursively.
|
| +#
|
| +# trigger2-4.1: Trivial cascading trigger
|
| +# trigger2-4.2: Trivial recursive trigger handling
|
| +#
|
| +# 5. Count changes behaviour.
|
| +# Verify that rows altered by triggers are not included in the return value
|
| +# of the "count changes" interface.
|
| +#
|
| +# 6. ON CONFLICT clause handling
|
| +# trigger2-6.1[a-f]: INSERT statements
|
| +# trigger2-6.2[a-f]: UPDATE statements
|
| +#
|
| +# 7. & 8. Triggers on views fire correctly.
|
| +#
|
| +
|
| +set testdir [file dirname $argv0]
|
| +source $testdir/tester.tcl
|
| +ifcapable {!trigger} {
|
| + finish_test
|
| + return
|
| +}
|
| +
|
| +# The tests in this file were written before SQLite supported recursive
|
| +# trigger invocation, and some tests depend on that to pass. So disable
|
| +# recursive triggers for this file.
|
| +catchsql { pragma recursive_triggers = off }
|
| +
|
| +# 1.
|
| +ifcapable subquery {
|
| + set ii 0
|
| + set tbl_definitions [list \
|
| + {CREATE TABLE tbl (a, b);} \
|
| + {CREATE TABLE tbl (a INTEGER PRIMARY KEY, b);} \
|
| + {CREATE TABLE tbl (a, b PRIMARY KEY);} \
|
| + {CREATE TABLE tbl (a, b); CREATE INDEX tbl_idx ON tbl(b);} \
|
| + ]
|
| + ifcapable tempdb {
|
| + lappend tbl_definitions \
|
| + {CREATE TEMP TABLE tbl (a, b); CREATE INDEX tbl_idx ON tbl(b);}
|
| + lappend tbl_definitions {CREATE TEMP TABLE tbl (a, b);}
|
| + lappend tbl_definitions \
|
| + {CREATE TEMPORARY TABLE tbl (a INTEGER PRIMARY KEY, b);}
|
| + }
|
| + foreach tbl_defn $tbl_definitions {
|
| + incr ii
|
| + catchsql { DROP INDEX tbl_idx; }
|
| + catchsql {
|
| + DROP TABLE rlog;
|
| + DROP TABLE clog;
|
| + DROP TABLE tbl;
|
| + DROP TABLE other_tbl;
|
| + }
|
| +
|
| + execsql $tbl_defn
|
| +
|
| + execsql {
|
| + INSERT INTO tbl VALUES(1, 2);
|
| + INSERT INTO tbl VALUES(3, 4);
|
| +
|
| + CREATE TABLE rlog (idx, old_a, old_b, db_sum_a, db_sum_b, new_a, new_b);
|
| + CREATE TABLE clog (idx, old_a, old_b, db_sum_a, db_sum_b, new_a, new_b);
|
| +
|
| + CREATE TRIGGER before_update_row BEFORE UPDATE ON tbl FOR EACH ROW
|
| + BEGIN
|
| + INSERT INTO rlog VALUES ( (SELECT coalesce(max(idx),0) + 1 FROM rlog),
|
| + old.a, old.b,
|
| + (SELECT coalesce(sum(a),0) FROM tbl),
|
| + (SELECT coalesce(sum(b),0) FROM tbl),
|
| + new.a, new.b);
|
| + END;
|
| +
|
| + CREATE TRIGGER after_update_row AFTER UPDATE ON tbl FOR EACH ROW
|
| + BEGIN
|
| + INSERT INTO rlog VALUES ( (SELECT coalesce(max(idx),0) + 1 FROM rlog),
|
| + old.a, old.b,
|
| + (SELECT coalesce(sum(a),0) FROM tbl),
|
| + (SELECT coalesce(sum(b),0) FROM tbl),
|
| + new.a, new.b);
|
| + END;
|
| +
|
| + CREATE TRIGGER conditional_update_row AFTER UPDATE ON tbl FOR EACH ROW
|
| + WHEN old.a = 1
|
| + BEGIN
|
| + INSERT INTO clog VALUES ( (SELECT coalesce(max(idx),0) + 1 FROM clog),
|
| + old.a, old.b,
|
| + (SELECT coalesce(sum(a),0) FROM tbl),
|
| + (SELECT coalesce(sum(b),0) FROM tbl),
|
| + new.a, new.b);
|
| + END;
|
| + }
|
| +
|
| + do_test trigger2-1.$ii.1 {
|
| + set r {}
|
| + foreach v [execsql {
|
| + UPDATE tbl SET a = a * 10, b = b * 10;
|
| + SELECT * FROM rlog ORDER BY idx;
|
| + SELECT * FROM clog ORDER BY idx;
|
| + }] {
|
| + lappend r [expr {int($v)}]
|
| + }
|
| + set r
|
| + } [list 1 1 2 4 6 10 20 \
|
| + 2 1 2 13 24 10 20 \
|
| + 3 3 4 13 24 30 40 \
|
| + 4 3 4 40 60 30 40 \
|
| + 1 1 2 13 24 10 20 ]
|
| +
|
| + execsql {
|
| + DELETE FROM rlog;
|
| + DELETE FROM tbl;
|
| + INSERT INTO tbl VALUES (100, 100);
|
| + INSERT INTO tbl VALUES (300, 200);
|
| + CREATE TRIGGER delete_before_row BEFORE DELETE ON tbl FOR EACH ROW
|
| + BEGIN
|
| + INSERT INTO rlog VALUES ( (SELECT coalesce(max(idx),0) + 1 FROM rlog),
|
| + old.a, old.b,
|
| + (SELECT coalesce(sum(a),0) FROM tbl),
|
| + (SELECT coalesce(sum(b),0) FROM tbl),
|
| + 0, 0);
|
| + END;
|
| +
|
| + CREATE TRIGGER delete_after_row AFTER DELETE ON tbl FOR EACH ROW
|
| + BEGIN
|
| + INSERT INTO rlog VALUES ( (SELECT coalesce(max(idx),0) + 1 FROM rlog),
|
| + old.a, old.b,
|
| + (SELECT coalesce(sum(a),0) FROM tbl),
|
| + (SELECT coalesce(sum(b),0) FROM tbl),
|
| + 0, 0);
|
| + END;
|
| + }
|
| + do_test trigger2-1.$ii.2 {
|
| + set r {}
|
| + foreach v [execsql {
|
| + DELETE FROM tbl;
|
| + SELECT * FROM rlog;
|
| + }] {
|
| + lappend r [expr {int($v)}]
|
| + }
|
| + set r
|
| + } [list 1 100 100 400 300 0 0 \
|
| + 2 100 100 300 200 0 0 \
|
| + 3 300 200 300 200 0 0 \
|
| + 4 300 200 0 0 0 0 ]
|
| +
|
| + execsql {
|
| + DELETE FROM rlog;
|
| + CREATE TRIGGER insert_before_row BEFORE INSERT ON tbl FOR EACH ROW
|
| + BEGIN
|
| + INSERT INTO rlog VALUES ( (SELECT coalesce(max(idx),0) + 1 FROM rlog),
|
| + 0, 0,
|
| + (SELECT coalesce(sum(a),0) FROM tbl),
|
| + (SELECT coalesce(sum(b),0) FROM tbl),
|
| + new.a, new.b);
|
| + END;
|
| +
|
| + CREATE TRIGGER insert_after_row AFTER INSERT ON tbl FOR EACH ROW
|
| + BEGIN
|
| + INSERT INTO rlog VALUES ( (SELECT coalesce(max(idx),0) + 1 FROM rlog),
|
| + 0, 0,
|
| + (SELECT coalesce(sum(a),0) FROM tbl),
|
| + (SELECT coalesce(sum(b),0) FROM tbl),
|
| + new.a, new.b);
|
| + END;
|
| + }
|
| + do_test trigger2-1.$ii.3 {
|
| + execsql {
|
| +
|
| + CREATE TABLE other_tbl(a, b);
|
| + INSERT INTO other_tbl VALUES(1, 2);
|
| + INSERT INTO other_tbl VALUES(3, 4);
|
| + -- INSERT INTO tbl SELECT * FROM other_tbl;
|
| + INSERT INTO tbl VALUES(5, 6);
|
| + DROP TABLE other_tbl;
|
| +
|
| + SELECT * FROM rlog;
|
| + }
|
| + } [list 1 0 0 0 0 5 6 \
|
| + 2 0 0 5 6 5 6 ]
|
| +
|
| + integrity_check trigger2-1.$ii.4
|
| + }
|
| + catchsql {
|
| + DROP TABLE rlog;
|
| + DROP TABLE clog;
|
| + DROP TABLE tbl;
|
| + DROP TABLE other_tbl;
|
| + }
|
| +}
|
| +
|
| +# 2.
|
| +set ii 0
|
| +foreach tr_program {
|
| + {UPDATE tbl SET b = old.b;}
|
| + {INSERT INTO log VALUES(new.c, 2, 3);}
|
| + {DELETE FROM log WHERE a = 1;}
|
| + {INSERT INTO tbl VALUES(500, new.b * 10, 700);
|
| + UPDATE tbl SET c = old.c;
|
| + DELETE FROM log;}
|
| + {INSERT INTO log select * from tbl;}
|
| +} {
|
| + foreach test_varset [ list \
|
| + {
|
| + set statement {UPDATE tbl SET c = 10 WHERE a = 1;}
|
| + set prep {INSERT INTO tbl VALUES(1, 2, 3);}
|
| + set newC 10
|
| + set newB 2
|
| + set newA 1
|
| + set oldA 1
|
| + set oldB 2
|
| + set oldC 3
|
| + } \
|
| + {
|
| + set statement {DELETE FROM tbl WHERE a = 1;}
|
| + set prep {INSERT INTO tbl VALUES(1, 2, 3);}
|
| + set oldA 1
|
| + set oldB 2
|
| + set oldC 3
|
| + } \
|
| + {
|
| + set statement {INSERT INTO tbl VALUES(1, 2, 3);}
|
| + set newA 1
|
| + set newB 2
|
| + set newC 3
|
| + }
|
| + ] \
|
| + {
|
| + set statement {}
|
| + set prep {}
|
| + set newA {''}
|
| + set newB {''}
|
| + set newC {''}
|
| + set oldA {''}
|
| + set oldB {''}
|
| + set oldC {''}
|
| +
|
| + incr ii
|
| +
|
| + eval $test_varset
|
| +
|
| + set statement_type [string range $statement 0 5]
|
| + set tr_program_fixed $tr_program
|
| + if {$statement_type == "DELETE"} {
|
| + regsub -all new\.a $tr_program_fixed {''} tr_program_fixed
|
| + regsub -all new\.b $tr_program_fixed {''} tr_program_fixed
|
| + regsub -all new\.c $tr_program_fixed {''} tr_program_fixed
|
| + }
|
| + if {$statement_type == "INSERT"} {
|
| + regsub -all old\.a $tr_program_fixed {''} tr_program_fixed
|
| + regsub -all old\.b $tr_program_fixed {''} tr_program_fixed
|
| + regsub -all old\.c $tr_program_fixed {''} tr_program_fixed
|
| + }
|
| +
|
| +
|
| + set tr_program_cooked $tr_program
|
| + regsub -all new\.a $tr_program_cooked $newA tr_program_cooked
|
| + regsub -all new\.b $tr_program_cooked $newB tr_program_cooked
|
| + regsub -all new\.c $tr_program_cooked $newC tr_program_cooked
|
| + regsub -all old\.a $tr_program_cooked $oldA tr_program_cooked
|
| + regsub -all old\.b $tr_program_cooked $oldB tr_program_cooked
|
| + regsub -all old\.c $tr_program_cooked $oldC tr_program_cooked
|
| +
|
| + catchsql {
|
| + DROP TABLE tbl;
|
| + DROP TABLE log;
|
| + }
|
| +
|
| + execsql {
|
| + CREATE TABLE tbl(a PRIMARY KEY, b, c);
|
| + CREATE TABLE log(a, b, c);
|
| + }
|
| +
|
| + set query {SELECT * FROM tbl; SELECT * FROM log;}
|
| + set prep "$prep; INSERT INTO log VALUES(1, 2, 3);\
|
| + INSERT INTO log VALUES(10, 20, 30);"
|
| +
|
| +# Check execution of BEFORE programs:
|
| +
|
| + set before_data [ execsql "$prep $tr_program_cooked $statement $query" ]
|
| +
|
| + execsql "DELETE FROM tbl; DELETE FROM log; $prep";
|
| + execsql "CREATE TRIGGER the_trigger BEFORE [string range $statement 0 6]\
|
| + ON tbl BEGIN $tr_program_fixed END;"
|
| +
|
| + do_test trigger2-2.$ii-before "execsql {$statement $query}" $before_data
|
| +
|
| + execsql "DROP TRIGGER the_trigger;"
|
| + execsql "DELETE FROM tbl; DELETE FROM log;"
|
| +
|
| +# Check execution of AFTER programs
|
| + set after_data [ execsql "$prep $statement $tr_program_cooked $query" ]
|
| +
|
| + execsql "DELETE FROM tbl; DELETE FROM log; $prep";
|
| + execsql "CREATE TRIGGER the_trigger AFTER [string range $statement 0 6]\
|
| + ON tbl BEGIN $tr_program_fixed END;"
|
| +
|
| + do_test trigger2-2.$ii-after "execsql {$statement $query}" $after_data
|
| + execsql "DROP TRIGGER the_trigger;"
|
| +
|
| + integrity_check trigger2-2.$ii-integrity
|
| + }
|
| +}
|
| +catchsql {
|
| + DROP TABLE tbl;
|
| + DROP TABLE log;
|
| +}
|
| +
|
| +# 3.
|
| +
|
| +# trigger2-3.1: UPDATE OF triggers
|
| +execsql {
|
| + CREATE TABLE tbl (a, b, c, d);
|
| + CREATE TABLE log (a);
|
| + INSERT INTO log VALUES (0);
|
| + INSERT INTO tbl VALUES (0, 0, 0, 0);
|
| + INSERT INTO tbl VALUES (1, 0, 0, 0);
|
| + CREATE TRIGGER tbl_after_update_cd BEFORE UPDATE OF c, d ON tbl
|
| + BEGIN
|
| + UPDATE log SET a = a + 1;
|
| + END;
|
| +}
|
| +do_test trigger2-3.1 {
|
| + execsql {
|
| + UPDATE tbl SET b = 1, c = 10; -- 2
|
| + UPDATE tbl SET b = 10; -- 0
|
| + UPDATE tbl SET d = 4 WHERE a = 0; --1
|
| + UPDATE tbl SET a = 4, b = 10; --0
|
| + SELECT * FROM log;
|
| + }
|
| +} {3}
|
| +execsql {
|
| + DROP TABLE tbl;
|
| + DROP TABLE log;
|
| +}
|
| +
|
| +# trigger2-3.2: WHEN clause
|
| +set when_triggers [list {t1 BEFORE INSERT ON tbl WHEN new.a > 20}]
|
| +ifcapable subquery {
|
| + lappend when_triggers \
|
| + {t2 BEFORE INSERT ON tbl WHEN (SELECT count(*) FROM tbl) = 0}
|
| +}
|
| +
|
| +execsql {
|
| + CREATE TABLE tbl (a, b, c, d);
|
| + CREATE TABLE log (a);
|
| + INSERT INTO log VALUES (0);
|
| +}
|
| +
|
| +foreach trig $when_triggers {
|
| + execsql "CREATE TRIGGER $trig BEGIN UPDATE log set a = a + 1; END;"
|
| +}
|
| +
|
| +ifcapable subquery {
|
| + set t232 {1 0 1}
|
| +} else {
|
| + set t232 {0 0 1}
|
| +}
|
| +do_test trigger2-3.2 {
|
| + execsql {
|
| +
|
| + INSERT INTO tbl VALUES(0, 0, 0, 0); -- 1 (ifcapable subquery)
|
| + SELECT * FROM log;
|
| + UPDATE log SET a = 0;
|
| +
|
| + INSERT INTO tbl VALUES(0, 0, 0, 0); -- 0
|
| + SELECT * FROM log;
|
| + UPDATE log SET a = 0;
|
| +
|
| + INSERT INTO tbl VALUES(200, 0, 0, 0); -- 1
|
| + SELECT * FROM log;
|
| + UPDATE log SET a = 0;
|
| + }
|
| +} $t232
|
| +execsql {
|
| + DROP TABLE tbl;
|
| + DROP TABLE log;
|
| +}
|
| +integrity_check trigger2-3.3
|
| +
|
| +# Simple cascaded trigger
|
| +execsql {
|
| + CREATE TABLE tblA(a, b);
|
| + CREATE TABLE tblB(a, b);
|
| + CREATE TABLE tblC(a, b);
|
| +
|
| + CREATE TRIGGER tr1 BEFORE INSERT ON tblA BEGIN
|
| + INSERT INTO tblB values(new.a, new.b);
|
| + END;
|
| +
|
| + CREATE TRIGGER tr2 BEFORE INSERT ON tblB BEGIN
|
| + INSERT INTO tblC values(new.a, new.b);
|
| + END;
|
| +}
|
| +do_test trigger2-4.1 {
|
| + execsql {
|
| + INSERT INTO tblA values(1, 2);
|
| + SELECT * FROM tblA;
|
| + SELECT * FROM tblB;
|
| + SELECT * FROM tblC;
|
| + }
|
| +} {1 2 1 2 1 2}
|
| +execsql {
|
| + DROP TABLE tblA;
|
| + DROP TABLE tblB;
|
| + DROP TABLE tblC;
|
| +}
|
| +
|
| +# Simple recursive trigger
|
| +execsql {
|
| + CREATE TABLE tbl(a, b, c);
|
| + CREATE TRIGGER tbl_trig BEFORE INSERT ON tbl
|
| + BEGIN
|
| + INSERT INTO tbl VALUES (new.a, new.b, new.c);
|
| + END;
|
| +}
|
| +do_test trigger2-4.2 {
|
| + execsql {
|
| + INSERT INTO tbl VALUES (1, 2, 3);
|
| + select * from tbl;
|
| + }
|
| +} {1 2 3 1 2 3}
|
| +execsql {
|
| + DROP TABLE tbl;
|
| +}
|
| +
|
| +# 5.
|
| +execsql {
|
| + CREATE TABLE tbl(a, b, c);
|
| + CREATE TRIGGER tbl_trig BEFORE INSERT ON tbl
|
| + BEGIN
|
| + INSERT INTO tbl VALUES (1, 2, 3);
|
| + INSERT INTO tbl VALUES (2, 2, 3);
|
| + UPDATE tbl set b = 10 WHERE a = 1;
|
| + DELETE FROM tbl WHERE a = 1;
|
| + DELETE FROM tbl;
|
| + END;
|
| +}
|
| +do_test trigger2-5 {
|
| + execsql {
|
| + INSERT INTO tbl VALUES(100, 200, 300);
|
| + }
|
| + db changes
|
| +} {1}
|
| +execsql {
|
| + DROP TABLE tbl;
|
| +}
|
| +
|
| +ifcapable conflict {
|
| + # Handling of ON CONFLICT by INSERT statements inside triggers
|
| + execsql {
|
| + CREATE TABLE tbl (a primary key, b, c);
|
| + CREATE TRIGGER ai_tbl AFTER INSERT ON tbl BEGIN
|
| + INSERT OR IGNORE INTO tbl values (new.a, 0, 0);
|
| + END;
|
| + }
|
| + do_test trigger2-6.1a {
|
| + execsql {
|
| + BEGIN;
|
| + INSERT INTO tbl values (1, 2, 3);
|
| + SELECT * from tbl;
|
| + }
|
| + } {1 2 3}
|
| + do_test trigger2-6.1b {
|
| + catchsql {
|
| + INSERT OR ABORT INTO tbl values (2, 2, 3);
|
| + }
|
| + } {1 {column a is not unique}}
|
| + do_test trigger2-6.1c {
|
| + execsql {
|
| + SELECT * from tbl;
|
| + }
|
| + } {1 2 3}
|
| + do_test trigger2-6.1d {
|
| + catchsql {
|
| + INSERT OR FAIL INTO tbl values (2, 2, 3);
|
| + }
|
| + } {1 {column a is not unique}}
|
| + do_test trigger2-6.1e {
|
| + execsql {
|
| + SELECT * from tbl;
|
| + }
|
| + } {1 2 3 2 2 3}
|
| + do_test trigger2-6.1f {
|
| + execsql {
|
| + INSERT OR REPLACE INTO tbl values (2, 2, 3);
|
| + SELECT * from tbl;
|
| + }
|
| + } {1 2 3 2 0 0}
|
| + do_test trigger2-6.1g {
|
| + catchsql {
|
| + INSERT OR ROLLBACK INTO tbl values (3, 2, 3);
|
| + }
|
| + } {1 {column a is not unique}}
|
| + do_test trigger2-6.1h {
|
| + execsql {
|
| + SELECT * from tbl;
|
| + }
|
| + } {}
|
| + execsql {DELETE FROM tbl}
|
| +
|
| +
|
| + # Handling of ON CONFLICT by UPDATE statements inside triggers
|
| + execsql {
|
| + INSERT INTO tbl values (4, 2, 3);
|
| + INSERT INTO tbl values (6, 3, 4);
|
| + CREATE TRIGGER au_tbl AFTER UPDATE ON tbl BEGIN
|
| + UPDATE OR IGNORE tbl SET a = new.a, c = 10;
|
| + END;
|
| + }
|
| + do_test trigger2-6.2a {
|
| + execsql {
|
| + BEGIN;
|
| + UPDATE tbl SET a = 1 WHERE a = 4;
|
| + SELECT * from tbl;
|
| + }
|
| + } {1 2 10 6 3 4}
|
| + do_test trigger2-6.2b {
|
| + catchsql {
|
| + UPDATE OR ABORT tbl SET a = 4 WHERE a = 1;
|
| + }
|
| + } {1 {column a is not unique}}
|
| + do_test trigger2-6.2c {
|
| + execsql {
|
| + SELECT * from tbl;
|
| + }
|
| + } {1 2 10 6 3 4}
|
| + do_test trigger2-6.2d {
|
| + catchsql {
|
| + UPDATE OR FAIL tbl SET a = 4 WHERE a = 1;
|
| + }
|
| + } {1 {column a is not unique}}
|
| + do_test trigger2-6.2e {
|
| + execsql {
|
| + SELECT * from tbl;
|
| + }
|
| + } {4 2 10 6 3 4}
|
| + do_test trigger2-6.2f.1 {
|
| + execsql {
|
| + UPDATE OR REPLACE tbl SET a = 1 WHERE a = 4;
|
| + SELECT * from tbl;
|
| + }
|
| + } {1 3 10}
|
| + do_test trigger2-6.2f.2 {
|
| + execsql {
|
| + INSERT INTO tbl VALUES (2, 3, 4);
|
| + SELECT * FROM tbl;
|
| + }
|
| + } {1 3 10 2 3 4}
|
| + do_test trigger2-6.2g {
|
| + catchsql {
|
| + UPDATE OR ROLLBACK tbl SET a = 4 WHERE a = 1;
|
| + }
|
| + } {1 {column a is not unique}}
|
| + do_test trigger2-6.2h {
|
| + execsql {
|
| + SELECT * from tbl;
|
| + }
|
| + } {4 2 3 6 3 4}
|
| + execsql {
|
| + DROP TABLE tbl;
|
| + }
|
| +} ; # ifcapable conflict
|
| +
|
| +# 7. Triggers on views
|
| +ifcapable view {
|
| +
|
| +do_test trigger2-7.1 {
|
| + execsql {
|
| + CREATE TABLE ab(a, b);
|
| + CREATE TABLE cd(c, d);
|
| + INSERT INTO ab VALUES (1, 2);
|
| + INSERT INTO ab VALUES (0, 0);
|
| + INSERT INTO cd VALUES (3, 4);
|
| +
|
| + CREATE TABLE tlog(ii INTEGER PRIMARY KEY,
|
| + olda, oldb, oldc, oldd, newa, newb, newc, newd);
|
| +
|
| + CREATE VIEW abcd AS SELECT a, b, c, d FROM ab, cd;
|
| +
|
| + CREATE TRIGGER before_update INSTEAD OF UPDATE ON abcd BEGIN
|
| + INSERT INTO tlog VALUES(NULL,
|
| + old.a, old.b, old.c, old.d, new.a, new.b, new.c, new.d);
|
| + END;
|
| + CREATE TRIGGER after_update INSTEAD OF UPDATE ON abcd BEGIN
|
| + INSERT INTO tlog VALUES(NULL,
|
| + old.a, old.b, old.c, old.d, new.a, new.b, new.c, new.d);
|
| + END;
|
| +
|
| + CREATE TRIGGER before_delete INSTEAD OF DELETE ON abcd BEGIN
|
| + INSERT INTO tlog VALUES(NULL,
|
| + old.a, old.b, old.c, old.d, 0, 0, 0, 0);
|
| + END;
|
| + CREATE TRIGGER after_delete INSTEAD OF DELETE ON abcd BEGIN
|
| + INSERT INTO tlog VALUES(NULL,
|
| + old.a, old.b, old.c, old.d, 0, 0, 0, 0);
|
| + END;
|
| +
|
| + CREATE TRIGGER before_insert INSTEAD OF INSERT ON abcd BEGIN
|
| + INSERT INTO tlog VALUES(NULL,
|
| + 0, 0, 0, 0, new.a, new.b, new.c, new.d);
|
| + END;
|
| + CREATE TRIGGER after_insert INSTEAD OF INSERT ON abcd BEGIN
|
| + INSERT INTO tlog VALUES(NULL,
|
| + 0, 0, 0, 0, new.a, new.b, new.c, new.d);
|
| + END;
|
| + }
|
| +} {};
|
| +
|
| +do_test trigger2-7.2 {
|
| + execsql {
|
| + UPDATE abcd SET a = 100, b = 5*5 WHERE a = 1;
|
| + DELETE FROM abcd WHERE a = 1;
|
| + INSERT INTO abcd VALUES(10, 20, 30, 40);
|
| + SELECT * FROM tlog;
|
| + }
|
| +} [ list 1 1 2 3 4 100 25 3 4 \
|
| + 2 1 2 3 4 100 25 3 4 \
|
| + 3 1 2 3 4 0 0 0 0 \
|
| + 4 1 2 3 4 0 0 0 0 \
|
| + 5 0 0 0 0 10 20 30 40 \
|
| + 6 0 0 0 0 10 20 30 40 ]
|
| +
|
| +do_test trigger2-7.3 {
|
| + execsql {
|
| + DELETE FROM tlog;
|
| + INSERT INTO abcd VALUES(10, 20, 30, 40);
|
| + UPDATE abcd SET a = 100, b = 5*5 WHERE a = 1;
|
| + DELETE FROM abcd WHERE a = 1;
|
| + SELECT * FROM tlog;
|
| + }
|
| +} [ list \
|
| + 1 0 0 0 0 10 20 30 40 \
|
| + 2 0 0 0 0 10 20 30 40 \
|
| + 3 1 2 3 4 100 25 3 4 \
|
| + 4 1 2 3 4 100 25 3 4 \
|
| + 5 1 2 3 4 0 0 0 0 \
|
| + 6 1 2 3 4 0 0 0 0 \
|
| +]
|
| +do_test trigger2-7.4 {
|
| + execsql {
|
| + DELETE FROM tlog;
|
| + DELETE FROM abcd WHERE a = 1;
|
| + INSERT INTO abcd VALUES(10, 20, 30, 40);
|
| + UPDATE abcd SET a = 100, b = 5*5 WHERE a = 1;
|
| + SELECT * FROM tlog;
|
| + }
|
| +} [ list \
|
| + 1 1 2 3 4 0 0 0 0 \
|
| + 2 1 2 3 4 0 0 0 0 \
|
| + 3 0 0 0 0 10 20 30 40 \
|
| + 4 0 0 0 0 10 20 30 40 \
|
| + 5 1 2 3 4 100 25 3 4 \
|
| + 6 1 2 3 4 100 25 3 4 \
|
| +]
|
| +
|
| +do_test trigger2-8.1 {
|
| + execsql {
|
| + CREATE TABLE t1(a,b,c);
|
| + INSERT INTO t1 VALUES(1,2,3);
|
| + CREATE VIEW v1 AS
|
| + SELECT a+b AS x, b+c AS y, a+c AS z FROM t1;
|
| + SELECT * FROM v1;
|
| + }
|
| +} {3 5 4}
|
| +do_test trigger2-8.2 {
|
| + execsql {
|
| + CREATE TABLE v1log(a,b,c,d,e,f);
|
| + CREATE TRIGGER r1 INSTEAD OF DELETE ON v1 BEGIN
|
| + INSERT INTO v1log VALUES(OLD.x,NULL,OLD.y,NULL,OLD.z,NULL);
|
| + END;
|
| + DELETE FROM v1 WHERE x=1;
|
| + SELECT * FROM v1log;
|
| + }
|
| +} {}
|
| +do_test trigger2-8.3 {
|
| + execsql {
|
| + DELETE FROM v1 WHERE x=3;
|
| + SELECT * FROM v1log;
|
| + }
|
| +} {3 {} 5 {} 4 {}}
|
| +do_test trigger2-8.4 {
|
| + execsql {
|
| + INSERT INTO t1 VALUES(4,5,6);
|
| + DELETE FROM v1log;
|
| + DELETE FROM v1 WHERE y=11;
|
| + SELECT * FROM v1log;
|
| + }
|
| +} {9 {} 11 {} 10 {}}
|
| +do_test trigger2-8.5 {
|
| + execsql {
|
| + CREATE TRIGGER r2 INSTEAD OF INSERT ON v1 BEGIN
|
| + INSERT INTO v1log VALUES(NULL,NEW.x,NULL,NEW.y,NULL,NEW.z);
|
| + END;
|
| + DELETE FROM v1log;
|
| + INSERT INTO v1 VALUES(1,2,3);
|
| + SELECT * FROM v1log;
|
| + }
|
| +} {{} 1 {} 2 {} 3}
|
| +do_test trigger2-8.6 {
|
| + execsql {
|
| + CREATE TRIGGER r3 INSTEAD OF UPDATE ON v1 BEGIN
|
| + INSERT INTO v1log VALUES(OLD.x,NEW.x,OLD.y,NEW.y,OLD.z,NEW.z);
|
| + END;
|
| + DELETE FROM v1log;
|
| + UPDATE v1 SET x=x+100, y=y+200, z=z+300;
|
| + SELECT * FROM v1log;
|
| + }
|
| +} {3 103 5 205 4 304 9 109 11 211 10 310}
|
| +
|
| +# At one point the following was causing a segfault.
|
| +do_test trigger2-9.1 {
|
| + execsql {
|
| + CREATE TABLE t3(a TEXT, b TEXT);
|
| + CREATE VIEW v3 AS SELECT t3.a FROM t3;
|
| + CREATE TRIGGER trig1 INSTEAD OF DELETE ON v3 BEGIN
|
| + SELECT 1;
|
| + END;
|
| + DELETE FROM v3 WHERE a = 1;
|
| + }
|
| +} {}
|
| +
|
| +} ;# ifcapable view
|
| +
|
| +integrity_check trigger2-9.9
|
| +
|
| +finish_test
|
|
|