diff --git a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg index bdf5490..1fc2256 100644 --- a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg +++ b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg @@ -122,7 +122,14 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM PROCEDURE copiarArchivosParaTest LPARAMETERS tcFileSpec - COPY FILE (FORCEPATH( tcFileSpec, THIS.cPathDatosReadOnly )) TO (FORCEPATH( tcFileSpec, THIS.cPathDatosTest )) + TRY + LOCAL loEx as Exception + COPY FILE (FORCEPATH( tcFileSpec, THIS.cPathDatosReadOnly )) TO (FORCEPATH( tcFileSpec, THIS.cPathDatosTest )) + + CATCH TO loEx + SET STEP ON + THROW + ENDTRY ENDPROC