test/trigger5.test

   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