Como testar um Member procedure?

[acoplack]

Pessoal,

como faço para testar um member procedure por exemplo no caso abaixo.

Selecionar tudo

 

CREATE TYPE person_typ AS OBJECT (
name VARCHAR2(20),
MEMBER PROCEDURE display_details ( SELF IN OUT NOCOPY person_typ ));

CREATE TYPE BODY person_typ AS
MEMBER PROCEDURE display_details ( SELF IN OUT NOCOPY person_typ ) IS
BEGIN

DBMS_OUTPUT.PUT_LINE(self.name);
END;
END;

Antenciosamente.

[fsitja]

Selecionar tudo

SQL> set serveroutput on
SQL> 
SQL> declare
  2    v_obj person_typ;
  3  begin
  4    v_obj := person_typ('MEU_NOME');
  5    v_obj.display_details;
  6  end;
  7  /

MEU_NOME

PL/SQL procedure successfully completed

SQL>