1 # The author disclaims copyright to this source code. In place of 2 # a legal notice, here is a blessing: 3 # 4 # May you do good and not evil. 5 # May you find forgiveness for yourself and forgive others. 6 # May you share freely, never taking more than you give. 7 # 8 #*********************************************************************** 9 # 10 # This file tests the triggers of views. 11 # 12 13 set testdir [file dirname $argv0] 14 source $testdir/tester.tcl 15 ifcapable {!trigger} { 16 finish_test 17 return 18 } 19 20 # Ticket #844 21 # 22 do_test trigger5-1.1 { 23 execsql { 24 CREATE TABLE Item( 25 a integer PRIMARY KEY NOT NULL , 26 b double NULL , 27 c int NOT NULL DEFAULT 0 28 ); 29 CREATE TABLE Undo(UndoAction TEXT); 30 INSERT INTO Item VALUES (1,38205.60865,340); 31 CREATE TRIGGER trigItem_UNDO_AD AFTER DELETE ON Item FOR EACH ROW 32 BEGIN 33 INSERT INTO Undo SELECT 'INSERT INTO Item (a,b,c) VALUES (' 34 || coalesce(old.a,'NULL') || ',' || quote(old.b) || ',' || old.c || ');'; 35 END; 36 DELETE FROM Item WHERE a = 1; 37 SELECT * FROM Undo; 38 } 39 } {{INSERT INTO Item (a,b,c) VALUES (1,38205.60865,340);}} 40 41 integrity_check trigger5-99.9 42 43 finish_test 44
