#pragma ident "%Z%%M% %I% %E% SMI"

# 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 value returned by last_statement_change_count()

# (LSCC) is 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)

#

set testdir [file dirname $argv0]

source $testdir/tester.tcl

# ----------------------------------------------------------------------------

# 1.x - basic tests (no triggers)

# LSCC 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 last_statement_change_count();

}

} {0 1}

# LSCC set properly after update

do_test laststmtchanges-1.2 {

catchsql {

update t0 set x=3 where x=1;

select last_statement_change_count();

}

} {0 5}

# LSCC unchanged within an update statement

do_test laststmtchanges-1.3 {

catchsql {

update t0 set x=x+last_statement_change_count() where x=3;

select count() from t0 where x=8;

}

} {0 5}

# LSCC 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();

}

} {0 0}

# LSCC set properly after delete from table

do_test laststmtchanges-1.5 {

catchsql {

delete from t0 where x=2;

select last_statement_change_count();

}

} {0 3}

# ----------------------------------------------------------------------------

# 2.x - tests with after insert trigger

# LSCC changed properly after insert into table containing after trigger

do_test laststmtchanges-2.1 {

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);

update t0 set x=x;

update t2 set v2=last_statement_change_count();

end;

insert into t1 values (77);

select last_statement_change_count();

}

} {0 1}

# LSCC 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

do_test laststmtchanges-2.3 {

catchsql {

select v2 from t2;

}

} {0 5}

# ----------------------------------------------------------------------------

# 3.x - tests with after update trigger

# LSCC 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);

delete from t0 where oid=1 or oid=2;

update t2 set v2=last_statement_change_count();

end;

update t1 set k=k;

select last_statement_change_count();

}

} {0 1}

# LSCC 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

do_test laststmtchanges-3.3 {

catchsql {

select v2 from t2;

}

} {0 2}

# ----------------------------------------------------------------------------

# 4.x - tests with before delete trigger

# LSCC 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 t0 values (5);

update t2 set v2=last_statement_change_count();

end;

delete from t1;

select last_statement_change_count();

}

} {0 1}

# LSCC 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

do_test laststmtchanges-4.3 {

catchsql {

select v2 from t2;

}

} {0 1}

# ----------------------------------------------------------------------------

# 5.x - complex tests with temporary tables and nested instead of triggers

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, last_statement_change_count());

update t0 set x=x*10 where x=1;

insert into n1 values (NULL, last_statement_change_count());

insert into t1 values (NEW.k);

insert into n1 values (NULL, last_statement_change_count());

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());

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 t2 values (1000+NEW.k);

insert into n2 values (NULL, last_statement_change_count());

update t0 set x=x*100 where x=0;

insert into n2 values (NULL, last_statement_change_count());

delete from t0 where x=2;

insert into n2 values (NULL, last_statement_change_count());

end;

insert into t1 values (77);

select last_statement_change_count();

}

} {0 1}

do_test laststmtchanges-5.2 {

catchsql {

delete from t1 where k=88;

select last_statement_change_count();

}

} {0 0}

do_test laststmtchanges-5.3 {

catchsql {

insert into v1 values (5);

select last_statement_change_count();

}

} {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}}

finish_test