From c27b74567329e1c37f2a027f07e11fc483613116 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Tue, 26 Aug 2014 22:33:13 +0200
Subject: [PATCH] Changeset: 424 fdbozzo - 26/08/2014 22:28:21: - Nuevo caso de
 Unit Testing para comprobar que una propiedad llamada "Text" no se reconoce
 como estructura Text/EndText

---
 ...or_base__IdentificarBloquesDeExclusion.prg | 45 +++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/TESTS/ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion.prg b/TESTS/ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion.prg
index df7d0bd..8d47e20 100644
--- a/TESTS/ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion.prg
+++ b/TESTS/ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion.prg
@@ -343,6 +343,51 @@ DEFINE CLASS ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion as
 	ENDFUNC
 
 
+	*******************************************************************************************************************************************
+	FUNCTION Deberia_NoEncontrarBloque_TEXT_ENDTEXT_CuandoExisteUnaPropiedadLlamada_Text
+		LOCAL lcMethod, laLineas(1), lnLineas, laPos(1,2), lnPos_Count, laExpected_Pos(1,2) ;
+			, laLineasExclusion(19), laLineasExclusion_Esperadas(19)
+		LOCAL loObj AS c_conversor_prg_a_bin OF "FOXBIN2PRG.PRG"
+		loObj	= THIS.icObj
+		
+		*-- Input and expected params
+		STORE '' TO lcMethod
+		laExpected_Pos(1,1)	= 0
+		laExpected_Pos(1,2)	= 0
+
+		TEXT TO lcMethod NOSHOW TEXTMERGE FLAGS 1 PRETEXT 1+2
+			DEFINE CLASS test AS custom 
+			 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
+				*<DefinedPropArrayMethod>
+					*m: text_access
+					*m: text_assign
+					*p: text		&& Returns all of the text in a text-entry area of a control.
+				*</DefinedPropArrayMethod>
+				
+				text = 		PRETEXT
+				
+				PROCEDURE text_access
+					RETURN THIS.text
+				ENDPROC
+
+				PROCEDURE text_assign
+					LPARAMETERS vNewVal		
+					THIS.text = m.vNewVal
+				ENDPROC
+			ENDDEFINE
+		ENDTEXT
+		
+		lnLineas	= ALINES( laLineas, lcMethod )
+
+		*-- Test
+		loObj.identificarBloquesDeExclusion( @laLineas, lnLineas, , @laLineasExclusion, @lnPos_Count, @laPos )
+		
+		*-- Evaluación de resultados
+		THIS.Evaluate_results( @laExpected_Pos, @laPos, lnPos_Count, @laLineasExclusion_Esperadas, @laLineasExclusion )
+		
+	ENDFUNC
+
+
 	*******************************************************************************************************************************************
 	FUNCTION Deberia_EncontrarBloque_TEXT_ENDTEXT_CuandoEvaluaUnaLineaQueTerminaConUn_EndText_YLineaAnteriorTerminaEn_Coma
 		LOCAL lcMethod, laLineas(1), lnLineas, laPos(1,2), lnPos_Count, laExpected_Pos(1,2) ;