summaryrefslogtreecommitdiff
path: root/libtest/exptest.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'libtest/exptest.cpp')
-rwxr-xr-xlibtest/exptest.cpp277
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;
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-29 06:14:41 +0000