#include <limits>
#if !defined (STLPORT) || !defined (_STLP_USE_NO_IOSTREAMS)
# include <iomanip>
# include <string>
# include <sstream>
# include <cstdio>
/*
# include <iostream>
# include <ieee754.h>
*/
# include "complete_digits.h"
# include "cppunit/cppunit_proxy.h"
# if !defined (STLPORT) || defined(_STLP_USE_NAMESPACES)
using namespace std;
# endif
//
// TestCase class
//
class NumPutGetTest : public CPPUNIT_NS::TestCase
{
CPPUNIT_TEST_SUITE(NumPutGetTest);
# if defined (__BORLANDC__)
/* Ignore FPU exceptions, set FPU precision to 64 bits */
unsigned int _float_control_word = _control87(0, 0);
_control87(PC_64|MCW_EM|IC_AFFINE, MCW_PC|MCW_EM|MCW_IC);
# endif
CPPUNIT_TEST(num_put_float);
CPPUNIT_TEST(num_put_integer);
CPPUNIT_TEST(num_get_float);
CPPUNIT_TEST(num_get_integer);
CPPUNIT_TEST(inhex);
CPPUNIT_TEST(pointer);
CPPUNIT_TEST(fix_float_long);
CPPUNIT_TEST(custom_numpunct);
# if defined (__BORLANDC__)
/* Reset floating point control word */
_clear87();
_control87(_float_control_word, MCW_PC|MCW_EM|MCW_IC);
# endif
CPPUNIT_TEST_SUITE_END();
private:
void num_put_float();
void num_put_integer();
void num_get_float();
void num_get_integer();
void inhex();
void pointer();
void fix_float_long();
void custom_numpunct();
static bool check_float(float val, float ref)
{
float epsilon = numeric_limits<float>::epsilon();
return val <= ref + epsilon && val >= ref - epsilon;
}
static bool check_double(double val, double ref)
{
double epsilon = numeric_limits<double>::epsilon();
return val <= ref + epsilon && val >= ref - epsilon;
}
static string reset_stream(ostringstream &ostr)
{
string tmp = ostr.str();
ostr.str("");
return tmp;
}
#if !defined (STLPORT) || !defined (_STLP_NO_MEMBER_TEMPLATES)
template <class F>
void check_get_float( F v )
{
F in_val_d = v;
typedef numeric_limits<F> limits;
{
stringstream str;
str << "1E+" << limits::max_exponent10;
str >> in_val_d;
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_ASSERT(str.eof());
CPPUNIT_CHECK( in_val_d == in_val_d );
CPPUNIT_CHECK( in_val_d != limits::infinity() );
}
{
stringstream str;
str << "-1E+" << limits::max_exponent10;
str >> in_val_d;
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_ASSERT(str.eof());
CPPUNIT_CHECK( in_val_d == in_val_d );
CPPUNIT_CHECK( in_val_d != -limits::infinity() );
}
{
stringstream str;
str << "1E" << limits::min_exponent10;
str >> in_val_d;
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_ASSERT(str.eof());
CPPUNIT_CHECK( in_val_d == in_val_d );
CPPUNIT_CHECK( in_val_d != F(0.0) );
}
{
stringstream str;
str << "1E+" << (limits::max_exponent10 + 1);
str >> in_val_d;
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_ASSERT(str.eof());
CPPUNIT_CHECK( in_val_d == in_val_d );
CPPUNIT_CHECK( in_val_d == limits::infinity() );
}
{
stringstream str;
str << "-1E+" << (limits::max_exponent10 + 1);
str >> in_val_d;
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_ASSERT(str.eof());
CPPUNIT_CHECK( in_val_d == in_val_d );
CPPUNIT_CHECK( in_val_d == -limits::infinity() );
}
{
stringstream str;
str << "1E" << (limits::min_exponent10 - 1);
str >> in_val_d;
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_ASSERT(str.eof());
CPPUNIT_CHECK( in_val_d == in_val_d );
CPPUNIT_CHECK( in_val_d >= F(0.0) && in_val_d <= limits::min() );
}
#if !defined (__MINGW32__)
{
stringstream str;
str << limits::max();
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_CHECK( str.str() != "inf" );
CPPUNIT_CHECK( str.str() != "-inf" );
CPPUNIT_CHECK( str.str() != "nan" );
CPPUNIT_CHECK( str.str() != "-nan" );
//CPPUNIT_MESSAGE( str.str().c_str() );
//str.str("");
//str << limits::max_exponent10;
//CPPUNIT_MESSAGE( str.str().c_str() );
str >> in_val_d;
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_ASSERT(str.eof());
CPPUNIT_CHECK( in_val_d == in_val_d );
CPPUNIT_CHECK( in_val_d != limits::infinity() );
}
{
stringstream str;
str << fixed << limits::max();
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_CHECK( str.str() != "inf" );
CPPUNIT_CHECK( str.str() != "-inf" );
CPPUNIT_CHECK( str.str() != "nan" );
CPPUNIT_CHECK( str.str() != "-nan" );
//CPPUNIT_MESSAGE( str.str().c_str() );
//str.str("");
//str << limits::max_exponent10;
//CPPUNIT_MESSAGE( str.str().c_str() );
str >> in_val_d;
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_ASSERT(str.eof());
CPPUNIT_CHECK( in_val_d == in_val_d );
CPPUNIT_CHECK( in_val_d != limits::infinity() );
}
{
stringstream str;
str << scientific << setprecision(50) << limits::max();
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_CHECK( str.str() != "inf" );
CPPUNIT_CHECK( str.str() != "-inf" );
CPPUNIT_CHECK( str.str() != "nan" );
CPPUNIT_CHECK( str.str() != "-nan" );
//CPPUNIT_MESSAGE( str.str().c_str() );
//str.str("");
//str << limits::max_exponent10;
//CPPUNIT_MESSAGE( str.str().c_str() );
str >> in_val_d;
CPPUNIT_ASSERT(!str.fail());
CPPUNIT_ASSERT(str.eof());
CPPUNIT_CHECK( in_val_d == in_val_d );
CPPUNIT_CHECK( in_val_d != limits::infinity() );
}
#endif
{
stringstream str;
str << limits::infinity();
CPPUNIT_ASSERT( !str.fail() );
CPPUNIT_ASSERT( !limits::has_infinity || str.str() == "inf" );
}
{
stringstream str;
str << -limits::infinity();
CPPUNIT_ASSERT( !str.fail() );
CPPUNIT_ASSERT( !limits::has_infinity || str.str() == "-inf" );
}
{
stringstream str;
str << limits::quiet_NaN();
CPPUNIT_ASSERT( !str.fail() );
CPPUNIT_ASSERT( !limits::has_quiet_NaN || str.str() == "nan" );
}
{
stringstream str;
str << -limits::quiet_NaN();
CPPUNIT_ASSERT( !str.fail() );
CPPUNIT_ASSERT( !limits::has_quiet_NaN || str.str() == "-nan" );
}
{
stringstream str;
str << "0." << string(limits::max_exponent10, '0') << "1e" << (limits::max_exponent10 + 1);
CPPUNIT_ASSERT( !str.fail() );
str >> in_val_d;
CPPUNIT_ASSERT( !str.fail() );
CPPUNIT_ASSERT( str.eof() );
CPPUNIT_CHECK( in_val_d == 1 );
}
{
stringstream str;
str << "1" << string(-(limits::min_exponent10 - 1), '0') << "e" << (limits::min_exponent10 - 1);
CPPUNIT_ASSERT( !str.fail() );
str >> in_val_d;
CPPUNIT_ASSERT( !str.fail() );
CPPUNIT_ASSERT( str.eof() );
CPPUNIT_CHECK( in_val_d == 1 );
}
# if defined (_STLPORT_VERSION) && (_STLPORT_VERSION >= 0x530)
// The following tests are showing that simply changing stream
// precision lead to different result. Do not seems to be a real
// problem, simply rounding approximation but additional study should
// be done after 5.2 release.
{
stringstream str;
str << setprecision(limits::digits10 + 2) << limits::max();
CPPUNIT_MESSAGE(str.str().c_str());
CPPUNIT_ASSERT( !str.fail() );
F val;
str >> val;
CPPUNIT_ASSERT( !str.fail() );
CPPUNIT_ASSERT( limits::infinity() > val );
}
{
stringstream str;
str << setprecision(limits::digits10 + 1) << limits::max();
CPPUNIT_MESSAGE(str.str().c_str());
CPPUNIT_ASSERT( !str.fail() );
F val;
str >> val;
CPPUNIT_ASSERT( !str.fail() );
CPPUNIT_ASSERT( limits::infinity() > val );
}
# endif
}
#else
# define __check_get_float( F ) \
void check_get_float( F v ) \
{ \
F in_val_d = v; \
{ \
stringstream str; \
\
str << "1E+" << numeric_limits<F
