- Arreglo de la información de los índices que se había desacomodado por ordenarlos alfabéticamente
- Arreglo del test de índices para que no tenga en cuenta el orden de los mismos, sino su estructura - Nueva vista local offline para testear la BDD
This commit is contained in:
@@ -360,8 +360,22 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase
|
||||
this.assertequals( lnIndices_OUT, lnIndices_IN, '[Cantidad de campos IN y OUT]' )
|
||||
|
||||
FOR I = 1 TO lnIndices_IN
|
||||
*- Busco el <20>ndice a evaluar
|
||||
FOR Z = 1 TO lnIndices_OUT
|
||||
IF LOWER(laIndices_OUT(Z,1)) == LOWER(laIndices_IN(I,1))
|
||||
EXIT
|
||||
ENDIF
|
||||
ENDFOR
|
||||
|
||||
*-- Si no se encontr<74>, registro error
|
||||
THIS.asserttrue( Z <= lnIndices_OUT, 'El <20>ndice "' + laIndices_IN(I,1) + '" no se encontr<74>' )
|
||||
IF Z > lnIndices_OUT THEN
|
||||
LOOP
|
||||
ENDIF
|
||||
|
||||
*-- Si se encontr<74>, comparo su especificaci<63>n
|
||||
FOR X = 1 TO 6
|
||||
THIS.assertequals( laIndices_IN(I,X), laIndices_OUT(I,X), '[Comparando estructura del indice ' + laIndices_IN(I,1) + ']' )
|
||||
THIS.assertequals( laIndices_IN(I,X), laIndices_OUT(Z,X), '[Comparando estructura del indice ' + laIndices_IN(I,1) + ']' )
|
||||
ENDFOR
|
||||
ENDFOR
|
||||
|
||||
|
||||
Reference in New Issue
Block a user