mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-08-26 16:16:36 -04:00
186 lines
5.3 KiB
C++
186 lines
5.3 KiB
C++
|
// Copyright (c) 2006 Johan Rade
|
||
|
// Copyright (c) 2011 Paul A. Bristow comments
|
||
|
// Distributed under the Boost Software License, Version 1.0.
|
||
|
// (See accompanying file LICENSE_1_0.txt
|
||
|
// or copy at http://www.boost.org/LICENSE_1_0.txt)
|
||
|
|
||
|
/*!
|
||
|
\file
|
||
|
\brief Legacy (non-C99) tests of the nonfinite num facets.
|
||
|
|
||
|
\detail legacy_test outputs using nonfinite_num_put facet
|
||
|
with legacy flag, and reads back in using nonfinite_num_ facet,
|
||
|
and checks loopback OK.
|
||
|
|
||
|
Also checks that output of infinity, -infinity and NaN are as expected,
|
||
|
including the 'legacy' "1.#IND", "1.#QNAN", "1.#SNAN" representations
|
||
|
(was used by MSVC but now all represented on output by "1.#QNAN")
|
||
|
and qnan snan nanq nans (used by other systems)
|
||
|
excluding C99 specification "nan -nan nan -nan" and "inf -inf".
|
||
|
*/
|
||
|
|
||
|
#ifdef _MSC_VER
|
||
|
# pragma warning(disable : 4702)
|
||
|
#endif
|
||
|
|
||
|
#include <iomanip>
|
||
|
#include <locale>
|
||
|
#include <sstream>
|
||
|
|
||
|
#define BOOST_TEST_MAIN
|
||
|
#include <boost/test/auto_unit_test.hpp>
|
||
|
|
||
|
//#include "almost_equal.hpp"
|
||
|
//#include "S_.hpp"
|
||
|
|
||
|
#include <boost/math/special_functions/nonfinite_num_facets.hpp>
|
||
|
|
||
|
namespace {
|
||
|
|
||
|
// The anonymous namespace resolves ambiguities on platforms
|
||
|
// with fpclassify etc functions declared at global scope.
|
||
|
|
||
|
using namespace boost::math;
|
||
|
using boost::math::signbit;
|
||
|
using boost::math::changesign;
|
||
|
using boost::math::isnan;
|
||
|
|
||
|
//------------------------------------------------------------------------------
|
||
|
|
||
|
void legacy_test_inf();
|
||
|
void legacy_test_nan();
|
||
|
|
||
|
BOOST_AUTO_TEST_CASE(legacy_test)
|
||
|
{
|
||
|
legacy_test_inf();
|
||
|
legacy_test_nan();
|
||
|
}
|
||
|
|
||
|
//------------------------------------------------------------------------------
|
||
|
|
||
|
template<class CharType, class ValType> void legacy_test_inf_impl();
|
||
|
|
||
|
void legacy_test_inf()
|
||
|
{
|
||
|
legacy_test_inf_impl<char, float>();
|
||
|
legacy_test_inf_impl<char, double>();
|
||
|
legacy_test_inf_impl<char, long double>();
|
||
|
legacy_test_inf_impl<wchar_t, float>();
|
||
|
legacy_test_inf_impl<wchar_t, double>();
|
||
|
legacy_test_inf_impl<wchar_t, long double>();
|
||
|
}
|
||
|
|
||
|
template<class CharType, class ValType> void legacy_test_inf_impl()
|
||
|
{
|
||
|
std::locale old_locale;
|
||
|
std::locale new_locale(old_locale, new nonfinite_num_get<CharType>(legacy));
|
||
|
|
||
|
std::basic_stringstream<CharType> ss;
|
||
|
ss.imbue(new_locale);
|
||
|
|
||
|
ValType a1 = std::numeric_limits<ValType>::infinity();
|
||
|
ValType a2 = -std::numeric_limits<ValType>::infinity();
|
||
|
ss << a1 << ' ' << a2;
|
||
|
|
||
|
ss << " 1.#INF";
|
||
|
|
||
|
ValType b1, b2, b3;
|
||
|
ss >> b1 >> b2 >> b3;
|
||
|
|
||
|
BOOST_CHECK(b1 == a1);
|
||
|
BOOST_CHECK(b2 == a2);
|
||
|
BOOST_CHECK(b3 == std::numeric_limits<ValType>::infinity());
|
||
|
BOOST_CHECK(ss.rdstate() == std::ios_base::eofbit);
|
||
|
}
|
||
|
|
||
|
//------------------------------------------------------------------------------
|
||
|
|
||
|
template<class CharType, class ValType> void legacy_test_nan_impl();
|
||
|
|
||
|
void legacy_test_nan()
|
||
|
{
|
||
|
legacy_test_nan_impl<char, float>();
|
||
|
legacy_test_nan_impl<char, double>();
|
||
|
legacy_test_nan_impl<char, long double>();
|
||
|
legacy_test_nan_impl<wchar_t, float>();
|
||
|
legacy_test_nan_impl<wchar_t, double>();
|
||
|
legacy_test_nan_impl<wchar_t, long double>();
|
||
|
}
|
||
|
|
||
|
template<class CharType, class ValType> void legacy_test_nan_impl()
|
||
|
{
|
||
|
std::locale old_locale;
|
||
|
std::locale new_locale(old_locale, new nonfinite_num_get<CharType>(legacy));
|
||
|
|
||
|
std::basic_stringstream<CharType> ss;
|
||
|
ss.imbue(new_locale);
|
||
|
|
||
|
ValType a1 = std::numeric_limits<ValType>::quiet_NaN();
|
||
|
ValType a2 = -std::numeric_limits<ValType>::quiet_NaN();
|
||
|
ValType a3 = std::numeric_limits<ValType>::signaling_NaN();
|
||
|
ValType a4 = -std::numeric_limits<ValType>::signaling_NaN();
|
||
|
ss << a1 << ' ' << a2 << ' ' << a3 << ' ' << a4;
|
||
|
|
||
|
ss << " qnan snan nanq nans 1.#IND 1.#QNAN 1.#SNAN";
|
||
|
|
||
|
ValType b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11;
|
||
|
ss >> b1 >> b2 >> b3 >> b4 >> b5 >> b6 >> b7 >> b8 >> b9 >> b10 >> b11;
|
||
|
|
||
|
// std::cout << b11 << std::endl; // Confirms that legacy
|
||
|
// IND, SNAN and QNAN are considered the same,
|
||
|
// and both output the legacy string "1.#QNAN".
|
||
|
|
||
|
BOOST_CHECK((isnan)(b1));
|
||
|
BOOST_CHECK((isnan)(b2));
|
||
|
BOOST_CHECK((isnan)(b3));
|
||
|
BOOST_CHECK((isnan)(b4));
|
||
|
BOOST_CHECK((isnan)(b5));
|
||
|
BOOST_CHECK((isnan)(b6));
|
||
|
BOOST_CHECK((isnan)(b7));
|
||
|
BOOST_CHECK((isnan)(b8));
|
||
|
BOOST_CHECK((isnan)(b9));
|
||
|
BOOST_CHECK((isnan)(b10));
|
||
|
BOOST_CHECK((isnan)(b11)); // Johan V3 1.#SNAN failed on MSVC 10.
|
||
|
// Change in nonfinite_num_facet.hpp Paul A. Bristow 11 Apr 11 makes work OK.
|
||
|
/*
|
||
|
// These tests fail on platforms, such as gcc,
|
||
|
// that use the same representation of +nan and -nan.
|
||
|
|
||
|
BOOST_CHECK(!(signbit)(b1));
|
||
|
BOOST_CHECK((signbit)(b2));
|
||
|
BOOST_CHECK(!(signbit)(b3));
|
||
|
BOOST_CHECK((signbit)(b4));
|
||
|
*/
|
||
|
BOOST_CHECK(!(signbit)(b5));
|
||
|
BOOST_CHECK(!(signbit)(b6));
|
||
|
BOOST_CHECK(!(signbit)(b7));
|
||
|
BOOST_CHECK(!(signbit)(b8));
|
||
|
BOOST_CHECK(!(signbit)(b9));
|
||
|
BOOST_CHECK(!(signbit)(b10));
|
||
|
BOOST_CHECK(!(signbit)(b11)); // Johan V3 1.#SNAN failed MSVC 10.
|
||
|
|
||
|
BOOST_CHECK(ss.rdstate() == std::ios_base::eofbit); // Fails if SNAN test fails.
|
||
|
}
|
||
|
|
||
|
//------------------------------------------------------------------------------
|
||
|
|
||
|
} // anonymous namespace
|
||
|
|
||
|
/*
|
||
|
|
||
|
Output:
|
||
|
|
||
|
legacy_test.vcxproj -> J:\Cpp\fp_facet\fp_facet\Debug\legacy_test.exe
|
||
|
Running 1 test case...
|
||
|
1.#QNAN
|
||
|
1.#QNAN
|
||
|
1.#QNAN
|
||
|
1.#QNAN
|
||
|
1.#QNAN
|
||
|
1.#QNAN
|
||
|
|
||
|
*** No errors detected
|
||
|
|
||
|
|
||
|
*/
|