// 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;
	}