From e9727e69ae278ce7b62243aa526ba653fe2bf4ed Mon Sep 17 00:00:00 2001
From: fernando <fernando@.(none)>
Date: Sat, 7 Dec 2013 16:32:52 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=2048=20Changeset:=2048=20Nuevo=20tes?=
 =?UTF-8?q?t=20de=20bloques=20de=20exclusi=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 ...or_base__IdentificarBloquesDeExclusion.prg | 127 ++++++++++++++++++
 1 file changed, 127 insertions(+)
 create mode 100644 TESTS/ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion.prg

diff --git a/TESTS/ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion.prg b/TESTS/ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion.prg
new file mode 100644
index 0000000..da7c064
--- /dev/null
+++ b/TESTS/ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion.prg
@@ -0,0 +1,127 @@
+DEFINE CLASS ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion as FxuTestCase OF FxuTestCase.prg
+
+	#IF .F.
+		LOCAL THIS AS ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion OF ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion.PRG
+	#ENDIF
+	
+	#DEFINE C_PROC		'PROCEDURE'
+	#DEFINE C_ENDPROC	'ENDPROC'
+	#DEFINE C_TEXT		'TEXT'
+	#DEFINE C_ENDTEXT	'ENDTEXT'
+	#DEFINE C_IF_F		'#IF .F.'
+	#DEFINE C_ENDIF		'#ENDIF'
+	icObj = NULL
+	
+	*******************************************************************************************************************************************
+	FUNCTION Setup
+		THIS.icObj = NEWOBJECT("c_conversor_prg_a_bin", "FOXBIN2PRG.PRG")
+
+	ENDFUNC
+
+	
+	*******************************************************************************************************************************************
+	FUNCTION TearDown
+		THIS.icObj = NULL
+	ENDFUNC
+
+
+	*******************************************************************************************************************************************
+	FUNCTION Evaluate_results
+		LPARAMETERS taExpected_Pos, taPos, tnPos_Count
+
+		LOCAL loObj AS c_conversor_base OF "FOXBIN2PRG.PRG"
+		loObj	= THIS.icObj
+
+		IF PCOUNT() = 0
+			THIS.messageout( "* Support method, not a valid test." )
+			RETURN .T.
+		ENDIF
+		
+		THIS.messageout( "Pares de posiciones esperados: " + TRANSFORM(tnPos_Count) )
+		FOR I = 1 TO tnPos_Count
+			THIS.messageout( "Posición de Inicio/Fin esperados: " + TRANSFORM(taExpected_Pos(I,1)) + ',' + TRANSFORM(taExpected_Pos(I,2)) )
+		ENDFOR
+		
+		THIS.assertequals( ALEN(taExpected_Pos,1), ALEN(taPos,1), "Posición de Inicio/Fin" )
+
+		FOR I = 1 TO tnPos_Count
+			THIS.assertequals( TRANSFORM(taExpected_Pos(I,1)) + ',' + TRANSFORM(taExpected_Pos(I,2)) ;
+				, TRANSFORM(taPos(I,1)) + ',' + TRANSFORM(taPos(I,2)) ;
+				, "Posición de Inicio/Fin" )
+		ENDFOR
+	ENDFUNC
+
+
+	*******************************************************************************************************************************************
+	FUNCTION Deberia_ObtenerLaUbicacionDelBloque_IF_ENDIF_CuandoCodigoCon_IF_ENDIF_predominante_esEvaluado
+		LOCAL lcMethod, laLineas(1), lnLineas, laPos(1,2), lnPos_Count, laExpected_Pos(2,2)
+		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)	= 3
+		laExpected_Pos(1,2)	= 5
+		laExpected_Pos(2,1)	= 7
+		laExpected_Pos(2,2)	= 9
+
+		TEXT TO lcMethod NOSHOW TEXTMERGE FLAGS 1 PRETEXT 1+2+4
+			<<C_PROC>> myMethod_B
+				*-- Code Block
+				<<C_IF_F>>
+					<<C_TEXT>>
+				<<C_ENDIF>>
+				*-- Code Block
+				<<C_IF_F>>
+					<<C_ENDTEXT>>
+				<<C_ENDIF>>
+			<<C_ENDPROC>>
+		ENDTEXT
+		
+		lnLineas	= ALINES( laLineas, lcMethod )
+
+		*-- Test
+		loObj.identificarBloquesDeExclusion( @laLineas, lnLineas, , @laPos, @lnPos_Count )
+		
+		THIS.Evaluate_results( @laExpected_Pos, @laPos, lnPos_Count )
+		
+	ENDFUNC
+
+
+	*******************************************************************************************************************************************
+	FUNCTION Deberia_ObtenerLaUbicacionDelBloque_TEXT_ENDTEXT_CuandoCodigoCon_TEXT_ENDTEXT_predominante_esEvaluado
+		LOCAL lcMethod, laLineas(1), lnLineas, laPos(1,2), lnPos_Count, laExpected_Pos(2,2)
+		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)	= 3
+		laExpected_Pos(1,2)	= 5
+		laExpected_Pos(2,1)	= 7
+		laExpected_Pos(2,2)	= 9
+
+		TEXT TO lcMethod NOSHOW TEXTMERGE FLAGS 1 PRETEXT 1+2+4
+			<<C_PROC>> myMethod_B
+				*-- Code Block
+				<<C_TEXT>>
+					<<C_IF_F>>
+				<<C_ENDTEXT>>
+				*-- Code Block
+				<<C_TEXT>>
+					<<C_ENDIF>>
+				<<C_ENDTEXT>>
+			<<C_ENDPROC>>
+		ENDTEXT
+		
+		lnLineas	= ALINES( laLineas, lcMethod )
+
+		*-- Test
+		loObj.identificarBloquesDeExclusion( @laLineas, lnLineas, , @laPos, @lnPos_Count )
+		
+		THIS.Evaluate_results( @laExpected_Pos, @laPos, lnPos_Count )
+		
+	ENDFUNC
+
+
+ENDDEFINE