6dde6b10fe
* tests/aliaslck.prg
* tests/files.prg
* tests/inherit.prg
* tests/newrdd.prg
* tests/omacro.prg
* tests/testcdx.prg
* tests/testdbf.prg
* tests/testrdd.prg
* tests/testrdd2.prg
* tests/tstuse.prg
* tests/wcecon.prg
! fixed to deleted test dbfs/indexes/dirs created along the way
! misc other corrections
79 lines
1.4 KiB
Plaintext
79 lines
1.4 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// This test was written by Jose Gimenez (JFG) <jfgimenez@wanadoo.es>
|
|
// <tecnico.sireinsa@ctv.es>
|
|
// and is placed into the public domain.
|
|
|
|
// Number of files to build/open
|
|
#define NFILES 1000
|
|
|
|
// use only *one* at a time
|
|
// dejar solo una de las dos lineas siguientes:
|
|
#define WITH_DBFCDX
|
|
//#define WITH_ADS
|
|
|
|
#ifdef WITH_ADS
|
|
#include "ads.ch"
|
|
REQUEST _ADS
|
|
#endif
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL aCampos := { { "Codigo", "C", 6, 0 }, { "Nombre", "C", 35, 0 } }
|
|
|
|
LOCAL n := 0, h := Array( NFILES )
|
|
|
|
#ifdef WITH_ADS
|
|
|
|
rddRegister( "ADS", 1 )
|
|
rddsetdefault( "ADS" )
|
|
SET SERVER LOCAL
|
|
SET FILETYPE TO CDX
|
|
SET CHARTYPE TO OEM
|
|
SET AXS LOCKING ON
|
|
AdsRightsCheck( .F. )
|
|
|
|
#endif
|
|
|
|
CLS
|
|
AFill( h, 0 )
|
|
DO WHILE n < NFILES
|
|
n++
|
|
@ 10, 0 SAY "Building files.... " + Str( n )
|
|
dbCreate( "file" + LTrim( Str( n ) ), aCampos )
|
|
USE ( "file" + LTrim( Str( n ) ) ) NEW
|
|
|
|
#ifdef WITH_ADS
|
|
INDEX ON CODIGO TAG CODIGO TO ( "file" + LTrim( Str( n ) ) )
|
|
#endif
|
|
|
|
CLOSE DATA
|
|
ENDDO
|
|
|
|
n := 0
|
|
|
|
DO WHILE n < NFILES
|
|
n++
|
|
@ 12, 0 SAY "Opening files.... " + Str( n )
|
|
USE ( "file" + LTrim( Str( n ) ) ) NEW
|
|
|
|
#ifdef WITH_ADS
|
|
SET ORDER TO TAG CODIGO
|
|
#endif
|
|
|
|
ENDDO
|
|
|
|
CLOSE DATA
|
|
|
|
n := 0
|
|
|
|
DO WHILE n < NFILES
|
|
n++
|
|
@ 14, 0 SAY "Deleting files.... " + Str( n )
|
|
hb_dbDrop( "file" + LTrim( Str( n ) ) + ".dbf" )
|
|
ENDDO
|
|
|
|
RETURN
|