Changeset: 40 Changeset: 40 Agregado CP para UT de espacios y TABS; arreglo RESERVED3

TESTS/ut__foxbin2prg.prg

@@ -72,31 +72,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 
 		*-- TEST
 		TRY
-*!*				loCnv	= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
-*!*				*loCnv.l_Debug		= .F.
-*!*				loCnv.l_ShowErrors	= .F.
-*!*				*loCnv.l_Test		= .T.
 			lcTipoBinario		= UPPER( JUSTEXT( tc_OutputFile ) )
 
-*!*				lnCodError	= loCnv.Convertir( tc_OutputFile, @loModulo, @toEx )
-
-*!*				IF lnCodError > 0
-*!*					EXIT
-*!*				ENDIF
-
-*!*				DO CASE
-*!*				CASE lcTipoBinario = 'SCX'
-*!*					lnCodError	= loCnv.Convertir( FORCEEXT(tc_OutputFile,'SC2'), @loModulo, @toEx )
-*!*				CASE lcTipoBinario = 'VCX'
-*!*					lnCodError	= loCnv.Convertir( FORCEEXT(tc_OutputFile,'VC2'), @loModulo, @toEx )
-*!*				OTHERWISE
-*!*					ERROR 'Archivo [' + tc_OutputFile + '] no contemplado en los tests!'
-*!*				ENDCASE
-
-*!*				IF lnCodError > 0
-*!*					EXIT
-*!*				ENDIF
-
 			IF FILE(tc_OutputFile)
 				SELECT 0
 				USE (tc_OutputFile) SHARED NOUPDATE ALIAS TABLABIN
@@ -162,7 +139,6 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			*-- Visualizaci<63>n de valores
 			THIS.messageout( LOWER(PROGRAM(PROGRAM(-1)-1)) )
 
-			THIS.messageout( '' )
 			THIS.messageout( 'PROPERTIES esperadas para ' + lcExtraData + ': ' ;
 				+ TRANSFORM(lnPropsAndValues_Count_Esperado) + ' (Tama<6D>o = ' + TRANSFORM(LEN(toReg_Esperado.PROPERTIES)) + ' bytes)' )
 			*THIS.messageout( REPLICATE('-',80) )
@@ -170,7 +146,6 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			*	THIS.messageout( 'PropName = ' + TRANSFORM(laPropsAndValues_Esperado(I,1)) )
 			*ENDFOR
 
-			THIS.messageout( '' )
 			THIS.messageout( 'PROTECTED esperadas para ' + lcExtraData + ': ' ;
 				+ TRANSFORM(lnProtected_Count_Esperado) + ' (Tama<6D>o = ' + TRANSFORM(LEN(toReg_Esperado.PROTECTED)) + ' bytes)' )
 			*THIS.messageout( REPLICATE('-',80) )
@@ -178,7 +153,6 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			*	THIS.messageout( 'PropName = ' + TRANSFORM(laProtected_Esperado(I,1)) )
 			*ENDFOR
 
-			THIS.messageout( '' )
 			THIS.messageout( 'RESERVED3 esperadas para ' + lcExtraData + ': ' ;
 				+ TRANSFORM(lnPropsAndComments_Count_Esperado) + ' (Tama<6D>o = ' + TRANSFORM(LEN(toReg_Esperado.RESERVED3)) + ' bytes)' )
 			*THIS.messageout( REPLICATE('-',80) )
@@ -186,7 +160,6 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			*	THIS.messageout( 'PropName = ' + TRANSFORM(laPropsAndComments_Esperado(I,1)) )
 			*ENDFOR
 
-			THIS.messageout( '' )
 			THIS.messageout( 'METHODS esperadas para ' + lcExtraData + ': ' ;
 				+ TRANSFORM(lnMethods_Count_Esperado) + ' (Tama<6D>o = ' + TRANSFORM(LEN(toReg_Esperado.METHODS)) + ' bytes)' )
 			*THIS.messageout( REPLICATE('-',80) )
@@ -194,30 +167,36 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			*	THIS.messageout( 'Name = ' + TRANSFORM(laMethods_Esperado(I,1)) )
 			*ENDFOR
 
-			THIS.messageout( '' )
 			THIS.messageout( 'OLE2 esperado para ' + lcExtraData + ': ' + TRANSFORM(toReg_Esperado.OLE2) )
 
-			THIS.messageout( '' )
 			THIS.messageout( 'Checksum OLE esperado para ' + lcExtraData + ': ' + TRANSFORM(SYS(2007, toReg_Esperado.OLE)) )
 
 
 			*-- Evaluaci<63>n de valores
 			THIS.assertequals( toReg_Esperado.Reserved1, toReg.Reserved1, "Valor de RESERVED1 para " + lcExtraData )
 			THIS.assertequals( LEN(toReg_Esperado.Reserved1), LEN(toReg.Reserved1), "Tama<6D>o de RESERVED1 para " + lcExtraData )
