From efe3f9e8ebc5d040cbd60b78cbdd761e0cb6425b Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Wed, 28 May 2014 23:23:28 +0200 Subject: [PATCH] =?UTF-8?q?Changeset:=20260=20fdbozzo=20-=2028/05/2014=202?= =?UTF-8?q?3:16:23:=20-=20Creaci=C3=B3n=20del=20directorio=20DATOS=5FTESTS?= =?UTF-8?q?=20si=20no=20existe=20para=20las=20pruebas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg index b74f346..bdf5490 100644 --- a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg +++ b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg @@ -101,7 +101,14 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM *---------------------------------------------------------------------------------------- PROCEDURE SETUP_COMUN - ERASE (FORCEPATH( '*.*', THIS.cPathDatosTest ) ) + IF DIRECTORY( THIS.cPathDatosTest ) + ERASE (FORCEPATH( '*.*', THIS.cPathDatosTest ) ) + ELSE + TRY + MKDIR (THIS.cPathDatosTest) + CATCH + ENDTRY + ENDIF ENDPROC