#include "tsputil.h"
#include <float.h> // DBL_MAX, DBL_MIN
#define CASE(id,test) case id: name = #test; if (exec) { logln(#test "---"); logln((UnicodeString)""); test(); } break;
void
PUtilTest::runIndexedTest( int32_t index, UBool exec, const char* &name, char* )
{
switch (index) {
CASE(0, testMaxMin)
default: name = ""; break; }
}
#if 0
void
PUtilTest::testIEEEremainder()
{
double pinf = uprv_getInfinity();
double ninf = -uprv_getInfinity();
double nan = uprv_getNaN();
double pzero = 0.0;
double nzero = 0.0;
nzero *= -1;
remainderTest(7.0, 2.5, -0.5);
remainderTest(7.0, -2.5, -0.5);
#ifndef OS390
remainderTest(-7.0, 2.5, 0.5);
remainderTest(-7.0, -2.5, 0.5);
#endif
remainderTest(5.0, 3.0, -1.0);
}
void
PUtilTest::remainderTest(double x, double y, double exp)
{
double result = uprv_IEEEremainder(x,y);
if( uprv_isNaN(result) &&
! ( uprv_isNaN(x) || uprv_isNaN(y))) {
errln(UnicodeString("FAIL: got NaN as result without NaN as argument"));
errln(UnicodeString(" IEEEremainder(") + x + ", " + y + ") is " + result + ", expected " + exp);
}
else if(result != exp)
errln(UnicodeString("FAIL: IEEEremainder(") + x + ", " + y + ") is " + result + ", expected " + exp);
else
logln(UnicodeString("OK: IEEEremainder(") + x + ", " + y + ") is " + result);
}
#endif
void
PUtilTest::testMaxMin()
{
double pinf = uprv_getInfinity();
double ninf = -uprv_getInfinity();
double nan = uprv_getNaN();
double pzero = 0.0;
double nzero = 0.0;
nzero *= -1;
maxMinTest(pinf, ninf, pinf, TRUE);
maxMinTest(pinf, ninf, ninf, FALSE);
maxMinTest(pinf, pzero, pinf, TRUE);
maxMinTest(pinf, pzero, pzero, FALSE);
maxMinTest(pinf, nzero, pinf, TRUE);
maxMinTest(pinf, nzero, nzero, FALSE);
maxMinTest(ninf, pzero, pzero, TRUE);
maxMinTest(ninf, pzero, ninf, FALSE);
maxMinTest(ninf, nzero, nzero, TRUE);
maxMinTest(ninf, nzero, ninf, FALSE);
maxMinTest(pinf, nan, nan, TRUE);
maxMinTest(pinf, nan, nan, FALSE);
maxMinTest(ninf, nan, nan, TRUE);
maxMinTest(ninf, nan, nan, FALSE);
maxMinTest(nan, nan, nan, TRUE);
maxMinTest(nan, nan, nan, FALSE);
maxMinTest(nan, pzero, nan, TRUE);
maxMinTest(nan, pzero, nan, FALSE);
maxMinTest(nan, nzero, nan, TRUE);
maxMinTest(nan, nzero, nan, FALSE);
maxMinTest(pinf, DBL_MAX, pinf, TRUE);
maxMinTest(pinf, -DBL_MAX, pinf, TRUE);
maxMinTest(pinf, DBL_MIN, pinf, TRUE);
maxMinTest(pinf, -DBL_MIN, pinf, TRUE);
maxMinTest(pinf, DBL_MIN, DBL_MIN, FALSE);
maxMinTest(pinf, -DBL_MIN, -DBL_MIN, FALSE);
maxMinTest(pinf, DBL_MAX, DBL_MAX, FALSE);
maxMinTest(pinf, -DBL_MAX, -DBL_MAX, FALSE);
maxMinTest(ninf, DBL_MAX, DBL_MAX, TRUE);
maxMinTest(ninf, -DBL_MAX, -DBL_MAX, TRUE);
maxMinTest(ninf, DBL_MIN, DBL_MIN, TRUE);
maxMinTest(ninf, -DBL_MIN, -DBL_MIN, TRUE);
maxMinTest(ninf, DBL_MIN, ninf, FALSE);
maxMinTest(ninf, -DBL_MIN, ninf, FALSE);
maxMinTest(ninf, DBL_MAX, ninf, FALSE);
maxMinTest(ninf, -DBL_MAX, ninf, FALSE);
maxMinTest(pzero, DBL_MAX, DBL_MAX, TRUE);
maxMinTest(pzero, -DBL_MAX, pzero, TRUE);
maxMinTest(pzero, DBL_MIN, DBL_MIN, TRUE);
maxMinTest(pzero, -DBL_MIN, pzero, TRUE);
maxMinTest(pzero, DBL_MIN, pzero, FALSE);
maxMinTest(pzero, -DBL_MIN, -DBL_MIN, FALSE);
maxMinTest(pzero, DBL_MAX, pzero, FALSE);
maxMinTest(pzero, -DBL_MAX, -DBL_MAX, FALSE);
maxMinTest(nzero, DBL_MAX, DBL_MAX, TRUE);
maxMinTest(nzero, -DBL_MAX, nzero, TRUE);
maxMinTest(nzero, DBL_MIN, DBL_MIN, TRUE);
maxMinTest(nzero, -DBL_MIN, nzero, TRUE);
maxMinTest(nzero, DBL_MIN, nzero, FALSE);
maxMinTest(nzero, -DBL_MIN, -DBL_MIN, FALSE);
maxMinTest(nzero, DBL_MAX, nzero, FALSE);
maxMinTest(nzero, -DBL_MAX, -DBL_MAX, FALSE);
}
void
PUtilTest::maxMinTest(double a, double b, double exp, UBool max)
{
double result = 0.0;
if(max)
result = uprv_fmax(a, b);
else
result = uprv_fmin(a, b);
UBool nanResultOK = (uprv_isNaN(a) || uprv_isNaN(b));
if(uprv_isNaN(result) && ! nanResultOK) {
errln(UnicodeString("FAIL: got NaN as result without NaN as argument"));
if(max)
errln(UnicodeString(" max(") + a + ", " + b + ") is " + result + ", expected " + exp);
else
errln(UnicodeString(" min(") + a + ", " + b + ") is " + result + ", expected " + exp);
}
else if(result != exp && ! (uprv_isNaN(result) || uprv_isNaN(exp)))
if(max)
errln(UnicodeString("FAIL: max(") + a + ", " + b + ") is " + result + ", expected " + exp);
else
errln(UnicodeString("FAIL: min(") + a + ", " + b + ") is " + result + ", expected " + exp);
else
if(max)
logln(UnicodeString("OK: max(") + a + ", " + b + ") is " + result);
else
logln(UnicodeString("OK: min(") + a + ", " + b + ") is " + result);
}