mirror of
https://github.com/MariaDB/server.git
synced 2025-01-16 03:52:35 +01:00
227510e039
length/dec/charset are still in LEX, because they're also used
for CAST and dynamic columns.
also
1. fix "MDEV-7041 COLLATION(CAST('a' AS CHAR BINARY)) returns a wrong result"
2. allow BINARY modifier in stored function RETURN clause
3. allow "COLLATION without CHARSET" in SP/SF (parameters, RETURN, DECLARE)
4. print correct variable name in error messages for stored routine parameters
177 lines
3.4 KiB
Text
177 lines
3.4 KiB
Text
-- source include/have_ucs2.inc
|
||
|
||
delimiter |;
|
||
|
||
#
|
||
# BUG#17615: problem with character set
|
||
#
|
||
--disable_warnings
|
||
drop function if exists bug17615|
|
||
--enable_warnings
|
||
|
||
create table t3 (a varchar(256) unicode)|
|
||
|
||
create function bug17615() returns varchar(256) unicode
|
||
begin
|
||
declare tmp_res varchar(256) unicode;
|
||
set tmp_res= 'foo string';
|
||
return tmp_res;
|
||
end|
|
||
|
||
insert into t3 values(bug17615())|
|
||
select * from t3|
|
||
|
||
drop function bug17615|
|
||
drop table t3|
|
||
|
||
|
||
#
|
||
# Testing COLLATE clause in
|
||
# - IN parameter
|
||
# - RETURNS
|
||
# - DELCARE
|
||
#
|
||
|
||
CREATE FUNCTION f(f1 VARCHAR(64) CHARACTER SET ucs2 COLLATE ucs2_unicode_ci)
|
||
RETURNS VARCHAR(64) CHARACTER SET ucs2 COLLATE ucs2_danish_ci
|
||
BEGIN
|
||
DECLARE f2 VARCHAR(64) CHARACTER SET ucs2 COLLATE ucs2_swedish_ci;
|
||
DECLARE f3 VARCHAR(64) CHARACTER SET ucs2 COLLATE ucs2_bin;
|
||
SET f1= concat(collation(f1), ' ', collation(f2), ' ', collation(f3));
|
||
RETURN f1;
|
||
END|
|
||
SELECT f('a')|
|
||
SELECT collation(f('a'))|
|
||
DROP FUNCTION f|
|
||
|
||
#
|
||
# Testing keywords UNICODE + BINARY
|
||
#
|
||
CREATE FUNCTION f()
|
||
RETURNS VARCHAR(64) UNICODE BINARY
|
||
BEGIN
|
||
RETURN '';
|
||
END|
|
||
SHOW CREATE FUNCTION f;
|
||
DROP FUNCTION f;
|
||
|
||
CREATE FUNCTION f()
|
||
RETURNS VARCHAR(64) BINARY UNICODE
|
||
BEGIN
|
||
RETURN '';
|
||
END|
|
||
SHOW CREATE FUNCTION f;
|
||
DROP FUNCTION f;
|
||
|
||
|
||
#
|
||
# Testing keywords ASCII + BINARY
|
||
#
|
||
CREATE FUNCTION f()
|
||
RETURNS VARCHAR(64) ASCII BINARY
|
||
BEGIN
|
||
RETURN '';
|
||
END|
|
||
SHOW CREATE FUNCTION f;
|
||
DROP FUNCTION f;
|
||
|
||
CREATE FUNCTION f()
|
||
RETURNS VARCHAR(64) BINARY ASCII
|
||
BEGIN
|
||
RETURN '';
|
||
END|
|
||
SHOW CREATE FUNCTION f;
|
||
DROP FUNCTION f;
|
||
|
||
#
|
||
# Testing COLLATE in OUT parameter
|
||
#
|
||
|
||
CREATE PROCEDURE p1(IN f1 VARCHAR(64) CHARACTER SET ucs2 COLLATE ucs2_czech_ci,
|
||
OUT f2 VARCHAR(64) CHARACTER SET ucs2 COLLATE ucs2_polish_ci)
|
||
BEGIN
|
||
SET f2= f1;
|
||
SET f2= concat(collation(f1), ' ', collation(f2));
|
||
END|
|
||
|
||
|
||
CREATE FUNCTION f1()
|
||
RETURNS VARCHAR(64) CHARACTER SET ucs2
|
||
BEGIN
|
||
DECLARE f1 VARCHAR(64) CHARACTER SET ucs2;
|
||
DECLARE f2 VARCHAR(64) CHARACTER SET ucs2;
|
||
SET f1='str';
|
||
CALL p1(f1, f2);
|
||
RETURN f2;
|
||
END|
|
||
|
||
|
||
SELECT f1()|
|
||
DROP PROCEDURE p1|
|
||
DROP FUNCTION f1|
|
||
|
||
|
||
#
|
||
# COLLATE with no CHARACTER SET in IN param
|
||
#
|
||
--error ER_COLLATION_CHARSET_MISMATCH
|
||
CREATE FUNCTION f(f1 VARCHAR(64) COLLATE ucs2_unicode_ci)
|
||
RETURNS VARCHAR(64) CHARACTER SET ucs2
|
||
BEGIN
|
||
RETURN 'str';
|
||
END|
|
||
|
||
|
||
#
|
||
# COLLATE with no CHARACTER SET in RETURNS
|
||
#
|
||
--error ER_COLLATION_CHARSET_MISMATCH
|
||
CREATE FUNCTION f(f1 VARCHAR(64) CHARACTER SET ucs2)
|
||
RETURNS VARCHAR(64) COLLATE ucs2_unicode_ci
|
||
BEGIN
|
||
RETURN 'str';
|
||
END|
|
||
|
||
|
||
#
|
||
# COLLATE with no CHARACTER SET in DECLARE
|
||
#
|
||
--error ER_COLLATION_CHARSET_MISMATCH
|
||
CREATE FUNCTION f(f1 VARCHAR(64) CHARACTER SET ucs2)
|
||
RETURNS VARCHAR(64) CHARACTER SET ucs2
|
||
BEGIN
|
||
DECLARE f2 VARCHAR(64) COLLATE ucs2_unicode_ci;
|
||
RETURN 'str';
|
||
END|
|
||
|
||
|
||
delimiter ;|
|
||
|
||
#
|
||
# Bug#48766 SHOW CREATE FUNCTION returns extra data in return clause
|
||
#
|
||
SET NAMES utf8;
|
||
--disable_warnings
|
||
DROP FUNCTION IF EXISTS bug48766;
|
||
--enable_warnings
|
||
#
|
||
# Test that Latin letters are not prepended with extra '\0'.
|
||
#
|
||
CREATE FUNCTION bug48766 ()
|
||
RETURNS ENUM( 'w' ) CHARACTER SET ucs2
|
||
RETURN 0;
|
||
SHOW CREATE FUNCTION bug48766;
|
||
SELECT DTD_IDENTIFIER FROM INFORMATION_SCHEMA.ROUTINES
|
||
WHERE ROUTINE_NAME='bug48766';
|
||
DROP FUNCTION bug48766;
|
||
#
|
||
# Test non-Latin characters
|
||
#
|
||
CREATE FUNCTION bug48766 ()
|
||
RETURNS ENUM('а','б','в','г') CHARACTER SET ucs2
|
||
RETURN 0;
|
||
SHOW CREATE FUNCTION bug48766;
|
||
SELECT DTD_IDENTIFIER FROM INFORMATION_SCHEMA.ROUTINES
|
||
WHERE ROUTINE_NAME='bug48766';
|
||
|
||
DROP FUNCTION bug48766;
|