Changeset: 260 fdbozzo - 28/05/2014 23:16:23:

- Creación del directorio DATOS_TESTS si no existe para las pruebas
2014-05-28 23:23:28 +02:00
parent 3e7a80557e
commit efe3f9e8eb
1 changed files with 8 additions and 1 deletions
--- 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