- 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:
fdbozzo
2015-03-22 02:08:51 +01:00
parent ed7d5eba4f
commit dfafc7ff38
9 changed files with 149 additions and 15 deletions

View File

@@ -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