Update sqlite3_changes() to match the documentation and add

sqlite3_total_changes(). (CVS 1645)

FossilOrigin-Name: ae2f4a0943854fedbbb6fab1dc3aaf972722ed95
This commit is contained in:
danielk1977
2004-06-21 06:50:26 +00:00
parent d664d9a2bb
commit b28af71a22
20 changed files with 279 additions and 216 deletions
+63 -50
View File
@@ -7,16 +7,17 @@
#
#***********************************************************************
#
# Tests to make sure that value returned by last_statement_change_count()
# (LSCC) is updated properly, especially inside triggers
# Tests to make sure that values returned by changes() and total_changes()
# are updated properly, especially inside triggers
#
# Note 1: LSCC remains constant within a statement and only updates once
# the statement is finished (triggers count as part of statement)
# Note 2: LSCC 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: LSCC is not changed by a change to a view (since everything
# is done within instead of trigger context)
# 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).
#
set testdir [file dirname $argv0]
@@ -25,7 +26,7 @@ source $testdir/tester.tcl
# ----------------------------------------------------------------------------
# 1.x - basic tests (no triggers)
# LSCC set properly after insert
# changes() set properly after insert
do_test laststmtchanges-1.1 {
catchsql {
create table t0 (x);
@@ -37,100 +38,112 @@ do_test laststmtchanges-1.1 {
insert into t0 values (1);
insert into t0 values (1);
insert into t0 values (2);
select last_statement_change_count();
select changes(), total_changes();
}
} {0 1}
} {0 {1 8}}
# LSCC set properly after update
# changes() set properly after update
do_test laststmtchanges-1.2 {
catchsql {
update t0 set x=3 where x=1;
select last_statement_change_count();
select changes(), total_changes();
}
} {0 5}
} {0 {5 13}}
# LSCC unchanged within an update statement
# changes() unchanged within an update statement
do_test laststmtchanges-1.3 {
catchsql {
update t0 set x=x+last_statement_change_count() where x=3;
update t0 set x=x+changes() where x=3;
select count() from t0 where x=8;
}
} {0 5}
# LSCC set properly after update on table where no rows changed
# 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 last_statement_change_count();
select changes();
}
} {0 0}
# LSCC set properly after delete from table
# changes() set properly after delete from table
do_test laststmtchanges-1.5 {
catchsql {
delete from t0 where x=2;
select last_statement_change_count();
select changes();
}
} {0 3}
# ----------------------------------------------------------------------------
# 2.x - tests with after insert trigger
# LSCC changed properly after insert into table containing after 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, last_statement_change_count(), NULL);
insert into t2 values (NULL, changes(), NULL);
update t0 set x=x;
update t2 set v2=last_statement_change_count();
update t2 set v2=changes();
end;
insert into t1 values (77);
select last_statement_change_count();
select changes();
}
} {0 1}
# LSCC unchanged upon entry into after insert trigger
# changes() unchanged upon entry into after insert trigger
do_test laststmtchanges-2.2 {
catchsql {
select v1 from t2;
}
} {0 3}
# LSCC changed properly by update within context of after insert trigger
# 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
# LSCC changed properly after update into table containing after 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, last_statement_change_count(), NULL);
insert into t2 values (NULL, changes(), NULL);
delete from t0 where oid=1 or oid=2;
update t2 set v2=last_statement_change_count();
update t2 set v2=changes();
end;
update t1 set k=k;
select last_statement_change_count();
select changes();
}
} {0 1}
# LSCC unchanged upon entry into after update trigger
# changes() unchanged upon entry into after update trigger
do_test laststmtchanges-3.2 {
catchsql {
select v1 from t2;
}
} {0 0}
# LSCC changed properly by delete within context of after update trigger
# changes() changed properly by delete within context of after update trigger
do_test laststmtchanges-3.3 {
catchsql {
select v2 from t2;
@@ -140,29 +153,29 @@ do_test laststmtchanges-3.3 {
# ----------------------------------------------------------------------------
# 4.x - tests with before delete trigger
# LSCC changed properly on delete from table containing before 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, last_statement_change_count(), NULL);
insert into t2 values (NULL, changes(), NULL);
insert into t0 values (5);
update t2 set v2=last_statement_change_count();
update t2 set v2=changes();
end;
delete from t1;
select last_statement_change_count();
select changes();
}
} {0 1}
# LSCC unchanged upon entry into before delete trigger
# changes() unchanged upon entry into before delete trigger
do_test laststmtchanges-4.2 {
catchsql {
select v1 from t2;
}
} {0 0}
# LSCC changed properly by insert within context of before delete trigger
# changes() changed properly by insert within context of before delete trigger
do_test laststmtchanges-4.3 {
catchsql {
select v2 from t2;
@@ -191,40 +204,40 @@ do_test laststmtchanges-5.1 {
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, last_statement_change_count());
insert into n1 values (NULL, changes());
update t0 set x=x*10 where x=1;
insert into n1 values (NULL, last_statement_change_count());
insert into n1 values (NULL, changes());
insert into t1 values (NEW.k);
insert into n1 values (NULL, last_statement_change_count());
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, last_statement_change_count());
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, last_statement_change_count());
insert into n2 values (NULL, changes());
insert into t2 values (1000+NEW.k);
insert into n2 values (NULL, last_statement_change_count());
insert into n2 values (NULL, changes());
update t0 set x=x*100 where x=0;
insert into n2 values (NULL, last_statement_change_count());
insert into n2 values (NULL, changes());
delete from t0 where x=2;
insert into n2 values (NULL, last_statement_change_count());
insert into n2 values (NULL, changes());
end;
insert into t1 values (77);
select last_statement_change_count();
select changes();
}
} {0 1}
do_test laststmtchanges-5.2 {
catchsql {
delete from t1 where k=88;
select last_statement_change_count();
select changes();
}
} {0 0}
do_test laststmtchanges-5.3 {
catchsql {
insert into v1 values (5);
select last_statement_change_count();
select changes();
}
} {0 0}