From daf17154bf13139d9375f48525d19d6aaba08155 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= Date: Sat, 2 Aug 2014 08:43:31 +0200 Subject: Imported Upstream version 3.1.2 --- libtest/exptest.cpp | 277 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 277 insertions(+) create mode 100755 libtest/exptest.cpp (limited to 'libtest/exptest.cpp') 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; +} -- cgit v1.2.3