1 files changed, 127 insertions, 0 deletions
diff --git a/src/tests/xb_test_bcd.cpp b/src/tests/xb_test_bcd.cpp
new file mode 100755
index 0000000..f735935
--- /dev/null
+++ b/src/tests/xb_test_bcd.cpp
@@ -0,0 +1,127 @@
+/* xb_test_bcd.cpp
+
+XBase64 Software Library
+
+Copyright (c) 1997,2003,2014,2017,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 xb bcd functions
+// usage:   xb_test_expnode QUITE|NORMAL|VERBOSE
+
+#include "xbase.h"
+using namespace xb;
+
+#include "tstfuncs.cpp"
+
+/**************************************************************************/
+
+int main( int argCnt, char **av )
+{
+
+  #ifdef XB_INDEX_SUPPORT
+
+  xbInt16 iRc  = 0;
+  xbInt16 iPo  = 1;     /* print option */
+                       /* 0 - QUIET    */
+                       /* 1 - NORMAL   */
+                       /* 2 - VERBOSE  */
+
+  if( argCnt > 1 ) {
+    if( av[1][0] == 'Q' )
+      iPo = 0;
+    else if( av[1][0] == 'V' )
+      iPo = 2;
+  }
+
+
+  xbXBase x;
+
+  #ifdef XB_LOGGING_SUPPORT
+  x.SetLogDirectory( PROJECT_LOG_DIR );
+  x.EnableMsgLogging();
+  if( iPo ){
+    std::cout << "Logfile is [" << x.GetLogFqFileName().Str() << "]" << std::endl;
+  }
+  xbString sMsg;
+  sMsg.Sprintf( "Program [%s] initializing...", av[0] );
+  x.WriteLogMessage( sMsg );
+  #endif
+
+  x.SetDataDirectory( PROJECT_DATA_DIR );
+
+  if( iPo > 0 ){
+    std::cout << "XBase bcd testing program.." << std::endl;
+    std::cout << "This program tests the bcd logic." << std::endl;
+  }
+
+  iRc += TestMethod( iPo, "sizeof( xbBcdStruct )", (xbInt32) sizeof( xbBcdStruct ), (xbInt32) 12 );
+
+  xbString s1( -12345.60 );
+  xbBcd bcd1( s1 );
+  xbDouble d1;
+  bcd1.ToDouble( d1 );
+  xbString s2( d1 );
+  bcd1.ToString( s2 );
+
+  iRc += TestMethod( iPo, "String Constructor1", d1, -12345.6 );
+  iRc += TestMethod( iPo, "String Constructor2", s2.Str(), "-12345.6", 8 );
+
+  d1 = 0034.04;
+  xbBcd bcd2( d1 );
+  bcd2.ToString( s2 );
+  iRc += TestMethod( iPo, "xbDouble Constructor1", s2.Str(), "34.04", 5 );
+
+  // test the sign comparison logic
+  xbInt16 iComp = bcd1.Compare( bcd2 );
+  iRc += TestMethod( iPo, "Sign Compare 1", iComp, -1 );
+  iComp = bcd2.Compare( bcd1 );
+  iRc += TestMethod( iPo, "Sign Compare 2", iComp, 1 );
+
+  // bcd length compare scenarios
+  bcd1.Set( 123 );
+  iRc += TestMethod( iPo, "Length Compare 1", bcd1.Compare( 12 ), 1 );
+  iRc += TestMethod( iPo, "Length Compare 2", bcd1.Compare( 1234 ), -1 );
+  bcd1.Set( -456 );
+  iRc += TestMethod( iPo, "Length Compare 3", bcd1.Compare( -12 ), -1 );
+  iRc += TestMethod( iPo, "Length Compare 4", bcd1.Compare( -1234 ), 1 );
+
+  // same length, value compares
+  bcd1.Set( 11 );
+  iRc += TestMethod( iPo, "Value Compare 1", bcd1.Compare( 10 ), 1 );
+
+  bcd1.Set( 111 );
+  iRc += TestMethod( iPo, "Value Compare 2", bcd1.Compare( 110 ), 1 );
+
+
+  bcd1.Set( 111.111 );
+  iRc += TestMethod( iPo, "Value Compare 3", bcd1.Compare( 111.112 ), -1 );
+
+  bcd1.Set( -100 );
+  iRc += TestMethod( iPo, "Value Compare 4", bcd1.Compare( -111 ), 1 );
+  iRc += TestMethod( iPo, "Value Compare 5", bcd1.Compare( -99 ), -1 );
+
+  bcd1.Set( (xbDouble) 0 );
+  iRc += TestMethod( iPo, "Value Compare 6", bcd1.Compare( (xbDouble) 0 ), 0 );
+
+  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;
+  #else
+  return XB_NO_ERROR;
+  #endif     // XB_INDEX_SUPPORT
+  
+}