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