summaryrefslogtreecommitdiff
path: root/libtest/exptest.cpp
diff options
context:
space:
mode:
authorJörg Frings-Fürst <debian@jff-webhosting.net>2022-12-07 13:17:14 +0100
committerJörg Frings-Fürst <debian@jff-webhosting.net>2022-12-07 13:17:14 +0100
commit4875a3dd9b183dcd2256e2abfc4ccf7484c233b4 (patch)
tree0abbea881ded030851014ffdd60fbf71fead8f65 /libtest/exptest.cpp
parentdaf17154bf13139d9375f48525d19d6aaba08155 (diff)
New upstream version 4.0.2upstream/4.0.2
Diffstat (limited to 'libtest/exptest.cpp')
-rwxr-xr-xlibtest/exptest.cpp277
1 files changed, 0 insertions, 277 deletions
diff --git a/libtest/exptest.cpp b/libtest/exptest.cpp
deleted file mode 100755
index d5330c6..0000000
--- a/libtest/exptest.cpp
+++ /dev/null
@@ -1,277 +0,0 @@
-/* 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;
-}