From 7bb481fda9ecb134804b49c2ce77ca28f7eea583 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Fri, 30 Mar 2012 20:42:12 -0400 Subject: Imported Upstream version 2.0.3 --- test/trigger5.test | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 test/trigger5.test (limited to 'test/trigger5.test') diff --git a/test/trigger5.test b/test/trigger5.test new file mode 100644 index 0000000..75c56b1 --- /dev/null +++ b/test/trigger5.test @@ -0,0 +1,43 @@ +# 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. +# +#*********************************************************************** +# +# This file tests the triggers of views. +# + +set testdir [file dirname $argv0] +source $testdir/tester.tcl +ifcapable {!trigger} { + finish_test + return +} + +# Ticket #844 +# +do_test trigger5-1.1 { + execsql { + CREATE TABLE Item( + a integer PRIMARY KEY NOT NULL , + b double NULL , + c int NOT NULL DEFAULT 0 + ); + CREATE TABLE Undo(UndoAction TEXT); + INSERT INTO Item VALUES (1,38205.60865,340); + CREATE TRIGGER trigItem_UNDO_AD AFTER DELETE ON Item FOR EACH ROW + BEGIN + INSERT INTO Undo SELECT 'INSERT INTO Item (a,b,c) VALUES (' + || coalesce(old.a,'NULL') || ',' || quote(old.b) || ',' || old.c || ');'; + END; + DELETE FROM Item WHERE a = 1; + SELECT * FROM Undo; + } +} {{INSERT INTO Item (a,b,c) VALUES (1,38205.60865,340);}} + +integrity_check trigger5-99.9 + +finish_test -- cgit v1.2.3