romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 208 fdbozzo - 15/03/2014 19:57:01:

Browse Source 
- Arreglo bug vcx-scx: Si la propiedad Dataenvironment se guarda en minúsculas, no se calcula el valor de Reserved2
- Adaptaciones en algunos tests para permitir diferencias de capitalización en algunos campos
This commit is contained in:
fdbozzo
2014-03-15 20:19:41 +01:00
parent f49c3e2e13
commit 48e9668907
2 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
TESTS/ut__foxbin2prg.prg
View File

@@ -455,9 +455,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
*-- DATOS ESPERADOS
STORE 0 TO lnCodError_Esperado
SCATTER MEMO NAME loReg_Esperado
lcClass = loReg_Esperado.CLASS
lcParent = loReg_Esperado.PARENT
lcObjName = loReg_Esperado.objName
lcClass = LOWER(loReg_Esperado.CLASS)
lcParent = LOWER(loReg_Esperado.PARENT)
lcObjName = LOWER(loReg_Esperado.objName)
*-- TEST
IF FILE(lc_OutputFile)
@@ -473,7 +473,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
ERROR 'No se encontr<74> el registro de cabecera "' + UNIQUEID + '"'
ENDIF
ELSE
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
IF NOT FOUND()
ERROR 'No se encontr<74> el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
ENDIF
@@ -704,9 +704,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
*-- DATOS ESPERADOS
STORE 0 TO lnCodError_Esperado
SCATTER MEMO NAME loReg_Esperado
lcClass = loReg_Esperado.CLASS
lcParent = loReg_Esperado.PARENT
lcObjName = loReg_Esperado.objName
lcClass = LOWER(loReg_Esperado.CLASS)
lcParent = LOWER(loReg_Esperado.PARENT)
lcObjName = LOWER(loReg_Esperado.objName)
*-- TEST
IF FILE(lc_OutputFile)
@@ -722,7 +722,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
ERROR 'No se encontr<74> el registro de cabecera "' + UNIQUEID + '"'
ENDIF
ELSE
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
IF NOT FOUND()
ERROR 'No se encontr<74> el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
ENDIF
@@ -786,9 +786,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
*-- DATOS ESPERADOS
STORE 0 TO lnCodError_Esperado
SCATTER MEMO NAME loReg_Esperado
lcClass = loReg_Esperado.CLASS
lcParent = loReg_Esperado.PARENT
lcObjName = loReg_Esperado.objName
lcClass = LOWER(loReg_Esperado.CLASS)
lcParent = LOWER(loReg_Esperado.PARENT)
lcObjName = LOWER(loReg_Esperado.objName)
*-- TEST
IF FILE(lc_OutputFile)
@@ -804,7 +804,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
ERROR 'No se encontr<74> el registro de cabecera "' + UNIQUEID + '"'
ENDIF
ELSE
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
IF NOT FOUND()
ERROR 'No se encontr<74> el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
ENDIF
@@ -868,9 +868,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
*-- DATOS ESPERADOS
STORE 0 TO lnCodError_Esperado
SCATTER MEMO NAME loReg_Esperado
lcClass = loReg_Esperado.CLASS
lcParent = loReg_Esperado.PARENT
lcObjName = loReg_Esperado.objName
lcClass = LOWER(loReg_Esperado.CLASS)
lcParent = LOWER(loReg_Esperado.PARENT)
lcObjName = LOWER(loReg_Esperado.objName)
*-- TEST
IF FILE(lc_OutputFile)
@@ -886,7 +886,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
ERROR 'No se encontr<74> el registro de cabecera "' + UNIQUEID + '"'
ENDIF
ELSE
LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
IF NOT FOUND()
ERROR 'No se encontr<74> el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
ENDIF

2
foxbin2prg.prg
View File

@@ -4267,7 +4267,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
toClase._PROTECTED = .hiddenAndProtected_PAM( toClase )
toClase._METHODS = .classMethods2Memo( toClase )
toClase._RESERVED1 = IIF( .c_Type = 'SCX', '', 'Class' )
toClase._RESERVED2 = IIF( .c_Type = 'VCX' OR toClase._Nombre == 'Dataenvironment', TRANSFORM( toClase._AddObject_Count + 1 ), '' )
toClase._RESERVED2 = IIF( .c_Type = 'VCX' OR PROPER(toClase._Nombre) == 'Dataenvironment', TRANSFORM( toClase._AddObject_Count + 1 ), '' )
toClase._RESERVED3 = .defined_PAM2Memo( toClase )
toClase._RESERVED4 = toClase._ClassIcon
toClase._RESERVED5 = toClase._ProjectClassIcon