/*************************************************************************\
* 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 a,b,c;
    
    testPlan(24);
    
    a = 0.0;
    b = 1.0;
    c = a / b;
    testOk(!isnan(c), "!isnan(0.0 / 1.0)");
    testOk(!isinf(c), "!isinf(0.0 / 1.0)");
    testOk(c == 0.0, "0.0 / 1.0 == 0.0");
    
    c = epicsINF;
    testOk(!isnan(c), "!isnan(1.0 / 0.0)");
    testOk(isinf(c), "isinf(1.0 / 0.0)");
    testOk(c == c, "1.0 / 0.0 == 1.0 / 0.0");
    testOk(c - c != b, "inf - inf != 0");
    testOk(c + -c != b, "inf + -inf != 0");
    testOk(-c + c != b, "-inf + inf != 0");
    
    c = epicsNAN;
    testOk(isnan(c), "isnan(0.0 / 0.0)");
    testOk(!isinf(c), "!isinf(0.0 / 0.0)");
    testOk(c != c, "0.0 / 0.0 != 0.0 / 0.0");
    testOk(isnan(c - c), "isnan(nan - nan)");
    testOk(isnan(c + -c), "isnan(nan + -nan)");
    testOk(isnan(-c + c), "isnan(-nan + nan)");
    
    a = 1e300;
    b = 1e-300;
    c = a / b;
    testOk(!isnan(c), "!isnan(1e300 / 1e-300)");
    testOk(isinf(c), "isinf(1e300 / 1e-300)");
    testOk(c > 0.0, "1e300 / 1e-300 > 0.0");
    
    a = -1e300;
    b = 1e-300;
    c = a / b;
    testOk(!isnan(c), "!isnan(-1e300 / 1e-300)");
    testOk(isinf(c), "isinf(-1e300 / 1e-300)");
    testOk(c < 0.0, "-1e300 / 1e-300 < 0.0");
    
    a = 1e300;
    b = 1e300;
    c = a / b;
    testOk(!isnan(c), "!isnan(1e300 / 1e300)");
    testOk(!isinf(c), "!isinf(1e300 / 1e300)");
    testOk(c == 1.0, "1e300 / 1e300 == 1.0");
    
    return testDone();
}