# Tests for SIGNAL, RESIGNAL and GET DIAGNOSTICS

SET @save_sql_mode=@@sql_mode;

SET sql_mode='';

--disable_warnings
drop procedure if exists p;
drop procedure if exists p2;
drop procedure if exists p3;
--enable_warnings

delimiter $$;

create procedure p()
begin
  declare utf8_var VARCHAR(128) CHARACTER SET UTF8;
  set utf8_var = concat(repeat('A', 128), 'X');
  select length(utf8_var), utf8_var;
end
$$

create procedure p2()
begin
  declare msg VARCHAR(129) CHARACTER SET UTF8;
  set msg = concat(repeat('A', 128), 'X');
  select length(msg), msg;

  signal sqlstate '55555' set message_text = msg;
end
$$

create procedure p3()
begin
  declare name VARCHAR(65) CHARACTER SET UTF8;
  set name = concat(repeat('A', 64), 'X');
  select length(name), name;

  signal sqlstate '55555' set
    message_text = 'Message',
    table_name = name;
end
$$
delimiter ;$$

call p;

--error ER_SIGNAL_EXCEPTION
call p2;

--error ER_SIGNAL_EXCEPTION
call p3;

drop procedure p;
drop procedure p2;
drop procedure p3;

SET sql_mode='STRICT_ALL_TABLES';

delimiter $$;

create procedure p()
begin
  declare utf8_var VARCHAR(128) CHARACTER SET UTF8;
  set utf8_var = concat(repeat('A', 128), 'X');
  select length(utf8_var), utf8_var;
end
$$

create procedure p2()
begin
  declare msg VARCHAR(513) CHARACTER SET UTF8;
  set msg = concat(repeat('A', 512), 'X');
  select length(msg), msg;

  signal sqlstate '55555' set message_text = msg;
end
$$

create procedure p3()
begin
  declare name VARCHAR(65) CHARACTER SET UTF8;
  set name = concat(repeat('A', 64), 'X');
  select length(name), name;

  signal sqlstate '55555' set
    message_text = 'Message',
    table_name = name;
end
$$

delimiter ;$$

--error ER_DATA_TOO_LONG
call p;

--error ER_COND_ITEM_TOO_LONG
call p2;

--error ER_COND_ITEM_TOO_LONG
call p3;

drop procedure p;
drop procedure p2;
drop procedure p3;

SET @@sql_mode=@save_sql_mode;