Files
yallie 9fa3874800 Added the contents of the archive.
Moved the original file to the archive subfolder.
2017-11-20 16:11:42 +03:00

269 lines
11 KiB
JavaScript

//# ==++==
//#
//#
//# Copyright (c) 2002 Microsoft Corporation. All rights reserved.
//#
//# The use and distribution terms for this software are contained in the file
//# named license.txt, which can be found in the root of this distribution.
//# By using this software in any fashion, you are agreeing to be bound by the
//# terms of this license.
//#
//# You must not remove this notice, or any other, from this software.
//#
//#
//# ==--==
//####################################################################################
@cc_on
import System;
var NULL_DISPATCH = null;
var apGlobalObj;
var apPlatform;
var lFailCount;
var iTestID = 53747;
function verify(sCat, vAct, vExp, bugNum){
@if(@_fast)
var nEpsilon;
@end
if (null == bugNum) bugNum = "";
@if (@_win32 && !@_alpha)
nEpsilon=2.2204460492503131e-014;
@else
nEpsilon=1.22e-03;
@end
var fFailed = false;
if (isNaN(vExp))
{
if (!isNaN(vAct))
fFailed = true;
}
else
if ((Math.abs(vExp-vAct)/vExp) > nEpsilon)
fFailed = true;
if (fFailed)
apLogFailInfo( m_scen+(sCat.length?"--"+sCat:"")+" failed",vExp,vAct,bugNum);
}
var m_scen = "";
function tan001()
{
apInitTest("tan001 ");
//----------------------------------------------------------------------------
apInitScenario("1. number, decimal, integer");
m_scen = "number, decimal, integer";
verify("pos min", Math.tan(1), 1.5574077246549023, null);
verify("pos min < n < VT_UI1 pos max", Math.tan(127), 4.185891831851989, null);
verify("VT_UI1 pos max", Math.tan(255), .5872544546093196, null);
verify("VT_I2 pos excl-min", Math.tan(256), 25.111559463448298, null);
verify("VT_I2 pos excl-min < n < VT_I2 pos max", Math.tan(12869), 1.6900023473189918, null);
verify("VT_I2 pos max", Math.tan(32767), .1908923443022149, null);
verify("VT_I4 pos excl-min", Math.tan(32768), 2.487965179307625, null);
verify("VT_I4 pos excl-min < n < pos max", Math.tan(1143483646), .78217072693775, null);
verify("pos max", Math.tan(2147483647), 1.0523779637409605, null);
verify("neg max", Math.tan(-1), -1.5574077246549023, null);
verify("neg max > n > VT_UI1 neg min", Math.tan(-201), 0.06200912463436088, null);
verify("VT_UI1 neg min", Math.tan(-256), -25.111559463448298, null);
verify("VT_I2 neg excl-max", Math.tan(-257), .699808745845877, null);
verify("VT_I2 neg excl-max > n > VT_I2 neg min", Math.tan(-12869), -1.6900023473189918, null);
verify("VT_I2 neg min", Math.tan(-32768), -2.487965179307625, null);
verify("VT_I4 neg excl-max", Math.tan(-32769), 1.4071957738990788, null);
verify("VT_I4 neg excl-max > n > neg min", Math.tan(-1143483646), -.78217072693775, null);
verify("neg min", Math.tan(-2147483648), 4.084289455249709, null);
verify("zero", Math.tan(0), 0, null);
//----------------------------------------------------------------------------
apInitScenario("2. number, hexidecimal");
m_scen = "number, hexidecimal";
verify("pos min < n < pos hex excl-min", Math.tan(0xabcdef), 2.4088738861884016, null);
verify("pos hex excl-min: 0x80000000", Math.tan(0x80000000), -4.084289455249709, null);
verify("max pos: 0xffffffff", Math.tan(0xffffffff), -.572251370173207, null);
verify("neg max > n > neg hex excl-max", Math.tan(-0xabcdef), -2.4088738861884016, null);
verify("pos hex excl-min: -0x80000001", Math.tan(-0x80000001), .3432841602980747, null);
verify("min neg: -0xffffffff", Math.tan(-0xffffffff), .572251370173207, null);
verify("zero", Math.tan(0x0), 0, null);
//----------------------------------------------------------------------------
apInitScenario("3. number, octal");
m_scen = "number, octal";
verify("pos min < n < pos hex excl-min", Math.tan(01234567), 5.2637745304275345, null);
verify("pos hex excl-min: 020000000000", Math.tan(020000000000), -4.084289455249709, null);
verify("max pos: 037777777777", Math.tan(037777777777), -.572251370173207, null);
verify("neg max > n > neg hex excl-max", Math.tan(-076543210), .13626622113834033, null);
verify("pos hex excl-min: -020000000001", Math.tan(-020000000001), .3432841602980747, null);
verify("min neg: -037777777777", Math.tan(-037777777777), .572251370173207, null);
verify("pos zero", Math.tan(00), 0, null);
//----------------------------------------------------------------------------
// FreeBSD and PPC don't calculate the values for tangent large magnitude arguments well
apInitScenario("4. number, float");
m_scen = "number, float";
/* FreeBSD and PPC don't calculate the values for tangent large magnitude arguments well
verify("pos min", Math.tan(2.2250738585072014e-308), 2.2250738585072014e-308, null);
verify("pos min < n < VT_R4 pos max", Math.tan(9876543210000), 2.7932645798332505, null);
verify("VT_R4 pos max", Math.tan(3.402823466e38), 1.043008234809, null);
verify("VT_R8 pos excl-min", Math.tan(3.402823467e38), -0.553344933221464, null);
verify("VT_R8 pos excl-min < n < pos max", Math.tan(4.43269743388067e107), 2.11845045580394, null);
verify("pos max", Math.tan(1.7976931348623157e308), -0.467823746119309, null);
verify("neg max > n > VT_R4 neg min", Math.tan(-66100533593023300000), 2.46662151476983, null);
verify("VT_R4 neg min", Math.tan(-3.402823466e38), -1.043008234809, null);
verify("VT_R8 neg excl-max", Math.tan(-3.402823467e38), 0.553344933221464, null);
verify("VT_R8 neg excl-max > n > neg min", Math.tan(-7.17170763763262e243), -0.234653121658244, null);
verify("neg min", Math.tan(-1.7976931348623157e308), 0.467823746119309, null); */
verify("neg max", Math.tan(0), 0, null);
verify("zero", Math.tan(0), 0, null);
//----------------------------------------------------------------------------
apInitScenario("5. num string, decimal, integer");
m_scen = "number, decimal, integer";
verify("pos min", Math.tan("1"), 1.5574077246549023, null);
verify("pos min < n < VT_UI1 pos max", Math.tan("127"), 4.185891831851989, null);
verify("VT_UI1 pos max", Math.tan("255"), .5872544546093196, null);
verify("VT_I2 pos excl-min", Math.tan("256"), 25.111559463448298, null);
verify("VT_I2 pos excl-min < n < VT_I2 pos max", Math.tan("12869"), 1.6900023473189918, null);
verify("VT_I2 pos max", Math.tan("32767"), .1908923443022149, null);
verify("VT_I4 pos excl-min", Math.tan("32768"), 2.487965179307625, null);
verify("VT_I4 pos excl-min < n < pos max", Math.tan("1143483646"), .78217072693775, null);
verify("pos max", Math.tan("2147483647"), 1.0523779637409605, null);
verify("neg max", Math.tan("-1"), -1.5574077246549023, null);
verify("neg max > n > VT_UI1 neg min", Math.tan("-201"), 0.06200912463436088, null);
verify("VT_UI1 neg min", Math.tan("-256"), -25.111559463448298, null);
verify("VT_I2 neg excl-max", Math.tan("-257"), .699808745845877, null);
verify("VT_I2 neg excl-max > n > VT_I2 neg min", Math.tan("-12869"), -1.6900023473189918, null);
verify("VT_I2 neg min", Math.tan("-32768"), -2.487965179307625, null);
verify("VT_I4 neg excl-max", Math.tan("-32769"), 1.4071957738990788, null);
verify("VT_I4 neg excl-max > n > neg min", Math.tan("-1143483646"), -.78217072693775, null);
verify("neg min", Math.tan("-2147483648"), 4.084289455249709, null);
verify("zero", Math.tan("0"), 0, null);
//----------------------------------------------------------------------------
apInitScenario("7. num string, octal");
m_scen = "num string, octal";
verify("pos min < n < pos hex excl-min", Math.tan("01234567"), -.3913697624930858, null);
verify("pos hex excl-min: 020000000000", Math.tan("020000000000"), -1.622530013387591, null);
verify("max pos: 037777777777", Math.tan("037777777777"), 11.94163139078934, null);
verify("neg max > n > neg hex excl-max", Math.tan("-076543210"), -8.621078417384734, null);
verify("pos hex excl-min: -020000000001", Math.tan("-020000000001"), 0.018464242203798515, null);
verify("min neg: -037777777777", Math.tan("-037777777777"), -11.94163139078934, null);
verify("pos zero", Math.tan("00"), 0, null);
//----------------------------------------------------------------------------
apInitScenario("8. num string, float");
m_scen = "number, float";
/* FreeBSD and PPC don't calculate the values for tangent large magnitude arguments well
verify("pos min", Math.tan("2.2250738585072014e-308"), 2.2250738585072014e-308, null);
verify("pos min < n < VT_R4 pos max", Math.tan("9.87654321e12"), 2.7932645798332505, null);
verify("VT_R4 pos max", Math.tan("3.402823466e+38"), 1.043008234809, null);
verify("VT_R8 pos excl-min", Math.tan("3.402823467e+38"), -0.553344933221464, null);
verify("VT_R8 pos excl-min < n < pos max", Math.tan("4.43269743388067e107"), 2.11845045580394, null);
verify("pos max", Math.tan("1.7976931348623158e308"), -0.467823746119309, null);
verify("neg max", Math.tan("-2.2250738585072012595e-308"), -2.225073858507201e-308, null);
verify("neg max > n > VT_R4 neg min", Math.tan("-6.61005335930233e19"), 2.46662151476983, null);
verify("VT_R4 neg min", Math.tan("-3.402823466e+38"), -1.043008234809, null);
verify("VT_R8 neg excl-max", Math.tan("-3.402823467e+38"), 0.553344933221464, null);
verify("VT_R8 neg excl-max > n > neg min", Math.tan("-7.17170763763262e243"), -0.234653121658244, null);
verify("neg min", Math.tan("-1.797693134862315807e308"), 0.467823746119309, null); */
verify("zero", Math.tan("0.0"), 0, null);
//----------------------------------------------------------------------------
apInitScenario("13. constants");
m_scen = "constants";
verify("true",Math.tan(true), 1.5574077246549023, null);
verify("false",Math.tan(false), 0, null);
//----------------------------------------------------------------------------
apInitScenario("14. null");
m_scen = "null";
verify("",Math.tan(null), 0, null);
apEndTest();
}
tan001();
if(lFailCount >= 0) System.Environment.ExitCode = lFailCount;
else System.Environment.ExitCode = 1;
function apInitTest(stTestName) {
lFailCount = 0;
apGlobalObj = new Object();
apGlobalObj.apGetPlatform = function Funca() { return "Rotor" }
apGlobalObj.LangHost = function Funcb() { return 1033;}
apGlobalObj.apGetLangExt = function Funcc(num) { return "EN"; }
apPlatform = apGlobalObj.apGetPlatform();
var sVer = "1.0"; //navigator.appVersion.toUpperCase().charAt(navigator.appVersion.toUpperCase().indexOf("MSIE")+5);
apGlobalObj.apGetHost = function Funcp() { return "Rotor " + sVer; }
print ("apInitTest: " + stTestName);
}
function apInitScenario(stScenarioName) {print( "\tapInitScenario: " + stScenarioName);}
function apLogFailInfo(stMessage, stExpected, stActual, stBugNum) {
lFailCount = lFailCount + 1;
print ("***** FAILED:");
print ("\t\t" + stMessage);
print ("\t\tExpected: " + stExpected);
print ("\t\tActual: " + stActual);
}
function apGetLocale(){ return 1033; }
function apWriteDebug(s) { print("dbg ---> " + s) }
function apEndTest() {}