From 5afd3ced3aa95f928b27e7db6b2fda406aa6d7fc Mon Sep 17 00:00:00 2001
From: fernando <fernando@.(none)>
Date: Fri, 6 Dec 2013 16:12:10 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=2037=20Changeset:=2037=20Arreglo=20d?=
 =?UTF-8?q?e=20bug=20en=20la=20evaluaci=C3=B3n=20de=20los=20Unit=20Testing?=
 =?UTF-8?q?,=20limpieza=20de=20c=C3=B3digo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 TESTS/ut__foxbin2prg.prg | 6 +++---
 foxbin2prg.prg           | 5 -----
 2 files changed, 3 insertions(+), 8 deletions(-)

diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg
index 143e928..29532e8 100644
--- a/TESTS/ut__foxbin2prg.prg
+++ b/TESTS/ut__foxbin2prg.prg
@@ -216,19 +216,19 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			*-- RESERVED3
 			THIS.assertequals( lnPropsAndComments_Count_Esperado, lnPropsAndComments_Count, "Cantidad de RESERVED3" )
 			FOR I = 1 TO lnPropsAndComments_Count_Esperado
-				THIS.asserttrue( ASCAN( laPropsAndComments, laPropsAndComments_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la Reserved3 "' + TRANSFORM(laPropsAndValues_Esperado(I,1)) + '"' )
+				THIS.asserttrue( ASCAN( laPropsAndComments, laPropsAndComments_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la Reserved3 "' + TRANSFORM(laPropsAndComments_Esperado(I,1)) + '"' )
 			ENDFOR
 
 			*-- PROTECTED
 			THIS.assertequals( lnProtected_Count_Esperado, lnProtected_Count, "Cantidad de PROTECTED" )
 			FOR I = 1 TO lnProtected_Count_Esperado
-				THIS.asserttrue( ASCAN( laProtected, laProtected_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la Protected "' + TRANSFORM(laPropsAndValues_Esperado(I,1)) + '"' )
+				THIS.asserttrue( ASCAN( laProtected, laProtected_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe la Protected "' + TRANSFORM(laProtected_Esperado(I,1)) + '"' )
 			ENDFOR
 
 			*-- METHODS
 			THIS.assertequals( lnMethods_Count_Esperado, lnMethods_Count, "Cantidad de METHODS" )
 			FOR I = 1 TO lnMethods_Count_Esperado
-				THIS.asserttrue( ASCAN( laMethods, laMethods_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe el Method "' + TRANSFORM(laPropsAndValues_Esperado(I,1)) + '"' )
+				THIS.asserttrue( ASCAN( laMethods, laMethods_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobación de que existe el Method "' + TRANSFORM(laMethods_Esperado(I,1)) + '"' )
 			ENDFOR
 
 		ELSE
diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 80de78f..781a89a 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -2685,11 +2685,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 							I = I + 1
 							EXIT
 
-							*CASE .lineIsOnlyCommentAndNoMetadata( @tcLine )
-							*	LOOP	&& Saltear comentarios
-
 						OTHERWISE
-							*toProject.setParsedProjInfoLine( @tcLine )
 							lnPos			= AT( ' ', tcLine, 1 )
 							lnPos2			= AT( '&'+'&', tcLine )
 
@@ -5194,7 +5190,6 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 		ENDTEXT
 
 		IF NOT EMPTY(toRegClass.OLE2)
-			*FDB*	OLEObject="<<STREXTRACT(toRegClass.ole2, 'OLEObject = ', CHR(13)+CHR(10), 1, 1+2)>>"
 			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4+8
 				OLEObject="<<STREXTRACT(toRegClass.ole2, 'OLEObject = ', CHR(13)+CHR(10), 1, 1+2)>>" CheckSum="<<SYS(2007, toRegClass.ole, 0, 1)>>" <<>>
 			ENDTEXT