# Copyright (C) 2008 Sun Microsystems, Inc
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; version 2 of the License.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

# 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(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 ;$$

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