# 2004 December 07## 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 implements regression tests for SQLite library.## This file implements tests to make sure expression of an INSERT# and UPDATE statement are only evaluated once.  See ticket #980.# If an expression uses a function that has side-effects or which# is not deterministic (ex: random()) then we want to make sure# that the same evaluation occurs for the actual INSERT/UPDATE and# for the NEW.* fields of any triggers that fire.## $Id: trigger6.test,v 1.2 2005/05/05 11:04:50 drh Exp $set testdir [file dirname $argv0]source $testdir/tester.tclifcapable {!trigger} {  finish_test  return}do_test trigger6-1.1 {  execsql {    CREATE TABLE t1(x, y);    CREATE TABLE log(a, b, c);    CREATE TRIGGER r1 BEFORE INSERT ON t1 BEGIN      INSERT INTO log VALUES(1, new.x, new.y);    END;    CREATE TRIGGER r2 BEFORE UPDATE ON t1 BEGIN      INSERT INTO log VALUES(2, new.x, new.y);    END;  }  set ::trigger6_cnt 0  proc trigger6_counter {args} {    incr ::trigger6_cnt    return $::trigger6_cnt  }  db function counter trigger6_counter  execsql {    INSERT INTO t1 VALUES(1,counter());    SELECT * FROM t1;  }} {1 1}do_test trigger6-1.2 {  execsql {    SELECT * FROM log;  }} {1 1 1}do_test trigger6-1.3 {  execsql {    DELETE FROM t1;    DELETE FROM log;    INSERT INTO t1 VALUES(2,counter(2,3)+4);    SELECT * FROM t1;  }} {2 6}do_test trigger6-1.4 {  execsql {    SELECT * FROM log;  }} {1 2 6}do_test trigger6-1.5 {  execsql {    DELETE FROM log;    UPDATE t1 SET y=counter(5);    SELECT * FROM t1;  }} {2 3}do_test trigger6-1.6 {  execsql {    SELECT * FROM log;  }} {2 2 3}finish_test