// Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of "Eclipse Public License v1.0"

// which accompanies this distribution, and is available

// at the URL "http://www.eclipse.org/legal/epl-v10.html".

//

// Initial Contributors:

// Nokia Corporation - initial contribution.

//

// Contributors:

//

// Description:

// Simple STDLIB tests.

// 

//

#include <e32test.h>

#include <e32svr.h>

#include <ctype.h>

#include <math.h>

#include <errno.h>

#include "ESTLIB.H"

//CPP file is used for C tests, because by default any console opened from a C file

//expects a key to be pressed when it is about to be closed. That makes impossible

//the creation of automated C tests.

//

// Globals

static RTest TheTest(_L("TMisc3"));

const double KPi = 3.14159265358979323846;

//

//

//Test macroses and functions

static void Check(TInt aValue, TInt aLine)

	{

	if(!aValue)

		{

		TheTest(EFalse, aLine);

		}

	}

static  void Check(TInt aValue, TInt aExpected, TInt aLine)

	{

	if(aValue != aExpected)

		{

		RDebug::Print(_L("*** Expected error: %d, got: %d\r\n"), aExpected, aValue);

		TheTest(EFalse, aLine);

		}

	}

#define TEST(arg) ::Check((arg), __LINE__)

#define TEST2(aValue, aExpected) ::Check(aValue, aExpected, __LINE__)

#define TEST_NAN (0.0/0.0)

#define TEST_POS_INFINITY (1.0/0.0)

#define TEST_NEG_INFINITY (-1.0/0.0)

//

// Tests

static void TestCType()

	{

	char c;

	for(c='a';c<='z';++c)

		{

		TEST(isalnum(c));

		TEST(isalpha(c));

		TEST(!iscntrl(c));

		TEST(!isdigit(c));

		TEST(isgraph(c));

		TEST(islower(c));

		TEST(isprint(c));

		TEST(!ispunct(c));

		TEST(!isspace(c));

		TEST(!isupper(c));

		TEST(c >= 'a' && c <= 'f' ? isxdigit(c) : !isxdigit(c));

		}

	for(c='A';c<='Z';++c)

		{

		TEST(isalnum(c));

		TEST(isalpha(c));

		TEST(!iscntrl(c));

		TEST(!isdigit(c));

		TEST(isgraph(c));

		TEST(!islower(c));

		TEST(isprint(c));

		TEST(!ispunct(c));

		TEST(!isspace(c));

		TEST(isupper(c));

		TEST(c >= 'A' && c <= 'F' ? isxdigit(c) : !isxdigit(c));

		}

	for(c='0';c<='9';++c)

		{

		TEST(isalnum(c));

		TEST(!isalpha(c));

		TEST(!iscntrl(c));

		TEST(isdigit(c));

		TEST(isgraph(c));

		TEST(!islower(c));

		TEST(isprint(c));

		TEST(!ispunct(c));

		TEST(!isspace(c));

		TEST(!isupper(c));

		TEST(isxdigit(c));

		}

	for(c=0;c<' ';++c)

		{

		TEST(!isalnum(c));

		TEST(!isalpha(c));

		TEST(iscntrl(c));

		TEST(!isdigit(c));

		TEST(!isgraph(c));

		TEST(!islower(c));

		TEST(!isprint(c));

		TEST(!ispunct(c));

		if(c != '\t' && c != '\n' && c != '\r' && c != '\v' && c != '\f')

			{

			TEST(!isspace(c));

			}

		else

			{

			TEST(isspace(c));

			}

		TEST(!isupper(c));

		}

	}

static void TestMath()

	{

	double eps = 0.000001;

	double res = fabs(21.091);

	TEST((21.091 - res) < eps);

	res = fabs(-1.91);

	TEST((res - 1.91) < eps);

	res = atan(0.0);

	TEST(fabs(res) < eps);

	// 90 degrees

	res = tan(KPi/2);

	TEST(res > 1000000000.0);

	res = atan(res);

	TEST(fabs(res - KPi/2) < eps);

	// 45 degrees

	res = tan(KPi/4);

	TEST(fabs(res - 1.0) < eps);

	res = atan(res);

	TEST(fabs(res - KPi/4) < eps);

	// 135 degrees

	res = tan((3 * KPi) / 4);

	TEST(fabs(res + 1.0) < eps);

	res = atan(res);

	TEST(fabs((KPi + res) - (3 * KPi) / 4) < eps);

	// 0 degrees

	res = cos(0.0);

	TEST(fabs(res - 1) < eps);

	// 90 degrees

	res = cos(KPi/2);

	TEST(res < eps);

	// 180 degrees

	res = cos(KPi);

	TEST(fabs(res + 1.0) < eps);

	// 0 degrees

	res = sin(0.0);

	TEST(res < eps);

	// 90 degrees

	res = sin(KPi/2);

	TEST(fabs(res - 1) < eps);

	// 180 degrees

	res = sin(KPi);

	TEST(res < eps);

	res = tanh(1.0);

	TEST(fabs(res - 0.761594) < eps);

	int exponent;

	res = frexp(0.51E+2, &exponent);

	TEST((0.51E+2 - res * pow(2.0, exponent)) < eps);

	double integer;

	res = modf(34.567, &integer);

	TEST(fabs(res - 0.567) < eps);

	TEST(fabs(integer - 34.0) < eps);

	res = modf(-35.567, &integer);

	TEST(fabs(res + 0.567) < eps);

	TEST(fabs(integer + 35.0) < eps);

	res = ceil(245.8903);

	TEST(fabs(res - 246.0) < eps);

	res = ceil(-11.91);

	TEST(fabs(res + 11.0) < eps);

	res = floor(245.8903);

	TEST(fabs(res - 245.0) < eps);

	res = floor(-11.91);

	TEST(fabs(res + 12.0) < eps);

	res = copysign(4.789, -9.001);

	TEST((res + 4.789) < eps);

	res = copysign(-4.789, 9.001);

	TEST((res - 4.789) < eps);

	}

