Changeset: 41 Changeset: 41 .
This commit is contained in:
fernando
Binary file not shown.
Binary file not shown.
@@ -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
|
||||
@@ -133,7 +110,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||||
LOCAL laPropsAndValues(1,2), lnPropsAndValues_Count, laPropsAndValues_Esperado(1,2), lnPropsAndValues_Count_Esperado ;
|
||||
, lnPropsAndComments_Count, lnPropsAndComments_Count_Esperado, laPropsAndComments(1,2), laPropsAndComments_Esperado(1,2) ;
|
||||
, laProtected(1), lnProtected_Count, laProtected_Esperado(1), lnProtected_Count_Esperado ;
|
||||
, laMethods(1,2), lnMethods_Count, laMethods_Esperado(1,2), lnMethods_Count_Esperado
|
||||
, laMethods(1,2), lnMethods_Count, laMethods_Esperado(1,2), lnMethods_Count_Esperado, lcExtraData
|
||||
LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG"
|
||||
|
||||
*-- Algunos ajustes para mejor visualizaci<63>n de caracteres especiales
|
||||
@@ -156,79 +133,104 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
|
||||
loObj.get_ADD_OBJECT_METHODS( toReg, toReg, '', @laMethods, '', @lnMethods_Count )
|
||||
loObj.get_ADD_OBJECT_METHODS( toReg_Esperado, toReg_Esperado, '', @laMethods_Esperado, '', @lnMethods_Count_Esperado )
|
||||
|
||||
lcExtraData = tcParent + '.' + tcObjName + ' (' + tcClass + ')'
|
||||
|
||||
|
||||
*-- Visualizaci<63>n de valores
|
||||
THIS.messageout( LOWER(PROGRAM(PROGRAM(-1)-1)) )
|
||||
|
||||
THIS.messageout( '' )
|
||||
THIS.messageout( 'PROPERTIES esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnPropsAndValues_Count_Esperado) )
|
||||
THIS.messageout( 'PROPERTIES esperadas para ' + lcExtraData + ': ' ;
|
||||
+ TRANSFORM(lnPropsAndValues_Count_Esperado) + ' (Tama<6D>o = ' + TRANSFORM(LEN(toReg_Esperado.PROPERTIES)) + ' bytes)' )
|
||||
*THIS.messageout( REPLICATE('-',80) )
|
||||
*FOR I = 1 TO lnPropsAndValues_Count_Esperado
|
||||
* THIS.messageout( 'PropName = ' + TRANSFORM(laPropsAndValues_Esperado(I,1)) )
|
||||
*ENDFOR
|
||||
|
||||
THIS.messageout( '' )
|
||||
THIS.messageout( 'PROTECTED esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnProtected_Count_Esperado) )
|
||||
THIS.messageout( 'PROTECTED esperadas para ' + lcExtraData + ': ' ;
|
||||
+ TRANSFORM(lnProtected_Count_Esperado) + ' (Tama<6D>o = ' + TRANSFORM(LEN(toReg_Esperado.PROTECTED)) + ' bytes)' )
|
||||
*THIS.messageout( REPLICATE('-',80) )
|
||||
*FOR I = 1 TO lnProtected_Count_Esperado
|
||||
* THIS.messageout( 'PropName = ' + TRANSFORM(laProtected_Esperado(I,1)) )
|
||||
*ENDFOR
|
||||
|
||||
THIS.messageout( '' )
|
||||
THIS.messageout( 'RESERVED3 esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnPropsAndComments_Count_Esperado) )
|
||||
THIS.messageout( 'RESERVED3 esperadas para ' + lcExtraData + ': ' ;
|
||||
+ TRANSFORM(lnPropsAndComments_Count_Esperado) + ' (Tama<6D>o = ' + TRANSFORM(LEN(toReg_Esperado.RESERVED3)) + ' bytes)' )
|
||||
*THIS.messageout( REPLICATE('-',80) )
|
||||
*FOR I = 1 TO lnPropsAndComments_Count_Esperado
|
||||
* THIS.messageout( 'PropName = ' + TRANSFORM(laPropsAndComments_Esperado(I,1)) )
|
||||
*ENDFOR
|
||||
|
||||
THIS.messageout( '' )
|
||||
THIS.messageout( 'METHODS esperadas para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(lnMethods_Count_Esperado) )
|
||||
THIS.messageout( 'METHODS esperadas para ' + lcExtraData + ': ' ;
|
||||
+ TRANSFORM(lnMethods_Count_Esperado) + ' (Tama<6D>o = ' + TRANSFORM(LEN(toReg_Esperado.METHODS)) + ' bytes)' )
|
||||
*THIS.messageout( REPLICATE('-',80) )
|
||||
*FOR I = 1 TO lnMethods_Count_Esperado
|
||||
* THIS.messageout( 'Name = ' + TRANSFORM(laMethods_Esperado(I,1)) )
|
||||
*ENDFOR
|
||||
|
||||
THIS.messageout( '' )
|
||||
THIS.messageout( 'OLE2 esperado para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(toReg_Esperado.OLE2) )
|
||||
THIS.messageout( 'OLE2 esperado para ' + lcExtraData + ': ' + TRANSFORM(toReg_Esperado.OLE2) )
|
||||
|
||||
THIS.messageout( '' )
|
||||
THIS.messageout( 'Checksum OLE esperado para ' + tcParent + '.' + tcObjName + ' (' + tcClass + ')' + ': ' + TRANSFORM(SYS(2007, toReg_Esperado.OLE)) )
|
||||
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" )
|
||||
THIS.assertequals( toReg_Esperado.Reserved2, toReg.Reserved2, "Valor de Reserved2" )
|
||||
THIS.assertequals( toReg_Esperado.Reserved4, toReg.Reserved4, "Valor de Reserved4" )
|
||||
THIS.assertequals( toReg_Esperado.Reserved5, toReg.Reserved5, "Valor de Reserved5" )
|
||||
THIS.assertequals( toReg_Esperado.Reserved6, toReg.Reserved6, "Valor de Reserved6" )
|
||||
THIS.assertequals( toReg_Esperado.Reserved7, toReg.Reserved7, "Valor de Reserved7" )
|
||||
THIS.assertequals( toReg_Esperado.Reserved8, toReg.Reserved8, "Valor de Reserved8" )
|
||||
THIS.assertequals( toReg_Esperado.OLE2, toReg.OLE2, "Valor de OLE2" )
|
||||
THIS.assertequals( SYS(2007, toReg_Esperado.OLE), SYS(2007, toReg.OLE), "Valor de OLE (Checksum)" )
|
||||
THIS.assertequals( toReg_Esperado.Reserved1, toReg.Reserved1, "Valor de RESERVED1 para " + lcExtraData )
|
||||
THIS.assertequals( LEN(toReg_Esperado.Reserved1), LEN(toReg.Reserved1), "Tama<EFBFBD>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<EFBFBD>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 )
|
||||
|
||||
*-- PROPERTIES
|
||||
THIS.assertequals( lnPropsAndValues_Count_Esperado, lnPropsAndValues_Count, "Cantidad de PROPERTIES" )
|
||||
THIS.assertequals( LEN(toReg_Esperado.PROPERTIES), LEN(toReg.PROPERTIES), "Tama<6D>o de PROPERTIES para " + lcExtraData )
|
||||
THIS.assertequals( lnPropsAndValues_Count_Esperado, lnPropsAndValues_Count, "Cantidad de PROPERTIES para " + lcExtraData )
|
||||
FOR I = 1 TO lnPropsAndValues_Count_Esperado
|
||||
THIS.asserttrue( ASCAN( laPropsAndValues, laPropsAndValues_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobaci<63>n de que existe la Property "' + TRANSFORM(laPropsAndValues_Esperado(I,1)) + '"' )
|
||||
THIS.asserttrue( ASCAN( laPropsAndValues, laPropsAndValues_Esperado(I,1), 1, -1, 1, 0+2+4) > 0 ;
|
||||
, ' Comprobaci<63>n de que existe la Property "' + TRANSFORM(laPropsAndValues_Esperado(I,1)) + '"' + " para " + lcExtraData )
|
||||
ENDFOR
|
||||
|
||||
*-- RESERVED3
|
||||
THIS.assertequals( lnPropsAndComments_Count_Esperado, lnPropsAndComments_Count, "Cantidad de RESERVED3" )
|
||||
THIS.assertequals( LEN(toReg_Esperado.RESERVED3), LEN(toReg.RESERVED3), "Tama<6D>o de RESERVED3 para " + lcExtraData )
|
||||
THIS.assertequals( lnPropsAndComments_Count_Esperado, lnPropsAndComments_Count, "Cantidad de RESERVED3 para " + lcExtraData )
|
||||
FOR I = 1 TO lnPropsAndComments_Count_Esperado
|
||||
THIS.asserttrue( ASCAN( laPropsAndComments, laPropsAndComments_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobaci<63>n de que existe la Reserved3 "' + TRANSFORM(laPropsAndComments_Esperado(I,1)) + '"' )
|
||||
THIS.asserttrue( ASCAN( laPropsAndComments, laPropsAndComments_Esperado(I,1), 1, -1, 1, 0+2+4) > 0 ;
|
||||
, ' Comprobaci<63>n de que existe la Reserved3 "' + TRANSFORM(laPropsAndComments_Esperado(I,1)) + '"' + " para " + lcExtraData )
|
||||
ENDFOR
|
||||
|
||||
*-- PROTECTED
|
||||
THIS.assertequals( lnProtected_Count_Esperado, lnProtected_Count, "Cantidad de PROTECTED" )
|
||||
THIS.assertequals( LEN(toReg_Esperado.PROTECTED), LEN(toReg.PROTECTED), "Tama<6D>o de PROTECTED para " + lcExtraData )
|
||||
THIS.assertequals( lnProtected_Count_Esperado, lnProtected_Count, "Cantidad de PROTECTED para " + lcExtraData )
|
||||
FOR I = 1 TO lnProtected_Count_Esperado
|
||||
THIS.asserttrue( ASCAN( laProtected, laProtected_Esperado(I,1), 1, -1, 1, 0+2+4) > 0, ' Comprobaci<63>n de que existe la Protected "' + TRANSFORM(laProtected_Esperado(I,1)) + '"' )
|
||||
THIS.asserttrue( ASCAN( laProtected, laProtected_Esperado(I,1), 1, -1, 1, 0+2+4) > 0 ;
|
||||
, ' Comprobaci<63>n de que existe la Protected "' + TRANSFORM(laProtected_Esperado(I,1)) + '"' + " para " + lcExtraData )
|
||||
ENDFOR
|
||||
|
||||
*-- METHODS
|
||||
THIS.assertequals( lnMethods_Count_Esperado, lnMethods_Count, "Cantidad de METHODS" )
|
||||
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, ' Comprobaci<63>n de que existe el Method "' + TRANSFORM(laMethods_Esperado(I,1)) + '"' )
|
||||
THIS.asserttrue( ASCAN( laMethods, laMethods_Esperado(I,1), 1, -1, 1, 0+2+4) > 0 ;
|
||||
, ' Comprobaci<63>n de que existe el Method "' + TRANSFORM(laMethods_Esperado(I,1)) + '"' + " para " + lcExtraData )
|
||||
ENDFOR
|
||||
|
||||
ELSE
|
||||
@@ -315,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 = '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' )
|
||||
|
||||
|
||||
2532
foxbin2prg.prg
2532
foxbin2prg.prg
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user