1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
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
}
|
