Test ORACLE directory permissions

declare
file_handle utl_file.file_type;
begin
file_handle := utl_file.FOpen(‘DIRECTORY_NAME’, ‘test.txt’, ‘w’);
utl_file.put_line(file_handle, ‘test’);
utl_file.FFlush(file_handle);
utl_file.FClose(file_handle);
end;