Imported Upstream version 3.1.2upstream/3.1.2

1 files changed, 277 insertions, 0 deletions

diff --git a/libtest/exptest.cpp b/libtest/exptest.cpp
new file mode 100755
index 0000000..d5330c6
--- /dev/null
+++ b/libtest/exptest.cpp
@@ -0,0 +1,277 @@
+/*  exptest.cpp 
+
+    Xbase project source code
+
+    This program tests the Xbase expression 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"
+
+class ExpTestor{
+ public:ExpTestor( xbXBase *, xbDbf * );
+  xbShort TestExpression( const char * TestExpression, 
+                          const char * ExpectedResult );
+  xbShort TestExpression( const char * TestExpression, 
+                          const xbDouble ExpectedResult );
+ private:
+  xbXBase *xbptr;
+  xbDbf   *dbfPtr;
+};
+/**************************************************************************/
+ExpTestor::ExpTestor( xbXBase *xp, xbDbf *dp )
+{
+  xbptr  = xp;
+  dbfPtr = dp;
+}
+/**************************************************************************/
+xbShort ExpTestor::TestExpression( const char * Expression,
+                                   const xbDouble ExpectedResult )
+{
+//  xbExpNode * e;
+  xbExpn * exp;
+  xbShort rc;
+  
+  exp = new xbExpn( xbptr );
+  if(( rc = exp->ParseExpression( Expression, dbfPtr )) != 0 ){
+    std::cout << "Parse Error " << rc << " in expression " << Expression
+              << std::endl;
+    if( exp )
+      delete exp;
+    return 1;
+  }
+
+  if(( rc = exp->ProcessExpression()) != 0 ){
+    std::cout << "Error " << rc << " processing expression " << Expression
+              << std::endl;
+    if( exp )
+      delete exp;
+    return 1;
+  }
+  char type = exp->GetExpressionResultType();
+  if( type != 'N' && type != 'L' ){
+    std::cout << "Expression " << Expression;
+    std::cout << " Expected result type Numeric or Logical, actual was ";
+    std::cout << type << std::endl;
+    delete exp;
+    return 1;
+  }
+
+  if( type == 'N' ){
+    xbString d1;
+    xbString d2;
+    d1.setNum( "2.4", ExpectedResult );
+    d2.setNum( "2.4", exp->GetDoubleResult());
+    if( d1 != d2 ){
+      std::cout << "Expression " << Expression;
+      std::cout << " Actual result of "  << d2  << " does not match";
+      std::cout << " expected result of " << d1 << std::endl;
+      delete exp;
+      return 1;
+    }
+  }
+  if( type == 'L' && ExpectedResult != (xbDouble) exp->GetIntResult()){
+    std::cout << "Expression " << Expression;
+    std::cout << " Actual result of " << exp->GetIntResult()
+              << " does not match ";
+    std::cout << " expected result of " << ExpectedResult << std::endl;
+    delete exp;
+    return 1;
+  }
+
+  std::cout << "Expression " << Expression << " returned " << ExpectedResult;
+  std::cout << " OK" << std::endl;
+  delete exp;
+  return 0;
+}
+/**************************************************************************/
+xbShort ExpTestor::TestExpression( const char * Expression,
+                                   const char * ExpectedResult )
+{
+//  xbExpNode * e;
+  xbExpn * exp;
+  xbShort rc;
+	
+  exp = new xbExpn( xbptr );
+  if(( rc = exp->ParseExpression( Expression, dbfPtr )) != 0 ){
+    std::cout << "Parse Error " << rc << " in expression " << Expression
+              << std::endl;
+    if( exp )
+      delete exp;
+    return 1;
+  }
+
+  if(( rc = exp->ProcessExpression()) != 0 ){
+    std::cout << "Error " << rc << " processing expression " << Expression
+              << std::endl;
+    delete exp;
+    return 1;
+  }
+  char type = exp->GetExpressionResultType();
+  if( type != 'C' ){
+    std::cout << "Expression " << Expression;
+    std::cout << " Expected result type Character, actual was " << type
+              << std::endl;
+    delete exp;
+    return 1;
+  }
+  
+  if( strlen( ExpectedResult ) != strlen( exp->GetStringResult())){
+    std::cout << "Expression " << Expression;
+    std::cout << " result length of "
+              << strlen( exp->GetStringResult())
+              << " different than expected of " << strlen( ExpectedResult )
+              << std::endl;
+    std::cout << "Calculated result =" << exp->GetStringResult()
+              << "<" << std::endl;
+    delete exp;
+    return 1;
+  }
+
+  if( strcmp( ExpectedResult, exp->GetStringResult())){
+    std::cout << "Expression " << Expression;
+    std::cout << " Actual result of " << exp->GetStringResult()
+              << " does not match ";
+    std::cout << " expected result of " << ExpectedResult << std::endl;
+    delete exp;
+    return  1;
+  }
+
+  std::cout << "Expression " << Expression << " returned " << ExpectedResult;
+  std::cout << " OK" << std::endl;
+  return 0;
+}
+/*************************************************************************/
+int main()
+{
+  xbSchema MyRecord[] =
+  {
+    { "FLOAT1", XB_FLOAT_FLD,  9, 2 },
+    { "DATE1",  XB_DATE_FLD,   8, 0 },
+    { "DATE2",  XB_DATE_FLD,   8, 0 },
+    { "", 0, 0, 0 },
+  };
+
+  xbXBase x;
+  xbDbf d( &x );
+  xbExpn exp( &x );
+
+  d.CreateDatabase( "TEST", MyRecord, XB_OVERLAY );
+  d.PutFloatField( "FLOAT1", 5 );  
+  d.PutField( "DATE1", "19990110" );
+  d.PutField( "DATE2", "19990120" );
+  d.AppendRecord();
+
+  std::cout << "XBase Expression testing program.." << std::endl;
+  std::cout << "This program tests the XBase expression logic." << std::endl;
+  ExpTestor * e = new ExpTestor( &x, &d );
+
+/* test functions which return a character value result */
+  e->TestExpression( "CDOW( \"20000101\" )", "Saturday " );
+  e->TestExpression( "CHR( 101 )", "e" );
+  e->TestExpression( "CMONTH( \"20000101\" )", "January  " );
+  e->TestExpression( "DATE()", exp.DATE() );
+  e->TestExpression( "DTOC( \"20000101\" )", "01/01/00" );
+  e->TestExpression( "DTOS( \"20000101\" )", "20000101" );
+  e->TestExpression( "LEFT( \"STRING\", 3 )", "STR" );
+  e->TestExpression( "LTRIM( \"   xxxxxx\" )", "xxxxxx" );
+  e->TestExpression( "LOWER( \"AAAA\" )", "aaaa" );
+
+  e->TestExpression( "REPLICATE( \"abc\", 3 )", "abcabcabc" );
+  e->TestExpression( "RTRIM( \"zzz   \" )", "zzz" );
+  e->TestExpression( "RTRIM( \"zzz   \" )+\"qqq\"", "zzzqqq" );
+  e->TestExpression( "SPACE( 3 )", "   " );
+
+  e->TestExpression( "STR( -52.345 )", "       -52" );    
+  e->TestExpression( "STR( -52.345, 3 )", "-52" );    
+  e->TestExpression( "STR( 52.34, 4, 1 )", "52.3" );
+  
+// not sure what the STRZERO function is supposed to do
+/*
+  e->TestExpression( "STRZERO( \"aaa\" )", "not sure" );
+  e->TestExpression( "STRZERO( \"aaa\", 3, 3, )", "??" );
+  e->TestExpression( "STRZERO( 22 )", "not sure" );
+  e->TestExpression( "STRZERO( 22, 3 )", "not sure" );
+  e->TestExpression( "STRZERO( 2, 3, 3 )", "not sure" );
+  e->TestExpression( "STRZERO( \"ddd\", 4, 6 ), "not sure" );
+*/  
+  e->TestExpression( "TRIM( \"aaa    \" )", "aaa" );
+  e->TestExpression( "UPPER( \"abcde\" )", "ABCDE" );
+
+/* functions returning double values */
+  e->TestExpression( "ABS( -222 )", 222 );
+  e->TestExpression( "EXP( 1 )", (xbDouble) 2.7182800 );  
+  e->TestExpression( "LOG( 2 )", (xbDouble) 0.69314700 );
+  e->TestExpression( "MAX( 10, 27 )", 27 );
+  e->TestExpression( "MIN( 10, 5 )", 5 );
+  e->TestExpression( "SQRT( 9 )", 3 );
+  
+/* functions returning long values */
+  e->TestExpression( "ASC( \"A\" )", 'A' );
+  e->TestExpression( "AT( \"BC\", \"ABCD\" )", 2 );
+  e->TestExpression( "DAY( 20000101 )", 1 );
+
+  e->TestExpression( "DESCEND( 1500 )", -1500 );
+
+  e->TestExpression( "DOW( 20000101 )", 6 );
+  e->TestExpression( "INT( 621.5 )", 621 );
+  e->TestExpression( "ISALPHA( \"A\" )", 1 );
+  e->TestExpression( "ISLOWER( \"a\" )", 1 );
+  e->TestExpression( "ISUPPER( \"A\" )", 1 );
+  e->TestExpression( "LEN( \"AAAAA\" )", 5 );
+  e->TestExpression( "MONTH( 20000101 )", 1 );
+  e->TestExpression( "RECNO()", (xbDouble) 0 );
+  e->TestExpression( "VAL( \"ABC\" )", 65 );
+  e->TestExpression( "YEAR( \"20000101\" )", 2000 );
+
+  e->TestExpression( "(25-3+2)*2", 48 );
+  e->TestExpression( "(25+3+2)*2", 60 );
+  e->TestExpression( "TEST->FLOAT1+1", 6 );
+  e->TestExpression( "TEST->FLOAT1 + 1", 6 );
+  e->TestExpression( "FLOAT1+1", 6 );
+  e->TestExpression( "FLOAT1 + 1", 6 );
+
+  e->TestExpression( "TEST->FLOAT1 < 1", (xbDouble) 0 );
+  e->TestExpression( "TEST->FLOAT1 > 1", (xbDouble) 1 );
+  e->TestExpression( "TEST->DATE2 - TEST->DATE1", (xbDouble) 10 );
+
+  e->TestExpression( "IIF( \"TEST->FLOAT1>0\", \"T\", \"F\" )", "F" );
+  e->TestExpression( "IIF( \"TEST->FLOAT1<=0\", \"T\", \"F\" )", "T" );
+
+
+  delete e;
+  return 0;
+}