Como testar uma gravação de arquivo em um DIRECTORY do Oracle

Esse teste é muito legal, pois ajuda quando o usuário relata problemas de gravação em diretórios no oracle.
O DIRECTORY do exemplo se chama test_dir e fica no /home/oracle

Esse é o resultado final

E foi assim que fiz, minto, copiei de algum indiano!!!



create directory test_dir as '/home/oracle/'
/

grant read, write on directory test_dir to public
/

create or replace procedure test_write (
dir in varchar2,
filename in varchar2,
firstline in varchar2,
secondline in varchar2)

is
output_file utl_file.file_type;
begin
  output_file := utl_file.fopen (dir,filename, 'W');

  utl_file.put_line (output_file, firstline);
  utl_file.put_line (output_file, secondline);
  utl_file.fclose(output_file);
end;
/

exec test_write('TEST_DIR', 'Teste_Hello_World.txt', 'hello', 'world')
/

Vlw