# # 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. # #*********************************************************************** # # Tests to make sure that values returned by changes() and total_changes() # are updated properly, especially inside triggers # # Note 1: changes() remains constant within a statement and only updates # once the statement is finished (triggers count as part of # statement). # Note 2: changes() is changed within the context of a trigger much like # last_insert_rowid() (see lastinsert.test), but is restored once # the trigger exits. # Note 3: changes() is not changed by a change to a view (since everything # is done within instead of trigger context). # # $Id: laststmtchanges.test,v 1.7 2008/10/27 13:59:34 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # ---------------------------------------------------------------------------- # 1.x - basic tests (no triggers) # changes() set properly after insert do_test laststmtchanges-1.1 { catchsql { create table t0 (x); insert into t0 values (1); insert into t0 values (1); insert into t0 values (2); insert into t0 values (2); insert into t0 values (1); insert into t0 values (1); insert into t0 values (1); insert into t0 values (2); select changes(), total_changes(); } } {0 {1 8}} # changes() set properly after update do_test laststmtchanges-1.2 { catchsql { update t0 set x=3 where x=1; select changes(), total_changes(); } } {0 {5 13}} # There was some goofy change-counting logic in sqlite4_exec() that # appears to have been left over from SQLite version 2. This test # makes sure it has been removed. # do_test laststmtchanges-1.2.1 { db cache flush sqlite4_exec_printf db {update t0 set x=4 where x=3; select 1;} {} execsql {select changes()} } {5} # changes() unchanged within an update statement do_test laststmtchanges-1.3 { execsql {update t0 set x=3 where x=4} catchsql { update t0 set x=x+changes() where x=3; select count() from t0 where x=8; } } {0 5} # changes() set properly after update on table where no rows changed do_test laststmtchanges-1.4 { catchsql { update t0 set x=77 where x=88; select changes(); } } {0 0} # changes() set properly after delete from table do_test laststmtchanges-1.5 { catchsql { delete from t0 where x=2; select changes(); } } {0 3} # All remaining tests involve triggers. Skip them if triggers are not # supported in this build. # ifcapable {!trigger} { finish_test return } # ---------------------------------------------------------------------------- # 2.x - tests with after insert trigger # changes() changed properly after insert into table containing after trigger do_test laststmtchanges-2.1 { set ::tc [db total_changes] catchsql { create table t1 (k integer primary key); create table t2 (k integer primary key, v1, v2); create trigger r1 after insert on t1 for each row begin insert into t2 values (NULL, changes(), NULL); update t0 set x=x; update t2 set v2=changes(); end; insert into t1 values (77); select changes(); } } {0 1} # changes() unchanged upon entry into after insert trigger do_test laststmtchanges-2.2 { catchsql { select v1 from t2; } } {0 3} # changes() changed properly by update within context of after insert trigger do_test laststmtchanges-2.3 { catchsql { select v2 from t2; } } {0 5} # Total changes caused by firing the trigger above: # # 1 from "insert into t1 values(77)" + # 1 from "insert into t2 values (NULL, changes(), NULL);" + # 5 from "update t0 set x=x;" + # 1 from "update t2 set v2=changes();" # do_test laststmtchanges-2.4 { expr [db total_changes] - $::tc } {8} # ---------------------------------------------------------------------------- # 3.x - tests with after update trigger # changes() changed properly after update into table containing after trigger do_test laststmtchanges-3.1 { catchsql { drop trigger r1; delete from t2; delete from t2; create trigger r1 after update on t1 for each row begin insert into t2 values (NULL, changes(), NULL); delete from t0 where rowid=1 or rowid=2; update t2 set v2=changes(); end; update t1 set k=k; select changes(); } } {0 1} # changes() unchanged upon entry into after update trigger do_test laststmtchanges-3.2 { catchsql { select v1 from t2; } } {0 0} # changes() changed properly by delete within context of after update trigger do_test laststmtchanges-3.3 { catchsql { select v2 from t2; } } {0 2} # ---------------------------------------------------------------------------- # 4.x - tests with before delete trigger # changes() changed properly on delete from table containing before trigger do_test laststmtchanges-4.1 { catchsql { drop trigger r1; delete from t2; delete from t2; create trigger r1 before delete on t1 for each row begin insert into t2 values (NULL, changes(), NULL); insert into t0 values (5); update t2 set v2=changes(); end; delete from t1; select changes(); } } {0 1} # changes() unchanged upon entry into before delete trigger do_test laststmtchanges-4.2 { catchsql { select v1 from t2; } } {0 0} # changes() changed properly by insert within context of before delete trigger do_test laststmtchanges-4.3 { catchsql { select v2 from t2; } } {0 1} # ---------------------------------------------------------------------------- # 5.x - complex tests with temporary tables and nested instead of triggers # These tests cannot run if the library does not have view support enabled. ifcapable view&&tempdb { do_test laststmtchanges-5.1 { catchsql { drop table t0; drop table t1; drop table t2; create temp table t0(x); create temp table t1 (k integer primary key); create temp table t2 (k integer primary key); create temp view v1 as select * from t1; create temp view v2 as select * from t2; create temp table n1 (k integer primary key, n); create temp table n2 (k integer primary key, n); insert into t0 values (1); insert into t0 values (2); insert into t0 values (1); insert into t0 values (1); insert into t0 values (1); insert into t0 values (2); insert into t0 values (2); insert into t0 values (1); create temp trigger r1 instead of insert on v1 for each row begin insert into n1 values (NULL, changes()); update t0 set x=x*10 where x=1; insert into n1 values (NULL, changes()); insert into t1 values (NEW.k); insert into n1 values (NULL, changes()); update t0 set x=x*10 where x=0; insert into v2 values (100+NEW.k); insert into n1 values (NULL, changes()); end; create temp trigger r2 instead of insert on v2 for each row begin insert into n2 values (NULL, changes()); insert into t2 values (1000+NEW.k); insert into n2 values (NULL, changes()); update t0 set x=x*100 where x=0; insert into n2 values (NULL, changes()); delete from t0 where x=2; insert into n2 values (NULL, changes()); end; insert into t1 values (77); select changes(); } } {0 1} do_test laststmtchanges-5.2 { catchsql { delete from t1 where k=88; select changes(); } } {0 0} do_test laststmtchanges-5.3 { catchsql { insert into v1 values (5); select changes(); } } {0 0} do_test laststmtchanges-5.4 { catchsql { select n from n1; } } {0 {0 5 1 0}} do_test laststmtchanges-5.5 { catchsql { select n from n2; } } {0 {0 1 0 3}} } ;# ifcapable view # ---------------------------------------------------------------------------- # 6.x - Test "DELETE FROM " in the absence of triggers # do_test laststmtchanges-6.1 { execsql { CREATE TABLE t3(a, b, c); INSERT INTO t3 VALUES(1, 2, 3); INSERT INTO t3 VALUES(4, 5, 6); } } {} do_test laststmtchanges-6.2 { execsql { BEGIN; DELETE FROM t3; SELECT changes(); } } {2} do_test laststmtchanges-6.3 { execsql { ROLLBACK; BEGIN; DELETE FROM t3 WHERE a IS NOT NULL; SELECT changes(); } } {2} do_test laststmtchanges-6.4 { execsql { ROLLBACK; CREATE INDEX t3_i1 ON t3(a); BEGIN; DELETE FROM t3; SELECT changes(); } } {2} do_test laststmtchanges-6.5 { execsql { ROLLBACK } set nTotalChange [execsql {SELECT total_changes()}] expr 0 } {0} do_test laststmtchanges-6.6 { execsql { SELECT total_changes(); DELETE FROM t3; SELECT total_changes(); } } [list $nTotalChange [expr $nTotalChange+2]] finish_test