mirror of
https://github.com/MariaDB/server.git
synced 2026-02-06 02:39:08 +01:00
6fe391d2aa
Embedded mode produces different thread identifiers, which makes
replace_result replace unwanted occurences. Use temporary table
for filtering out unwanted threads such that replace_result is
not needed anymore.
This is regression after 0eebe3a98f.
115 lines
2.9 KiB
Text
115 lines
2.9 KiB
Text
--source include/have_metadata_lock_info.inc
|
|
|
|
#
|
|
# This test demonstrates that:
|
|
# - A call to a package routine acquires a shared MDL lock on the entire package
|
|
# - "DROP PACKAGE" waits until the currently running package routines end
|
|
#
|
|
|
|
SET sql_mode=ORACLE;
|
|
DO GET_LOCK('lock',300);
|
|
|
|
|
|
#
|
|
# conn1 will execute package pkg1 routines and
|
|
# and therefore acquire a shared MDL on "package body pkg1"
|
|
#
|
|
|
|
connect (conn1,localhost,root,,);
|
|
SET sql_mode=ORACLE;
|
|
let $conn1_id= `SELECT CONNECTION_ID()`;
|
|
DELIMITER $$;
|
|
CREATE PACKAGE pkg1 AS
|
|
PROCEDURE p1;
|
|
FUNCTION f1 RETURN INT;
|
|
END;
|
|
$$
|
|
CREATE PACKAGE BODY pkg1 AS
|
|
PROCEDURE p1 AS
|
|
BEGIN
|
|
DO GET_LOCK('lock',300);
|
|
END;
|
|
FUNCTION f1 RETURN INT AS
|
|
BEGIN
|
|
CALL p1;
|
|
RETURN 1;
|
|
END;
|
|
END;
|
|
$$
|
|
DELIMITER ;$$
|
|
send SELECT pkg1.f1();
|
|
|
|
#
|
|
# wait for conn1 to actually start execution of pkg1.p1
|
|
#
|
|
|
|
connection default;
|
|
let $wait_timeout= 60;
|
|
let $wait_condition= SELECT 1 FROM INFORMATION_SCHEMA.PROCESSLIST
|
|
WHERE ID=$conn1_id AND INFO LIKE '%GET_LOCK%' AND STATE='User lock';
|
|
--source include/wait_condition.inc
|
|
|
|
|
|
#
|
|
# conn2 will do "DROP PACKAGE pkg1".
|
|
# It will acquire an exclusive MDL on "package body pkg1", and therefore
|
|
# it should wait until conn1 ends the package routine execution
|
|
#
|
|
|
|
connect (conn2,localhost,root,,);
|
|
let $conn2_id= `SELECT CONNECTION_ID()`;
|
|
SET sql_mode=ORACLE;
|
|
send DROP PACKAGE pkg1;
|
|
|
|
#
|
|
# wait for conn2 to actually enter the "DROP" statement and get locked by conn1
|
|
#
|
|
connection default;
|
|
let $wait_timeout= 60;
|
|
let $wait_condition= SELECT 1 FROM INFORMATION_SCHEMA.PROCESSLIST
|
|
WHERE ID=$conn2_id
|
|
AND INFO LIKE '%DROP PACKAGE%'
|
|
AND STATE='Waiting for stored package body metadata lock';
|
|
--source include/wait_condition.inc
|
|
|
|
#
|
|
# Now we have three threads involved.
|
|
# The following I_S query will check that the threads are in these states:
|
|
#
|
|
# default (0) - is holding a user lock 'lock'
|
|
# conn1 (1) - is executing the package procedure test.pkg1.p1,
|
|
# is holding a shared MDL on 'package body pkg1',
|
|
# is waiting for the user lock 'lock' to be released
|
|
# conn2 (2) - is waiting for 'conn1' to end execution of test.pkg1.* routines,
|
|
# to acquire an exclusive MDL on 'package body pkg1',
|
|
# to DROP the package pkg1
|
|
#
|
|
CREATE TEMPORARY TABLE mythreads(t_id INT UNSIGNED NOT NULL, t_name VARCHAR(16));
|
|
evalp INSERT INTO mythreads VALUES(CONNECTION_ID(), 'default_id'),($conn1_id, 'conn1_id'),($conn2_id, 'conn2_id');
|
|
--vertical_results
|
|
SELECT t_name AS CONN,INFO,STATE,LOCK_MODE,LOCK_TYPE,TABLE_NAME
|
|
FROM INFORMATION_SCHEMA.PROCESSLIST
|
|
INNER JOIN mythreads
|
|
ON (ID=t_id)
|
|
LEFT JOIN INFORMATION_SCHEMA.METADATA_LOCK_INFO
|
|
ON (ID=THREAD_ID)
|
|
ORDER BY ID,TABLE_NAME,LOCK_MODE,LOCK_TYPE;
|
|
--horizontal_results
|
|
DROP TABLE mythreads;
|
|
|
|
#
|
|
# Now let conn1 finish the package routine execution
|
|
#
|
|
DO RELEASE_LOCK('lock');
|
|
connection conn1;
|
|
reap;
|
|
disconnect conn1;
|
|
|
|
#
|
|
# Now conn2 should actually DROP the package
|
|
#
|
|
connection conn2;
|
|
reap;
|
|
disconnect conn2;
|
|
|
|
connection default;
|