Changeset: 270 fdbozzo - 04/06/2014 23:35:36:

Ajuste de test y limpieza
2014-06-05 00:10:20 +02:00
parent 3be2989f90
commit 2714822af0
8 changed files with 27 additions and 9 deletions
--- a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg
+++ b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg
@@ -102,10 +102,17 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM
 	*----------------------------------------------------------------------------------------
 	PROCEDURE SETUP_COMUN
 		IF DIRECTORY( THIS.cPathDatosTest )
-			ERASE (FORCEPATH( '*.*', THIS.cPathDatosTest ) )
+			ERASE ( FORCEPATH( '*.*', THIS.cPathDatosTest ) )
 		ELSE
 			TRY
-				MKDIR (THIS.cPathDatosTest)
+				MKDIR ( THIS.cPathDatosTest )
+			CATCH
+			ENDTRY
+		ENDIF
+
+		IF NOT DIRECTORY( ADDBS(THIS.cPathDatosTest) + 'bmps' )
+			TRY
+				MKDIR ( ADDBS(THIS.cPathDatosTest) + 'bmps' )
 			CATCH
 			ENDTRY
 		ENDIF