Changeset: 200 fdbozzo - 09/03/2014 17:53:23:

- Ajuste en los tests por los parámetros agregados en algunas funciones
- Ajuste en evaluación de tcDontShowErrors para evitar error cuando no se pasa un valor en el testing

TESTS/ut__foxbin2prg.prg

@@ -133,9 +133,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				loObj.get_PropsFrom_PROTECTED( toReg_Esperado.PROTECTED, .F., @laProtected_Esperado, @lnProtected_Count_Esperado, '' )
 
 				*-- Methods
-				loObj.get_ADD_OBJECT_METHODS( toReg, toReg, '', @laMethods, '', @lnMethods_Count )
-				loObj.get_ADD_OBJECT_METHODS( toReg_Esperado, toReg_Esperado, '', @laMethods_Esperado, '', @lnMethods_Count_Esperado )
-
+				loObj.get_ADD_OBJECT_METHODS( toReg, toReg, '', @laMethods, '', @lnMethods_Count, '', 0, '', 0 )
+				loObj.get_ADD_OBJECT_METHODS( toReg_Esperado, toReg_Esperado, '', @laMethods_Esperado, '', @lnMethods_Count_Esperado, '', 0, '', 0 )
 				lcExtraData	= tcParent + '.' + tcObjName + ' (' + tcClass + ')'
 
 

foxbin2prg.prg

@@ -750,7 +750,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 						CASE LEFT( laConfig(I), 15 ) == LOWER('DontShowErrors:')
 							*-- Priorizo si tcDontShowErrors NO viene con "0" como par<61>metro, ya que los scripts vbs
 							*-- los utilizan para sobreescribir la configuraci<63>n por defecto de foxbin2prg.cfg
-							IF NOT tcDontShowErrors == '0'
+							IF NOT TRANSFORM(tcDontShowErrors) == '0'
 								tcDontShowErrors	= ALLTRIM( SUBSTR( laConfig(I), 16 ) )
 							ENDIF
 							.writeLog( JUSTFNAME(lcConfigFile) + ' > tcDontShowErrors:       ' + TRANSFORM(tcDontShowErrors) )