e83818b25e
MSVC appears to misapply the identity "A + -A == 0" which is not true for non-finite floating point values.
96 lines
2.7 KiB
C
96 lines
2.7 KiB
C
/*************************************************************************\
|
|
* Copyright (c) 2006 UChicago Argonne LLC, as Operator of Argonne
|
|
* National Laboratory.
|
|
* Copyright (c) 2002 The Regents of the University of California, as
|
|
* Operator of Los Alamos National Laboratory.
|
|
* EPICS BASE is distributed subject to a Software License Agreement found
|
|
* in file LICENSE that is included with this distribution.
|
|
\*************************************************************************/
|
|
/* epicsMathTest.c
|
|
*
|
|
* Author Marty Kraimer
|
|
*/
|
|
|
|
#include "epicsUnitTest.h"
|
|
#include "epicsMath.h"
|
|
#include "testMain.h"
|
|
|
|
MAIN(epicsMathTest)
|
|
{
|
|
double huge = 1e300;
|
|
double tiny = 1e-300;
|
|
double c;
|
|
|
|
testPlan(35);
|
|
|
|
testOk1(!isnan(0.0));
|
|
testOk1(!isinf(0.0));
|
|
|
|
testOk1(!isnan(epicsINF));
|
|
testOk1(isinf(epicsINF));
|
|
testOk1(epicsINF == epicsINF);
|
|
testOk1(epicsINF > 0.0);
|
|
testOk1(epicsINF - epicsINF != 0.0);
|
|
|
|
#if defined(_MSC_VER)
|
|
testTodoBegin("Known failure on windows (MSVC optimizer bug?)");
|
|
#endif
|
|
testOk1(epicsINF + -epicsINF != 0.0);
|
|
testOk1(-epicsINF + epicsINF != 0.0);
|
|
#if defined(_MSC_VER)
|
|
testTodoEnd();
|
|
#endif
|
|
|
|
testOk1(isnan(epicsINF - epicsINF));
|
|
|
|
#if defined(_MSC_VER)
|
|
testTodoBegin("Known failure on windows (MSVC optimizer bug?)");
|
|
#endif
|
|
testOk1(isnan(epicsINF + -epicsINF));
|
|
testOk1(isnan(-epicsINF + epicsINF));
|
|
#if defined(_MSC_VER)
|
|
testTodoEnd();
|
|
#endif
|
|
|
|
testOk1(isnan(epicsNAN));
|
|
testOk1(!isinf(epicsNAN));
|
|
testOk1(epicsNAN != epicsNAN);
|
|
testOk1(!(epicsNAN < epicsNAN));
|
|
testOk1(!(epicsNAN <= epicsNAN));
|
|
testOk1(!(epicsNAN == epicsNAN));
|
|
testOk1(!(epicsNAN >= epicsNAN));
|
|
testOk1(!(epicsNAN > epicsNAN));
|
|
testOk1(isnan(epicsNAN - epicsNAN));
|
|
|
|
#if defined(_MSC_VER)
|
|
testTodoBegin("Known failure on windows (MSVC optimizer bug?)");
|
|
#endif
|
|
testOk1(isnan(epicsNAN + -epicsNAN));
|
|
testOk1(isnan(-epicsNAN + epicsNAN));
|
|
#if defined(_MSC_VER)
|
|
testTodoEnd();
|
|
#endif
|
|
|
|
c = huge / tiny;
|
|
testOk(!isnan(c), "!isnan(1e300 / 1e-300)");
|
|
testOk(isinf(c), "isinf(1e300 / 1e-300)");
|
|
testOk(c > 0.0, "1e300 / 1e-300 > 0.0");
|
|
|
|
c = (-huge) / tiny;
|
|
testOk(!isnan(c), "!isnan(-1e300 / 1e-300)");
|
|
testOk(isinf(c), "isinf(-1e300 / 1e-300)");
|
|
testOk(c < 0.0, "-1e300 / 1e-300 < 0.0");
|
|
|
|
c = huge / huge;
|
|
testOk(!isnan(c), "!isnan(1e300 / 1e300)");
|
|
testOk(!isinf(c), "!isinf(1e300 / 1e300)");
|
|
testOk(c == 1.0, "1e300 / 1e300 == 1.0");
|
|
|
|
c = tiny / tiny;
|
|
testOk(!isnan(c), "!isnan(1e-300 / 1e-300)");
|
|
testOk(!isinf(c), "!isinf(1e-300 / 1e-300)");
|
|
testOk(c == 1.0, "1e300 / 1e-300 == 1.0");
|
|
|
|
return testDone();
|
|
}
|