EVOLUTION-MANAGER

Edit File: savepoint-4.test

--source include/have_tokudb.inc
SET DEFAULT_STORAGE_ENGINE = 'TokuDB';

delimiter |;

create function bug13825_2() returns int
begin
  savepoint x;
  insert into t1 values (2);
  savepoint y;
  insert into t1 values (3);
  #rollback to savepoint x;
  insert into t1 values (4);
  insert into t1 values (2);
  return 1;
end|

create function f_2() returns int
begin
  insert into t1 values (2);
  savepoint y;
  insert into t1 values (3);
  rollback to savepoint y;
  insert into t1 values (4);
  return 1;
end|

create function f_3() returns int
begin
  insert into t1 values (20);
  savepoint y;
  insert into t1 values (30);
  release savepoint y;
  insert into t1 values (40);
  insert into t1 values (20);
  return 1;
end|

create function f_4() returns int
begin
  insert into t1 values (20);
  savepoint y;
  insert into t1 values (30);
  release savepoint y;
  insert into t1 values (40);
  return 1;
end|

set autocommit= 0|

--error ER_DUP_ENTRY
set @a:= bug13825_2()|
select * from t1|

set @a:= f_2()|
select * from t1|

--error ER_DUP_ENTRY
set @a:= f_3()|
select * from t1|

set @a:= f_4()|
select * from t1|

delimiter ;|