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

Test Bug Fix: DBF INTEGER AUTOINC test is failing because of a bad DBF reference value

Browse Source 
DBF INTEGER AUTOINC test: Added more info about NextVal and Step values
This commit is contained in:
fdbozzo
2017-12-02 14:29:08 +01:00
parent 62353694a2
commit af768fe7a1
6 changed files with 3210 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
TESTS/DATOS_READONLY/fb2p_free.dbf
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/fb2p_free.fpt
View File

Binary file not shown.

3182
TESTS/FXUResults.db2 Normal file
View File

File diff suppressed because one or more lines are too long

13
TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg
View File

@@ -126,14 +126,19 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase
*-- Visualizaci<63>n de valores
THIS.messageout( 'Cantidad de campos: ' + TRANSFORM(lnFields_OUT) )
THIS.messageout( '' )
THIS.messageout( PADR('Nombre',12) + ' ' + PADC('Tipo',4) + ' ' + PADL('Long',4) + ' ' + PADL('Dec',4) )
THIS.messageout( PADR('----------',12) + ' ' + PADC('----',4) + ' ' + PADL('----',4) + ' ' + PADL('---',4) )
THIS.messageout( PADR('Nombre',12) + ' ' + PADC('Tipo',4) + ' ' + PADL('Long',4) + ' ' + PADL('Dec',4) ;
+ ' ' + PADL('Next',4) + ' ' + PADL('Step',4) )
THIS.messageout( PADR('----------',12) + ' ' + PADC('----',4) + ' ' + PADL('----',4) + ' ' + PADL('---',4) ;
+ ' ' + PADL('----',4) + ' ' + PADL('----',4) )
FOR I = 1 TO lnFields_IN
THIS.messageout( PADR(laCampos_IN(I,1),12) + ' ' + PADC(laCampos_IN(I,2),4) + ' ' + PADL(laCampos_IN(I,3),4) + ' ' + PADL(laCampos_IN(I,4),4) )
THIS.messageout( PADR(laCampos_IN(I,1),12) + ' ' + PADC(laCampos_IN(I,2),4) ;
+ ' ' + PADL(laCampos_IN(I,3),4) + ' ' + PADL(laCampos_IN(I,4),4) ;
+ ' ' + PADL(laCampos_IN(I,17),4) + ' ' + PADL(laCampos_IN(I,18),4) )
ENDFOR
THIS.messageout( PADR('----------',12) + ' ' + PADC('----',4) + ' ' + PADL('----',4) + ' ' + PADL('---',4) )
THIS.messageout( PADR('----------',12) + ' ' + PADC('----',4) + ' ' + PADL('----',4) + ' ' + PADL('---',4) ;
+ ' ' + PADL('----',4) + ' ' + PADL('----',4) )
*-- Evaluaci<63>n de valores

3
TESTS/fxuresults.dbf.cfg Normal file
View File

@@ -0,0 +1,3 @@
DBF_Conversion_Support: 4
DBF_Conversion_Order: UPPER(TCLASS)+UPPER(TNAME)
DBF_Conversion_Condition: .T.