epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Structural changes to create libcom module

Browse Source
This commit is contained in:
Ralph Lange
2017-07-28 14:54:35 +02:00
parent c036fd056b
commit f7fadc9312
1762 changed files with 166 additions and 183492 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
test/epicsMathTest.c Normal file
View File

@@ -0,0 +1,95 @@
/*************************************************************************\
* 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(_WIN64) && defined(_MSC_VER)
testTodoBegin("Known failure on windows-x64");
#endif
testOk1(epicsINF + -epicsINF != 0.0);
testOk1(-epicsINF + epicsINF != 0.0);
#if defined(_WIN64) && defined(_MSC_VER)
testTodoEnd();
#endif
testOk1(isnan(epicsINF - epicsINF));
#if defined(_WIN64) && defined(_MSC_VER)
testTodoBegin("Known failure on windows-x64");
#endif
testOk1(isnan(epicsINF + -epicsINF));
testOk1(isnan(-epicsINF + epicsINF));
#if defined(_WIN64) && 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(_WIN64) && defined(_MSC_VER)
testTodoBegin("Known failure on windows-x64");
#endif
testOk1(isnan(epicsNAN + -epicsNAN));
testOk1(isnan(-epicsNAN + epicsNAN));
#if defined(_WIN64) && 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();
}