Return to trigger5.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/trigger5.test, revision 1.1.1.1

1.1       misho       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