diff options
Diffstat (limited to 'src/tests/xb_test_mdx.cpp')
| -rwxr-xr-x | src/tests/xb_test_mdx.cpp | 296 |
1 files changed, 0 insertions, 296 deletions
diff --git a/src/tests/xb_test_mdx.cpp b/src/tests/xb_test_mdx.cpp deleted file mode 100755 index 2ef5ffb..0000000 --- a/src/tests/xb_test_mdx.cpp +++ /dev/null @@ -1,296 +0,0 @@ -/* xb_test_ndx.cpp - -XBase64 Software Library - -Copyright (c) 1997,2003,2014,2022,2023 Gary A Kunkel - -The xb64 software library is covered under the terms of the GPL Version 3, 2007 license. - -Email Contact: - - XDB-devel@lists.sourceforge.net - XDB-users@lists.sourceforge.net - -*/ - -// This program tests the class xbIxNdx - -// usage: xb_test_ndx QUITE|NORMAL|VERBOSE - - -#include "xbase.h" - -using namespace xb; - -#include "tstfuncs.cpp" - -int main( int argCnt, char **av ) -{ - int iRc = 0; - int iRc2; - int iPo = 1; /* print option */ - /* 0 - QUIET */ - /* 1 - NORMAL */ - /* 2 - VERBOSE */ - - xbString sMsg; - char c; - xbString s; - - if( argCnt > 1 ) { - if( av[1][0] == 'Q' ) - iPo = 0; - else if( av[1][0] == 'V' ) - iPo = 2; - } - - - xbSchema MyV4Record[] = - { - { "CITY", XB_CHAR_FLD, 100, 0 }, - { "STATE", XB_CHAR_FLD, 2, 0 }, - { "ZIP", XB_NUMERIC_FLD, 9, 0 }, - { "DATE1", XB_DATE_FLD, 8, 0 }, - { "",0,0,0 } - }; - - - xbSchema MyV4Record2[] = - { - { "CHAR1", XB_CHAR_FLD, 1, 0 }, - { "CHAR27", XB_CHAR_FLD, 27, 0 }, - { "",0,0,0 } - }; - - - xbXBase x; - - #ifdef XB_LOGGING_SUPPORT - x.SetLogDirectory( PROJECT_LOG_DIR ); - x.EnableMsgLogging(); - if( iPo ){ - std::cout << "Logfile is [" << x.GetLogFqFileName().Str() << "]" << std::endl; - } - sMsg.Sprintf( "Program [%s] initializing...", av[0] ); - x.WriteLogMessage( sMsg ); - #endif - - x.SetDataDirectory( PROJECT_DATA_DIR ); - x.SetMultiUser( xbFalse ); - InitTime(); - - if( iPo > 0 ) - std::cout << "Default Data Directory is [" << x.GetDataDirectory().Str() << "]" << std::endl; - - - xbFile f( &x ); - xbIx *pIx; - void *pTag; - xbDate dt = "19890209"; - xbString sKey; - - xbDbf *V4DbfX1 = new xbDbf4( &x ); - - - iRc2 = V4DbfX1->CreateTable( "TMDXDB01.DBF", "TestMdxX2", MyV4Record, XB_OVERLAY, XB_MULTI_USER ); - iRc += TestMethod( iPo, "CreateTable(1)", iRc2, 0 ); - - /* - CreateTag( const xbString &sIxType, const xbString &sName, const xbString &sKey, const xbString &sFilter, - xbInt16 iDescending, xbInt16 iUnique, xbInt16 iOverLay, xbIx **xbIxOut, void **vpTagOut ); - */ - - - iRc2 = V4DbfX1->CreateTag( "MDX", "CITY_TAGA", "CITY", "", 0, 0, XB_OVERLAY, &pIx, &pTag ); - iRc += TestMethod( iPo, "CreateTag(1)", iRc2, 0 ); - - iRc2 = V4DbfX1->CreateTag( "MDX", "ZIP_TAG", "ZIP", "", xbTrue, 0, XB_OVERLAY, &pIx, &pTag ); - iRc += TestMethod( iPo, "CreateTag(2)", iRc2, 0 ); - - iRc2 = V4DbfX1->CreateTag( "MDX", "DATE_TAG", "DATE1", "", 0, xbTrue, XB_OVERLAY, &pIx, &pTag ); - iRc += TestMethod( iPo, "CreateTag(3)", iRc2, 0 ); - - - // std::cout << "Cur Tag Name = " << V4DbfX1->GetCurTagName().Str() << "\n"; - - // xbDouble d = 4000; -// iRc2 = V4DbfX1->Find( d ); -// std::cout << iRc2 << "\n"; - - - xbInt32 uZip = 10000; - for( xbUInt16 i = 0; i < 35; i++ ){ - for( xbUInt16 j = 0; j < 14; j++ ){ - - c = j + 65; - s = c; - s.PadRight( c, (xbUInt32) i + 1 ); - //std::cout << "*********** adding s=[" << s.Str() << "] length = " << s.Len() << "\n"; - iRc2 = V4DbfX1->BlankRecord(); - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "BlankRecord()", iRc2, XB_NO_ERROR ); - - iRc2 = V4DbfX1->PutField( "CITY", s ); - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "PutField()", iRc2, XB_NO_ERROR ); - - iRc2 = V4DbfX1->PutLongField( "ZIP", uZip++ ); - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "PutField()", iRc2, XB_NO_ERROR ); - - iRc2 = V4DbfX1->PutDateField( "DATE1", dt ); - dt++; - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "PutField()", iRc2, XB_NO_ERROR ); - - iRc2 = V4DbfX1->AppendRecord(); - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "AppendRecord()", iRc2, XB_NO_ERROR ); - - iRc2 = V4DbfX1->Commit(); - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "Commit()", iRc2, XB_NO_ERROR ); - } - } - - - iRc += TestMethod( iPo, "CheckTagIntegrity(1)", V4DbfX1->CheckTagIntegrity( 1, 2 ), XB_NO_ERROR ); - - // attempt to add a dup key, should fail with XB_KEY_NOT_UNIQUE - iRc2 = V4DbfX1->BlankRecord(); - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "BlankRecord()", iRc2, XB_NO_ERROR ); - - iRc2 = V4DbfX1->PutField( "CITY", "Tampa" ); - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "PutField()", iRc2, XB_NO_ERROR ); - - iRc2 = V4DbfX1->PutLongField( "ZIP", uZip++ ); - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "PutField()", iRc2, XB_NO_ERROR ); - - dt.Set( "19890209" ); - iRc2 = V4DbfX1->PutDateField( "DATE1", dt ); - dt++; - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "PutField()", iRc2, XB_NO_ERROR ); - - iRc2 = V4DbfX1->AppendRecord(); - if( iRc2 != XB_KEY_NOT_UNIQUE ) - iRc += TestMethod( iPo, "AppendRecord()", iRc2, XB_NO_ERROR ); - - iRc2 = V4DbfX1->Abort(); - if( iRc2 != XB_NO_ERROR ) - iRc += TestMethod( iPo, "Abort()", iRc2, XB_NO_ERROR ); - - iRc += TestMethod( iPo, "DeleteTag()", V4DbfX1->DeleteTag( "MDX", "CITY_TAGA" ), XB_NO_ERROR ); - iRc += TestMethod( iPo, "CheckTagIntegrity(2)", V4DbfX1->CheckTagIntegrity( 1, 2 ), XB_NO_ERROR ); - - iRc2 = V4DbfX1->CreateTag( "MDX", "CITY_TAGF", "CITY", ".NOT. DELETED()", 0, 0, XB_OVERLAY, &pIx, &pTag ); - iRc += TestMethod( iPo, "CreateTag(4)", iRc2, 0 ); - - iRc2 = V4DbfX1->SetCurTag( "CITY_TAGF" ); - iRc += TestMethod( iPo, "SetCurTag()", iRc2, XB_NO_ERROR ); - iRc += TestMethod( iPo, "GetCurTagName()", V4DbfX1->GetCurTagName().Str(), "CITY_TAGF", 9 ); - - // next check throws an error message on the display, that is what it is testing, don't need to debug it - iRc += TestMethod( iPo, "CheckTagIntegrity(3)", V4DbfX1->CheckTagIntegrity( 1, 2 ), XB_INVALID_INDEX ); - - - iRc2 = V4DbfX1->Reindex( 0 ); - iRc += TestMethod( iPo, "Reindex( 0 )", iRc2, XB_NO_ERROR ); - iRc += TestMethod( iPo, "CheckTagIntegrity(4)", V4DbfX1->CheckTagIntegrity( 1, 2 ), XB_NO_ERROR ); - - iRc += TestMethod( iPo, "GetCurTagName()", V4DbfX1->GetCurTagName().Str(), "CITY_TAGF", 9 ); - - iRc2 = V4DbfX1->Reindex( 1 ); - iRc += TestMethod( iPo, "Reindex( 1 )", iRc2, XB_NO_ERROR ); - iRc += TestMethod( iPo, "CheckTagIntegrity(5)", V4DbfX1->CheckTagIntegrity( 1, 2 ), XB_NO_ERROR ); - - // delete everything, all keys should be removed from the filtered index - iRc += TestMethod( iPo, "DeleteAll(0)", V4DbfX1->DeleteAll( 0 ), XB_NO_ERROR ); - iRc += TestMethod( iPo, "Commit()", V4DbfX1->Commit(), XB_NO_ERROR ); - iRc += TestMethod( iPo, "CheckTagIntegrity(6)", V4DbfX1->CheckTagIntegrity( 1, 2 ), XB_NO_ERROR ); - - // undelete everything, all keys should be added back into the filtered index - iRc += TestMethod( iPo, "DeleteAll(1)", V4DbfX1->DeleteAll( 1 ), XB_NO_ERROR ); - iRc += TestMethod( iPo, "Commit()", V4DbfX1->Commit(), XB_NO_ERROR ); - iRc += TestMethod( iPo, "CheckTagIntegrity(7)", V4DbfX1->CheckTagIntegrity( 1, 2 ), XB_NO_ERROR ); - - // std::cout << "Cur Tag Name = " << V4DbfX1->GetCurTagName().Str() << "\n"; - sKey = "abc"; - iRc += TestMethod( iPo, "Find()", V4DbfX1->Find( sKey ), XB_NOT_FOUND ); - sKey = "EEEEE"; - iRc += TestMethod( iPo, "Find()", V4DbfX1->Find( sKey ), XB_NO_ERROR ); - iRc += TestMethod( iPo, "GetCurRecNo()", (xbInt32) V4DbfX1->GetCurRecNo(), (xbInt32) 61 ); - - iRc += TestMethod( iPo, "GetNextKey()", V4DbfX1->GetNextKey(), XB_NO_ERROR ); - iRc += TestMethod( iPo, "GetCurRecNo()", (xbInt32) V4DbfX1->GetCurRecNo(), (xbInt32) 75 ); - - iRc += TestMethod( iPo, "GetPrevKey()", V4DbfX1->GetPrevKey(), XB_NO_ERROR ); - iRc += TestMethod( iPo, "GetCurRecNo()", (xbInt32) V4DbfX1->GetCurRecNo(), (xbInt32) 61 ); - - iRc += TestMethod( iPo, "GetLastKey()", V4DbfX1->GetLastKey(), XB_NO_ERROR ); - iRc += TestMethod( iPo, "GetCurRecNo()", (xbInt32) V4DbfX1->GetCurRecNo(), (xbInt32) 490 ); - - iRc += TestMethod( iPo, "GetFirstKey()", V4DbfX1->GetFirstKey(), XB_NO_ERROR ); - iRc += TestMethod( iPo, "GetCurRecNo()", (xbInt32) V4DbfX1->GetCurRecNo(), (xbInt32) 1 ); - - xbString sDir; - V4DbfX1->GetFileDirPart( sDir ); - xbString sDbfName; - xbString sMdxName; - sDbfName.Sprintf( "%sTestMdxR.DBF", sDir.Str()); - sMdxName.Sprintf( "%sTestMdxR.MDX", sDir.Str()); - V4DbfX1->xbRemove( sDbfName ); - V4DbfX1->xbRemove( sMdxName ); - - iRc += TestMethod( iPo, "Rename()", V4DbfX1->Rename( "TestMdxR.DBF" ), XB_NO_ERROR ); - - - xbDbf *V4DbfX2 = new xbDbf4( &x ); - iRc2 = V4DbfX2->CreateTable( "TMDXDB02.DBF", "TestMdxX4", MyV4Record2, XB_OVERLAY, XB_MULTI_USER ); - iRc += TestMethod( iPo, "CreateTable(2)", iRc2, 0 ); - - - iRc2 = V4DbfX2->CreateTag( "MDX", "TAG1", "CHAR27", ".NOT. DELETED()", 0, 0, XB_OVERLAY, &pIx, &pTag ); -// iRc2 = V4DbfX2->CreateTag( "MDX", "TAG2", "CHAR1", "CHAR1 = 'O' .AND. .NOT. DELETED()", 0, 0, XB_OVERLAY, &pIx, &pTag ); - iRc += TestMethod( iPo, "CreateTag(4)", iRc2, 0 ); - - - - for( xbUInt32 ul = 0; ul < 500 && iRc2 == XB_NO_ERROR; ul++ ){ - c = 'O'; - V4DbfX2->BlankRecord(); - iRc2 = V4DbfX2->PutField( 1, c ); - if( iRc2 != XB_NO_ERROR ){ - iRc += TestMethod( iPo, "PutField()", iRc2, XB_NO_ERROR ); - } else { - iRc2 = V4DbfX2->AppendRecord(); - if( iRc2 != XB_NO_ERROR ){ - iRc += TestMethod( iPo, "AppendRecord()", iRc2, XB_NO_ERROR ); - } else { - iRc2 = V4DbfX2->Commit(); - if( iRc2 != XB_NO_ERROR ){ - iRc += TestMethod( iPo, "Commit()", iRc2, XB_NO_ERROR ); - } - } - } - } - - iRc += TestMethod( iPo, "CheckTagIntegrity(7)", V4DbfX2->CheckTagIntegrity( 1, 2 ), XB_NO_ERROR ); - - x.CloseAllTables(); - delete V4DbfX1; - delete V4DbfX2; - - if( iPo > 0 || iRc < 0 ) - fprintf( stdout, "Total Errors = %d\n", iRc * -1 ); - -#ifdef XB_LOGGING_SUPPORT - sMsg.Sprintf( "Program [%s] terminating with [%d] errors...", av[0], iRc * -1 ); - x.WriteLogMessage( sMsg ); -#endif - - return iRc; -} |