summaryrefslogtreecommitdiff
path: root/libtest/indextst.cpp
diff options
context:
space:
mode:
authorJörg Frings-Fürst <debian@jff-webhosting.net>2014-08-02 08:43:31 +0200
committerJörg Frings-Fürst <debian@jff-webhosting.net>2014-08-02 08:43:31 +0200
commitdaf17154bf13139d9375f48525d19d6aaba08155 (patch)
treee3c08b6c49dc8a8e83f03327591310546675b43d /libtest/indextst.cpp
Imported Upstream version 3.1.2upstream/3.1.2
Diffstat (limited to 'libtest/indextst.cpp')
-rwxr-xr-xlibtest/indextst.cpp297
1 files changed, 297 insertions, 0 deletions
diff --git a/libtest/indextst.cpp b/libtest/indextst.cpp
new file mode 100755
index 0000000..c3a74be
--- /dev/null
+++ b/libtest/indextst.cpp
@@ -0,0 +1,297 @@
+/* indextst.cpp
+
+ Xbase project source code
+
+ This program creates a sample database and multiple indices.
+ It tests the index logic.
+
+ Copyright (C) 1997,2003 Gary A Kunkel
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+
+ Contact:
+
+ Email:
+
+ xbase64-devel@lists.sourceforge.net
+ xbase64-users@lists.sourceforge.net
+
+
+ Regular Mail:
+
+ XBase Support
+ 149C South Main St
+ Keller Texas, 76248
+ USA
+*/
+
+#include "xbase64/xbase64.h"
+
+int CheckIndex(
+#ifdef XB_INDEX_NDX
+ xbNdx *indx1, xbNdx *indx2, xbNdx *indx3
+#endif
+#if defined( XB_INDEX_NDX ) && defined ( XB_INDEX_NTX )
+ ,
+#endif
+#ifdef XB_INDEX_NTX
+ xbNtx *intx1, xbNtx *intx2, xbNtx *intx3
+#endif
+ );
+
+int main()
+{
+ xbShort f1, f2, f3, rc, sts = 0;
+ char charbuf[10];
+
+ xbSchema MyRecord[] =
+ {
+ { "CHARFLD1", XB_CHAR_FLD, 6, 0 },
+ { "CHARFLD2", XB_CHAR_FLD, 6, 0 },
+ { "NUMFLD1", XB_NUMERIC_FLD, 6, 0 },
+ { "",0,0,0 }
+ };
+
+ /* define the classes */
+ xbXBase x; /* initialize xbase */
+ xbDbf MyFile( &x ); /* class for table */
+
+#ifdef XB_INDEX_NDX
+ xbNdx indx1( &MyFile ); /* class for ndx index 1 */
+ xbNdx indx2( &MyFile ); /* class for ndx index 2 */
+ xbNdx indx3( &MyFile ); /* class for ndx index 3 */
+#endif
+
+#ifdef XB_INDEX_NTX
+ xbNtx intx1( &MyFile ); /* class for ntx index 1 */
+ xbNtx intx2( &MyFile ); /* class for ntx index 2 */
+ xbNtx intx3( &MyFile ); /* class for ntx index 3 */
+#endif
+
+#ifndef XBASE_DEBUG
+ std::cout << "XBASE_DEBUG support option not compiled into library";
+ return 1;
+#endif
+
+
+ std::cout << "Creating test database and indices" << std::endl;
+ if(( rc = MyFile.CreateDatabase( "IXTEST.DBF", MyRecord, XB_OVERLAY ))
+ != XB_NO_ERROR )
+ std::cout << "Error creating database = " << rc << "\n";
+ else
+ {
+#ifdef XB_INDEX_NDX
+ if(( rc = indx1.CreateIndex(
+ "IXNDX1.NDX", "CHARFLD1", XB_NOT_UNIQUE, XB_OVERLAY )) != XB_NO_ERROR )
+ {
+ std::cout << "Error creating index 1 = " << rc << std::endl;
+ exit( 1 );
+ }
+
+ if(( rc = indx2.CreateIndex(
+ "IXNDX2.NDX", "CHARFLD1+CHARFLD2", XB_NOT_UNIQUE, XB_OVERLAY )) != XB_NO_ERROR )
+ {
+ std::cout << "Error creating index 2 = " << rc << std::endl;
+ exit( 1 );
+ }
+
+ if(( rc = indx3.CreateIndex(
+ "IXNDX3.NDX", "NUMFLD1", XB_NOT_UNIQUE, XB_OVERLAY )) != XB_NO_ERROR )
+ {
+ std::cout << "Error creating index 3 = " << rc << std::endl;
+ exit( 1 );
+ }
+#endif
+
+
+#ifdef XB_INDEX_NTX
+ if(( rc = intx1.CreateIndex(
+ "IXNTX1.NTX", "CHARFLD1", XB_NOT_UNIQUE, XB_OVERLAY )) != XB_NO_ERROR )
+ {
+ std::cout << "Error creating index 4 = " << rc << std::endl;
+ exit( 1 );
+ }
+
+ if(( rc = intx2.CreateIndex(
+ "IXNTX2.NTX", "CHARFLD1+CHARFLD2", XB_NOT_UNIQUE, XB_OVERLAY )) != XB_NO_ERROR )
+ {
+ std::cout << "Error creating index 5 = " << rc << std::endl;
+ exit( 1 );
+ }
+
+ if(( rc = intx3.CreateIndex(
+ "IXNTX3.NTX", "NUMFLD1", XB_NOT_UNIQUE, XB_OVERLAY )) != XB_NO_ERROR )
+ {
+ std::cout << "Error creating index 6 = " << rc << std::endl;
+ exit( 1 );
+ }
+#endif
+ }
+
+ f1 = MyFile.GetFieldNo( "CHARFLD1" );
+ f2 = MyFile.GetFieldNo( "CHARFLD2" );
+ f3 = MyFile.GetFieldNo( "NUMFLD1" );
+
+ std::cout << "Populating database and indices with data" << std::endl;
+ std::cout << ".";
+ std::cout.flush();
+ for( int i = 0; i < 10000; i++ ){
+ if( i % 100 == 0){
+ std::cout << ".";
+ std::cout.flush();
+ }
+ memset( charbuf, 0x00, 10 );
+ sprintf( charbuf, "%d", i );
+ MyFile.BlankRecord();
+ MyFile.PutField( f1, charbuf );
+ MyFile.PutField( f2, charbuf );
+ MyFile.PutLongField( f3, i );
+ MyFile.AppendRecord();
+
+
+ }
+ std::cout << " Done." << std::endl;
+
+ // Check all indices.
+ sts += CheckIndex(
+#ifdef XB_INDEX_NDX
+ &indx1, &indx2, &indx3
+#endif
+#if defined( XB_INDEX_NDX ) && defined( XB_INDEX_NTX )
+ ,
+#endif
+#ifdef XB_INDEX_NTX
+ &intx1, &intx2, &intx3
+#endif
+ );
+ //
+ // Appending a "Z" to the records will cause the index delete
+ // functions to be used.
+ //
+ // - Bob Cotton <bob@synxis.com>
+ //
+ std::cout << "Reversing records." << std::endl;
+ std::cout << ".";
+ std::cout.flush();
+ for( xbLong j = 1; j < MyFile.NoOfRecords(); j++ ){
+ if (j % 1000 == 0)
+ {
+ std::cout << ".";
+ std::cout.flush();
+ }
+ MyFile.GetRecord(j);
+ memset( charbuf, 0x00, 10 );
+ sprintf( charbuf, "Z%d", (int)j-1 );
+ MyFile.PutField( f1, charbuf );
+ MyFile.PutField( f2, charbuf );
+ MyFile.PutLongField( f3, j-1 );
+ MyFile.PutRecord();
+ }
+ std::cout << " Done." << std::endl;
+ // Check all indices
+ sts += CheckIndex(
+#ifdef XB_INDEX_NDX
+ &indx1, &indx2, &indx3
+#endif
+#if defined( XB_INDEX_NDX ) && defined( XB_INDEX_NTX )
+ ,
+#endif
+#ifdef XB_INDEX_NTX
+ &intx1, &intx2, &intx3
+#endif
+ );
+
+
+ std::cout << "Index testing completed" << std::endl;std::cout.flush();
+ MyFile.CloseDatabase(); /* Close database and associated indexes */
+ return sts;
+}
+
+
+int CheckIndex(
+#ifdef XB_INDEX_NDX
+ xbNdx *indx1,
+ xbNdx *indx2,
+ xbNdx *indx3
+#endif
+#if defined( XB_INDEX_NDX ) && defined( XB_INDEX_NTX )
+ ,
+#endif
+#ifdef XB_INDEX_NTX
+ xbNtx *intx1,
+ xbNtx *intx2,
+ xbNtx *intx3
+#endif
+ )
+{
+ int rc;
+ int sts = 0;
+
+#if defined( XB_INDEX_NDX ) && defined( XBASE_DEBUG )
+ std::cout << "Testing NDX index 1 "; std::cout.flush();
+ if(( rc = indx1->CheckIndexIntegrity(0)) != XB_NO_ERROR ){
+ std::cout << "Error " << rc << " with index indx1" << std::endl;
+ sts++;
+ }
+ else
+ std::cout << "OK" << std::endl;
+
+ std::cout << "Testing NDX index 2 ";std::cout.flush();
+ if(( rc = indx2->CheckIndexIntegrity(0)) != XB_NO_ERROR ){
+ std::cout << "Error " << rc << " with index indx2" << std::endl;
+ sts++;
+ }
+ else
+ std::cout << "OK" << std::endl;
+
+
+ std::cout << "Testing NDX index 3 ";std::cout.flush();
+ if(( rc = indx3->CheckIndexIntegrity(0)) != XB_NO_ERROR ){
+ std::cout << "Error " << rc << " with index indx3" << std::endl;
+ sts++;
+ }
+ else
+ std::cout << "OK" << std::endl;
+#endif
+#if defined( XB_INDEX_NTX ) && defined( XBASE_DEBUG )
+ std::cout << "Testing NTX index 1 ";std::cout.flush();
+ if(( rc = intx1->CheckIndexIntegrity(0)) != XB_NO_ERROR ){
+ std::cout << "Error " << rc << " with index intx1" << std::endl;
+ sts++;
+ }
+ else
+ std::cout << "OK" << std::endl;
+
+ std::cout << "Testing NTX index 2 ";std::cout.flush();
+ if(( rc = intx2->CheckIndexIntegrity(0)) != XB_NO_ERROR ){
+ std::cout << "Error " << rc << " with index intx2" << std::endl;
+ sts++;
+ }
+ else
+ std::cout << "OK" << std::endl;
+
+ std::cout << "Testing NTX index 3 ";std::cout.flush();
+ if(( rc = intx3->CheckIndexIntegrity(0)) != XB_NO_ERROR ){
+ std::cout << "Error " << rc << " with index intx3" << std::endl;
+ sts++;
+ }
+ else
+ std::cout << "OK" << std::endl;
+#endif
+ return sts;
+
+}
+