+
 			THIS.assertequals( toReg_Esperado.Reserved2, toReg.Reserved2, "Valor de RESERVED2 para " + lcExtraData )
 			THIS.assertequals( LEN(toReg_Esperado.Reserved2), LEN(toReg.Reserved2), "Tama<6D>o de RESERVED2 para " + lcExtraData )
+
 			THIS.assertequals( toReg_Esperado.Reserved4, toReg.Reserved4, "Valor de RESERVED4 para " + lcExtraData )
 			THIS.assertequals( LEN(toReg_Esperado.Reserved4), LEN(toReg.Reserved4), "Tama<6D>o de RESERVED4 para " + lcExtraData )
+
 			THIS.assertequals( toReg_Esperado.Reserved5, toReg.Reserved5, "Valor de RESERVED5 para " + lcExtraData )
 			THIS.assertequals( LEN(toReg_Esperado.Reserved5), LEN(toReg.Reserved5), "Tama<6D>o de RESERVED5 para " + lcExtraData )
+
 			THIS.assertequals( toReg_Esperado.Reserved6, toReg.Reserved6, "Valor de RESERVED6 para " + lcExtraData )
 			THIS.assertequals( LEN(toReg_Esperado.Reserved6), LEN(toReg.Reserved6), "Tama<6D>o de RESERVED6 para " + lcExtraData )
+
 			THIS.assertequals( toReg_Esperado.Reserved7, toReg.Reserved7, "Valor de RESERVED7 para " + lcExtraData )
 			THIS.assertequals( LEN(toReg_Esperado.Reserved7), LEN(toReg.Reserved7), "Tama<6D>o de RESERVED7 para " + lcExtraData )
+
 			THIS.assertequals( toReg_Esperado.Reserved8, toReg.Reserved8, "Valor de RESERVED8 para " + lcExtraData )
 			THIS.assertequals( LEN(toReg_Esperado.Reserved8), LEN(toReg.Reserved8), "Tama<6D>o de RESERVED8 para " + lcExtraData )
+
 			THIS.assertequals( toReg_Esperado.OLE2, toReg.OLE2, "Valor de OLE2 para " + lcExtraData )
 			THIS.assertequals( LEN(toReg_Esperado.OLE2), LEN(toReg.OLE2), "Tama<6D>o de OLE2 para " + lcExtraData )
+
 			THIS.assertequals( SYS(2007, toReg_Esperado.OLE), SYS(2007, toReg.OLE), "Valor de OLE (Checksum) para " + lcExtraData )
 			THIS.assertequals( LEN(toReg_Esperado.OLE), LEN(toReg.OLE), "Tama<6D>o de OLE para " + lcExtraData )
 
@@ -246,7 +225,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 			ENDFOR
 
 			*-- METHODS
-			THIS.assertequals( LEN(toReg_Esperado.METHODS), LEN(toReg.METHODS), "Tama<6D>o de METHODS para " + lcExtraData )
+			THIS.assertequals( LEN( STRTRAN( toReg_Esperado.METHODS, CHR(13)+CHR(10), CHR(13) ) ) ;
+				, LEN( STRTRAN( toReg.METHODS, CHR(13)+CHR(10), CHR(13) ) ), "Tama<6D>o de METHODS para " + lcExtraData )
 			THIS.assertequals( lnMethods_Count_Esperado, lnMethods_Count, "Cantidad de METHODS para " + lcExtraData )
 			FOR I = 1 TO lnMethods_Count_Esperado
 				THIS.asserttrue( ASCAN( laMethods, laMethods_Esperado(I,1), 1, -1, 1, 0+2+4) > 0 ;
@@ -337,14 +317,16 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 		TRY
 			loEx		= NULL
 			loCnv		= NEWOBJECT("c_foxbin2prg", "FOXBIN2PRG.PRG")
-			*loCnv.l_Debug		= .F.
-			loCnv.l_ShowErrors	= .F.
-			*loCnv.l_Test		= .T.
+			*loCnv.l_Debug				= .F.
+			loCnv.l_ShowErrors			= .F.
+			*loCnv.l_Test				= .T.
+			loCnv.l_PropSort_Enabled	= .F.	&& Para buscar diferencias
+			loCnv.l_MethodSort_Enabled	= .F.	&& Para buscar diferencias
 
 
 			*-- DATOS DE ENTRADA
 			STORE 0 TO lnCodError
-			lc_File				= 'THCALC.VCX' &&'fb2p_test.vcx'
+			lc_File				= 'fb2p_test.vcx' && 'THCALC.VCX' && 
 			lc_InputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' )
 			lc_OutputFile		= FORCEPATH( lc_File, 'TESTS\DATOS_TEST' )