/*

* Copyright (c) 2002-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:

*

*/

// INCLUDE FILES

#include <e32math.h>

#include <stdlib.h>

#include <math.h>

#include "tdouble_blr.h"

CTestDouble_blr::~CTestDouble_blr() 

	{ 

	}  

CTestDouble_blr::CTestDouble_blr(const TDesC& aStepName)

	{

	// MANDATORY Call to base class method to set up the human readable name for logging.

    iParamCnt=0;

	SetTestStepName(aStepName);		

	}

TVerdict CTestDouble_blr::doTestStepPreambleL()

	{

	__UHEAP_MARK;	

	SetTestStepResult(EPass);

	return TestStepResult();

	}

TVerdict CTestDouble_blr::doTestStepPostambleL()

	{

	__UHEAP_MARKEND;	

	return TestStepResult();

	}

TVerdict CTestDouble_blr::doTestStepL()

	{

	int err;

	if(TestStepName() == Kcbrt_test)

		{

   		INFO_PRINTF1(_L("cbrt_test():"));

   		err = cbrt_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

	else if(TestStepName() == Kceil_test)

		{

   		INFO_PRINTF1(_L("ceil_test():"));

   		err = ceil_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

   	else if(TestStepName() == Kerf_test)

		{

   		INFO_PRINTF1(_L("erf_test():"));

   		err = erf_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

   	else if(TestStepName() == Kerfc_test)

		{

   		INFO_PRINTF1(_L("erfc_test():"));

   		err = erfc_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

   	else if(TestStepName() == Kexp_test)

		{

   		INFO_PRINTF1(_L("exp_test():"));

   		err = exp_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

   	else if(TestStepName() == Kexp2_test)

		{

   		INFO_PRINTF1(_L("exp2_test():"));

   		err = exp2_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

   	else if(TestStepName() == Kexpm1_test)

		{

   		INFO_PRINTF1(_L("expm1_test():"));

   		err = expm1_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Kfabs_test)

		{

   		INFO_PRINTF1(_L("fabs_test():"));

   		err = fabs_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Kilogb_test)

		{

   		INFO_PRINTF1(_L("ilogb_test():"));

   		err = ilogb_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

  	else if(TestStepName() == Kj0_test)

		{

   		INFO_PRINTF1(_L("j0_test():"));

   		err = j0_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Kj1_test)

		{

   		INFO_PRINTF1(_L("j1_test():"));

   		err = j1_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

   else if(TestStepName() == Klrint_test)

		{

   		INFO_PRINTF1(_L("lrint_test():"));

   		err = lrint_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kllrint_test)

		{

   		INFO_PRINTF1(_L("llrint_test():"));

   		err = llrint_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}  

   	else if(TestStepName() == Klog_test)

		{

   		INFO_PRINTF1(_L("log_test():"));

   		err = log_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Klog10_test)

		{

   		INFO_PRINTF1(_L("log10_test():"));

   		err = log10_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Klog1p_test)

		{

   		INFO_PRINTF1(_L("log1p_test():"));

   		err = log1p_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Klogb_test)

		{

   		INFO_PRINTF1(_L("logb_test():"));

   		err = logb_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}  

   	else if(TestStepName() == Klround_test)

		{

   		INFO_PRINTF1(_L("lround_test():"));

   		err = lround_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kllround_test)

		{

   		INFO_PRINTF1(_L("llround_test():"));

   		err = llround_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Krint_test)

		{

   		INFO_PRINTF1(_L("rint_test():"));

   		err = rint_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Ksqrt_test)

		{

   		INFO_PRINTF1(_L("sqrt_test():"));

   		err = sqrt_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Ktrunc_test)

		{

   		INFO_PRINTF1(_L("trunc_test():"));

   		err = trunc_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}  

   	else if(TestStepName() == Ky0_test)

		{

   		INFO_PRINTF1(_L("y0_test():"));

   		err = y0_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Ky1_test)

		{

   		INFO_PRINTF1(_L("y1_test():"));

   		err = y1_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kfloor_test)

		{

   		INFO_PRINTF1(_L("floor_test():"));

   		err = floor_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Ksignificand_test)

		{

   		INFO_PRINTF1(_L("significand_test():"));

   		err = significand_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Knearbyint_test)

		{

   		INFO_PRINTF1(_L("nearbyint_test():"));

   		err = nearbyint_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kisinf_test)

		{

   		INFO_PRINTF1(_L("isinf_test():"));

   		err = isinf_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}  

   	else if(TestStepName() == Kisnan_test)

		{

   		INFO_PRINTF1(_L("isnan_test():"));

   		err = isnan_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kfdim_test)

		{

   		INFO_PRINTF1(_L("fdim_test():"));

   		err = fdim_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Kfmax_test)

		{

   		INFO_PRINTF1(_L("fmax_test():"));

   		err = fmax_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Kfmin_test)

		{

   		INFO_PRINTF1(_L("fmin_test():"));

   		err = fmin_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kfma_test)

		{

   		INFO_PRINTF1(_L("fma_test():"));

   		err = fma_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kfmod_test)

		{

   		INFO_PRINTF1(_L("fmod_test():"));

   		err = fmod_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}  

   	else if(TestStepName() == Khypot_test)

		{

   		INFO_PRINTF1(_L("hypot_test():"));

   		err = hypot_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kremainder_test)

		{

   		INFO_PRINTF1(_L("remainder_test():"));

   		err = remainder_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Knexttoward_test)

		{

   		INFO_PRINTF1(_L("nexttoward_test():"));

   		err = nexttoward_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Knextafter_test)

		{

   		INFO_PRINTF1(_L("nextafter_test():"));

   		err = nextafter_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Kcopysign_test)

		{

   		INFO_PRINTF1(_L("copysign_test():"));

   		err = copysign_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kfjn_test)

		{

   		INFO_PRINTF1(_L("jn_test():"));

   		err = jn_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}  

   	else if(TestStepName() == Kfyn_test)

		{

   		INFO_PRINTF1(_L("yn_test():"));

   		err = yn_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kscalb_test)

		{

   		INFO_PRINTF1(_L("scalb_test():"));

   		err = scalb_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kscalbn_test)

		{

   		INFO_PRINTF1(_L("scalbn_test():"));

   		err = scalbn_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kpow_test)

		{

   		INFO_PRINTF1(_L("pow_test():"));

   		err = pow_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kacos_test)

		{

   		INFO_PRINTF1(_L("acos_test():"));

   		err = acos_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Kacosh_test)

		{

   		INFO_PRINTF1(_L("acosh_test():"));

   		err = acosh_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

    else if(TestStepName() == Kasin_test)

		{

   		INFO_PRINTF1(_L("asin_test():"));

   		err = asin_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kasinh_test)

		{

   		INFO_PRINTF1(_L("asinh_test():"));

   		err = asinh_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}  

   	else if(TestStepName() == Katan_test)

		{

   		INFO_PRINTF1(_L("atan_test():"));

   		err = atan_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Katanh_test)

		{

   		INFO_PRINTF1(_L("atanh_test():"));

   		err = atanh_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == KCos_test)

		{

   		INFO_PRINTF1(_L("Cos_test():"));

   		err = Cos_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kcosh_test)

		{

   		INFO_PRINTF1(_L("cosh_test():"));

   		err = cosh_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Ksin_test)

		{

   		INFO_PRINTF1(_L("sin_test():"));

   		err = sin_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}  

   	else if(TestStepName() == Ksinh_test)

		{

   		INFO_PRINTF1(_L("sinh_test():"));

   		err = sinh_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Ktan_test)

		{

   		INFO_PRINTF1(_L("tan_test():"));

   		err = tan_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Ktanh_test)

		{

   		INFO_PRINTF1(_L("tanh_test():"));

   		err = tanh_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Katan2_test)

		{

   		INFO_PRINTF1(_L("atan2_test():"));

   		err = atan2_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kisnormal_test)

		{

   		INFO_PRINTF1(_L("isnormal_test():"));

   		err = isnormal_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}  

   	else if(TestStepName() == Ksignbit_test)

		{

   		INFO_PRINTF1(_L("signbit_test():"));

   		err = signbit_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kscalbln_test)

		{

   		INFO_PRINTF1(_L("scalbln_test():"));

   		err = scalbln_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kfinite_test)

		{

   		INFO_PRINTF1(_L("finite_test():"));

   		err = finite_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kmodf_test)

		{

   		INFO_PRINTF1(_L("modf_test():"));

   		err = modf_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kldexp_test)

		{

   		INFO_PRINTF1(_L("ldexp_test():"));

   		err = ldexp_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kdrem_test)

		{

   		INFO_PRINTF1(_L("drem_test():"));

   		err = drem_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kfrexp_test)

		{

   		INFO_PRINTF1(_L("frexp_test():"));

   		err = frexp_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}  

   	else if(TestStepName() == Kremquo_test)

		{

   		INFO_PRINTF1(_L("remquo_test():"));

   		err = remquo_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kremquo_remcheck_test)

		{

   		INFO_PRINTF1(_L("remquo_remcheck_test():"));

   		err = remquo_remcheck_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kgamma_test)

		{

   		INFO_PRINTF1(_L("gamma_test():"));

   		err = gamma_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Klgamma_test)

		{

   		INFO_PRINTF1(_L("lgamma_test():"));

   		err = lgamma_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		} 

   	else if(TestStepName() == Kfpclassify_test)

		{

   		INFO_PRINTF1(_L("fpclassify_test():"));

   		err = fpclassify_test();

   		SetTestStepResult(err ? static_cast<TVerdict>(err) : EPass);

   		}

	return TestStepResult(); 

	}

// -----------------------------------------------------------------------------

// Utility functions for testing.

// -----------------------------------------------------------------------------

void CTestDouble_blr::ReadIntParam(TInt &aInt)

	{

	_LIT( Kparam, "Param%d" );

    TBuf<8> pNameBuf;

    TPtrC string;

    pNameBuf.Format(Kparam,++iParamCnt);

	TBool res = GetIntFromConfig(ConfigSection(), pNameBuf, aInt);

	}

void CTestDouble_blr::ReadFloatParam(FLOAT &aDbl)

	{

	char Str[MAX_SIZE];

	double d;

	ReadStringParam(Str);

	#ifdef TESTING_FLOAT

		d = strtod(Str,NULL);

	#else

	  	d = strtod(Str,NULL);

	#endif

	aDbl = d; 

	}

void CTestDouble_blr::ReadStringParam(char* aString)

	{

	_LIT( Kparam, "Param%d" );

    TBuf<100> pNameBuf;

  	TPtrC descriptor;

  	TInt i;

	pNameBuf.Format(Kparam,++iParamCnt);

	TBool ret = GetStringFromConfig(ConfigSection(), pNameBuf, descriptor);

	if ( descriptor == _L("\"\"") )

		{

	  	i = 0;

	  	}

	else

		{

		// If the string is quoted, take only the insides

		if ((descriptor[0] == '\"') && (descriptor[descriptor.Length()-1] == '\"'))

	    	{

	    	for ( i=0; i<descriptor.Length()-2; i++ )

    	  		{

        		aString[i]=descriptor[i+1];

        		}