static void TestDef113884()

	{

	int exponent;

	errno = 0;

	frexp(0.51E+2, &exponent);

	pow(2.0, exponent);

	TEST2(errno, 0);

	errno = 0;

	pow(-1.0, 0.5);

	TEST2(errno, EDOM);

	errno = 0;

	// Added 'LL' as GCC needs to know these are explicitly 'long long'

	pow(34523543434234LL , 23423432234LL);

	TEST2(errno, ERANGE);

	errno = 0;

	pow(-34523543434234LL , -23423432234LL);

	TEST2(errno, ERANGE);

	errno = 0;

	atan(0.0);

	TEST2(errno, 0);

	errno = 0;

	cos(0.0);

	TEST2(errno, 0);

	errno = 0;

	sin(0.5);

	TEST2(errno, 0);

	errno = 0;

	tan(KPi/2);

	TEST2(errno, 0);

	errno = 0;

	acos(0.5);

	TEST2(errno, 0);

	errno = 0;

	acos(HUGE_VAL);

	TEST2(errno, EDOM);

	errno = 0;

	asin(0.5);

	TEST2(errno, 0);

	errno = 0;

	exp(2);

	TEST2(errno, 0);

	errno = 0;

	exp(HUGE_VAL);

	TEST2(errno, ERANGE);

	errno = 0;

	exp(-1 * HUGE_VAL);

	TEST2(errno, ERANGE);

	errno = 0;

	log(2);

	TEST2(errno, 0);

	errno = 0;

	log(-1);

	TEST2(errno, EDOM);

	errno = 0;

	log(0);

	TEST2(errno, ERANGE);

	errno = 0;

	log10(2);

	TEST2(errno, 0);

	errno = 0;

	log10(-1);

	TEST2(errno, EDOM);

	errno = 0;

	log10(0);

	TEST2(errno, ERANGE);

	errno = 0;

	sqrt(2);

	TEST2(errno, 0);

	errno = 0;

	sqrt(-1);

	TEST2(errno, EDOM);

#ifdef __ARMCC__

#pragma diag_suppress 222  //armv5 Warning #222-D is an echo of the following test.  We want to ensure that the test reports the error as well.

#else

#pragma warning (disable: 222)  //winscw Warning #222-D is an echo of the following test.  We want to ensure that the test reports the error as well.

#endif

	errno = 0;

	sqrt(2.0 * HUGE_VAL);

	TEST2(errno, ERANGE);

#ifdef __ARMCC__

#pragma diag_default 222  //armv5 Warning #222-D turned back on.

#else

#pragma warning (default: 222)  //winscw Warning #222-D turned back on.

#endif

	errno = 0;

	atan2(2.0, 2.0);

	TEST2(errno, 0);

#pragma warning (disable: 222)  //Warning #222-D is an echo of the following test.

	errno = 0;

	atan2(0.0, 0.0);

	TEST2(errno, EDOM);

#pragma warning (default: 222)  //Warning #222-D is an echo of the following test.

	errno = 0;

	fmod(2.0, 2.0);

	TEST2(errno, 0);

	errno = 0;

	fmod(1.0, 0.0);

	TEST2(errno, EDOM);

	errno = 0;

	rint(2.129999);

	TEST2(errno, 0);

	}

//

//

static void MainL()

    {

	TheTest.Start(_L(" @SYMTestCaseID:SYSLIB-STDLIB-LEGACY-TMISC3-0001 CTYPE tests "));

	::TestCType();

	TheTest.Next(_L("MATH tests"));

	::TestMath();

	TheTest.Next(_L("MATH DEF113884 tests"));

	::TestDef113884();

	CloseSTDLIB();

	}

TInt E32Main()

	{

	__UHEAP_MARK;

	CTrapCleanup* tc = CTrapCleanup::New();

    TEST(tc != NULL);

	TheTest.Title();

    TRAPD(err, ::MainL());

	TEST2(err, KErrNone);

	TheTest.End();

	TheTest.Close();

	delete tc;

	__UHEAP_MARKEND;

	User::Heap().Check();

	return KErrNone;

	}