Changeset: 26 Changeset: 26

TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg

@@ -0,0 +1,89 @@
+*-- M<>dulo:		fxu_lib_objetos_y_funciones_de_soporte.PRG
+*-- Autor:		Fernando D. Bozzo - 30/11/2013
+*-- Detalle:	LIBRER<45>A DE SOPORTE DE LOS TESTS PARA OBJETOS Y FUNCIONES DE FOXBIN2PRG
+*----------------------------------------------------------------------------------------
+
+
+DEFINE CLASS CL_FXU_CONFIG AS CUSTOM
+	#IF .F.
+		LOCAL THIS AS CL_FXU_CONFIG OF 'fxu_lib_objetos_y_funciones_de_soporte.PRG'
+	#ENDIF
+
+	_MEMBERDATA	= [<VFPData>] ;
+		+ [<memberdata name="cpath" display="cPath"/>] ;
+		+ [<memberdata name="coldpath" display="cOldPath"/>] ;
+		+ [<memberdata name="cpathdatosreadonly" display="cPathDatosReadOnly"/>] ;
+		+ [<memberdata name="cpathdatostest" display="cPathDatosTest"/>] ;
+		+ [<memberdata name="copiararchivosparatest" display="copiarArchivosParaTest"/>] ;
+		+ [<memberdata name="csetdate" display="cSetDate"/>] ;
+		+ [<memberdata name="mejorarpresentacioncaracteresespeciales" display="mejorarPresentacionCaracteresEspeciales"/>] ;
+		+ [</VFPData>]
+
+
+	cOldPath			= ''
+	cPath				= 'FOXUNIT;TESTS;TESTS\DATOS_TEST'
+	cPathDatosReadOnly	= 'TESTS\DATOS_READONLY'
+	cPathDatosTest		= 'TESTS\DATOS_TEST'
+	cSetDate			= ''
+	
+
+	*----------------------------------------------------------------------------------------
+	PROCEDURE INIT
+		THIS.cSetDate	= SET("Date")
+		
+		SET DATE TO YMD
+		SET HOURS TO 24
+		SET SAFETY OFF
+		SET TABLEPROMPT OFF
+		SET TALK OFF
+
+		THIS.cOldPath	= SET("Path")
+		SET PATH TO (THIS.cPath)
+	ENDPROC
+
+
+	*----------------------------------------------------------------------------------------
+	PROCEDURE DESTROY
+		SET PATH TO (THIS.cOldPath)
+		SET DATE (THIS.cSetDate)
+	ENDPROC
+
+
+	*----------------------------------------------------------------------------------------
+	PROCEDURE SETUP_COMUN
+
+	ENDPROC
+
+
+	*----------------------------------------------------------------------------------------
+	PROCEDURE TEARDOWN_COMUN
+
+	ENDPROC
+
+
+	*----------------------------------------------------------------------------------------
+	PROCEDURE copiarArchivosParaTest
+		LPARAMETERS tcFileSpec
+		
+		COPY FILE (FORCEPATH( tcFileSpec, THIS.cPathDatosReadOnly )) TO (FORCEPATH( tcFileSpec, THIS.cPathDatosTest ))
+	ENDPROC
+
+
+	*----------------------------------------------------------------------------------------
+	FUNCTION mejorarPresentacionCaracteresEspeciales
+		LPARAMETERS tcText
+		RETURN STRTRAN( ;
+			STRTRAN( ;
+			STRTRAN( ;
+			STRTRAN( ;
+			STRTRAN( ;
+			STRTRAN( tcText, CHR(13)+CHR(10), '<CRLF>' ) ;
+			, CHR(13), '<CR>' ) ;
+			, CHR(10), '<LF>' ) ;
+			, CHR(9), '<TAB>' ) ;
+			, ' ', '<27>' ) ;
+			, '<CRLF>', '<CRLF>'+CHR(13)+CHR(10) )
+	ENDFUNC
+
+
+ENDDEFINE