-- source include/have_debug.inc

--echo #
--echo # MDEV-32101 CREATE PACKAGE [BODY] for sql_mode=DEFAULT
--echo #

DELIMITER $$;
CREATE PACKAGE pkg1
  PROCEDURE p1();
  FUNCTION f1() RETURNS INT;
END;
$$
CREATE PACKAGE BODY pkg1
  PROCEDURE p1()
    BEGIN SELECT 1;
  END;
  FUNCTION f1() RETURNS INT RETURN 1;
END;
$$
DELIMITER ;$$
SHOW PROCEDURE CODE pkg1.p1;
SHOW FUNCTION CODE pkg1.f1;
SHOW PACKAGE BODY CODE pkg1;
DROP PACKAGE pkg1;

DELIMITER $$;
CREATE PACKAGE pkg1
  PROCEDURE p1();
  FUNCTION f1() RETURNS INT;
  PROCEDURE p2show();
  PROCEDURE p2public();
  FUNCTION f2public() RETURNS TEXT;
END;
$$
CREATE PACKAGE BODY pkg1
  DECLARE a INT DEFAULT 10;
  PROCEDURE p1()
  BEGIN
    DECLARE b INT DEFAULT 20;
    SET b=a;
    SET b=a+1;
    SET a=b;
    SET a=b+1;
    SET a=a+1;
    SET @a=@a+2;
    SELECT f1() FROM DUAL;
  END;
  FUNCTION f1() RETURNS INT
  BEGIN
    RETURN a;
  END;
  PROCEDURE p2private()
  BEGIN
    SELECT 'This is p2private';
  END;
  PROCEDURE p2public()
  BEGIN
    SELECT 'This is p2public';
  END;
  FUNCTION f2private() RETURNS TEXT
  BEGIN
    RETURN 'This is f2private';
  END;
  FUNCTION f2public() RETURNS TEXT
  BEGIN
    RETURN 'This is f2public';
  END;
  PROCEDURE p2show()
  BEGIN
    SHOW FUNCTION CODE f2public;
    SHOW FUNCTION CODE f2private;
    SHOW PROCEDURE CODE p2public;
    SHOW PROCEDURE CODE p2private;
    SHOW PROCEDURE CODE p2show;
  END;
  -- Initialization section
  SET a=a+1;
  BEGIN
    DECLARE b INT;
    SET b=a;
    SET b=a+1;
    SET a=b;
    SET a=b+1;
  END;
END;
$$
DELIMITER ;$$

SHOW PROCEDURE CODE pkg1.p1;
SHOW FUNCTION CODE pkg1.f1;
SHOW PACKAGE BODY CODE pkg1;
CALL pkg1.p2show;

DROP PACKAGE pkg1;


CREATE TABLE t1 (a INT);
DELIMITER $$;
CREATE PACKAGE pkg1
  PROCEDURE p1();
END;
$$
CREATE PACKAGE BODY pkg1
  DECLARE a TYPE OF t1.a DEFAULT 10;
  PROCEDURE p1()
  BEGIN
    DECLARE b TYPE OF t1.a DEFAULT 20;
    SET b=a;
    SET b=a+1;
    SET b=b+1;
    SET a=b;
    SET a=b+1;
    SET a=a+1;
  END;
  -- Initialization section
  SET a=a+1;
  BEGIN
    DECLARE b TYPE OF t1.a;
    SET b=a;
    SET b=a+1;
    SET a=b;
    SET a=b+1;
  END;
END;
$$
DELIMITER ;$$
SHOW PROCEDURE CODE pkg1.p1;
SHOW PACKAGE BODY CODE pkg1;
DROP PACKAGE pkg1;
DROP TABLE t1;


DELIMITER $$;
CREATE PACKAGE pkg1
  PROCEDURE p1();
END;
$$
CREATE PACKAGE BODY pkg1
  DECLARE a ROW(a INT,b TEXT) DEFAULT ROW(10,'x10');
  PROCEDURE p1()
  BEGIN
    DECLARE b ROW(a INT,b TEXT) DEFAULT ROW(20,'x20');
    SET b=a;
    SET a=b;
    SET b.a=a.a+1;
    SET a.a=b.a+1;
    SET a.a=a.a+1;
  END;
  -- Initialization section
  SET a.a:=a.a+1;
  BEGIN
    DECLARE b ROW(a INT,b TEXT) DEFAULT ROW(30,'x30');
    SET b=a;
    SET b.a=a.a+1;
    SET a=b;
    SET a.a=b.a+1;
  END;
END;
$$
DELIMITER ;$$
SHOW PROCEDURE CODE pkg1.p1;
SHOW PACKAGE BODY CODE pkg1;
DROP PACKAGE pkg1;


CREATE TABLE t1 (a INT, b TEXT);
DELIMITER $$;
CREATE PACKAGE pkg1
  PROCEDURE p1();
END;
$$
CREATE PACKAGE BODY pkg1
  DECLARE a ROW TYPE OF t1 DEFAULT ROW(10,'x10');
  PROCEDURE p1()
  BEGIN
    DECLARE b ROW TYPE OF t1 DEFAULT ROW(20,'x20');
    SET b=a;
    SET a=b;
    SET b.a=a.a+1;
    SET a.a=b.a+1;
    SET a.a=a.a+1;
  END;
  -- Initialization section
  SET a.a=a.a+1;
  BEGIN
    DECLARE b ROW TYPE OF t1 DEFAULT ROW(30,'x30');
    SET b=a;
    SET b.a=a.a+1;
    SET a=b;
    SET a.a=b.a+1;
  END;
END;
$$
DELIMITER ;$$
SHOW PROCEDURE CODE pkg1.p1;
SHOW PACKAGE BODY CODE pkg1;
DROP PACKAGE pkg1;
DROP TABLE t1;


--echo # Start of 11.4 tests

--echo #
--echo # MDEV-36047 Package body variables are not allowed as FETCH targets
--echo #

--source include/sp-cursor-pkg-01.inc
SELECT pkg.f1() FROM DUAL;
SHOW FUNCTION CODE pkg.f1;
SHOW PACKAGE BODY CODE pkg;
DROP PACKAGE pkg;

--source include/sp-cursor-pkg-02.inc
SELECT pkg.f1() FROM DUAL;
SHOW FUNCTION CODE pkg.f1;
DROP PACKAGE pkg;

--source include/sp-cursor-pkg-03.inc
SELECT pkg.f1() FROM DUAL;
SHOW FUNCTION CODE pkg.f1;
DROP PACKAGE pkg;

--echo # End of 11.4 tests