Index: third_party/sqlite/sqlite-src-3080704/test/laststmtchanges.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/laststmtchanges.test b/third_party/sqlite/sqlite-src-3080704/test/laststmtchanges.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..ea4c3892b75d257cf51a3f71864c537b93a4ba67 |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3080704/test/laststmtchanges.test |
@@ -0,0 +1,331 @@ |
+# |
+# 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 sqlite3_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 |
+ sqlite3_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 oid=1 or oid=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 <table>" 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 |