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

370 lines
12 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 = 181180;
//////////////////////////////////////////////////////////////////////////////
@if(!@aspx)
import System
@end
var func
var type
function diff(actual, expected, delta){
if (!isFinite(actual) || !isFinite(expected)){
if (isNaN(actual) && isNaN(expected)) return false
if (actual == expected) return false
else return true
}
if ((actual - expected) <= delta && (expected - actual) <= delta)
return false
return true
}
function retvar(val){return val}
function rettyped1(val){return type(val)}
function rettyped2(val){
return eval(" var ret:type = val; ret")
}
function verifyParams(errstr, input, expected, ... params:Object[]){
var delta = .00005
if (params.length>0) delta = params[0]
if (input!=0 && expected!=0)
delta = (Math.abs(input)+Math.abs(expected))*delta
if (typeof(func(input)) !== typeof(expected))
apLogFailInfo(errstr + ": type failure", typeof(expected), typeof(func(input)), "");
if (diff( func(type(input)), expected, delta))
apLogFailInfo(errstr + ": immediate failure", expected, func(type(input)), "");
//eval(" var insttype:type=input; if (diff( func(insttype), expected, delta)) apLogFailInfo(errstr + ': typed instance failure', expected, func(insttype), ''); ")
var instob:Object = type(input)
if (diff( func(instob), expected, delta))
apLogFailInfo(errstr + ": object instance failure", expected, func(instob), "");
var memob = new Object
memob.mem = type(input)
if (diff( func(memob.mem), expected, delta))
apLogFailInfo(errstr + ": object member failure", expected, func(memob.mem), "");
if (diff( func( retvar(type(input)) ), expected, delta))
apLogFailInfo(errstr + ": function return failure", expected, func(retvar(type(input))), "");
if (diff( func( rettyped1(input) ), expected, delta))
apLogFailInfo(errstr + ": function typed return failure 1", expected, func( rettyped1(input) ), "");
//if (diff( func( rettyped2(input) ), expected, delta))
// apLogFailInfo(errstr + ": function typed return failure 2", expected, func( rettyped2(input) ), "");
}
function tstRnd(errstr, min, max, ... info:Object[]){
var i:int;
var vNum:Number, rounds = 20
if (info.length>0) rounds = info[0];
for (i=0; i<rounds; i++)
{
vNum = Math.floor(Math.random()*(max+1-min))+min; // gives int num between min and max
verifyParams(errstr,vNum,calcExpected(vNum));
}
}
function tstExp(errstr, inMin, inMax, res){
var vNum1, vNum2, nVal, iPow;
var sign = inMax>0?1:-1;
var max = sign*inMax, min = sign*inMin;
for (iPow=0;;iPow+=res)
{
vNum1 = (Math.random()*Math.pow(2,res))*Math.pow(2,iPow);
if (vNum1<max)
verifyParams(errstr,sign*vNum1,calcExpected(sign*vNum1));
vNum2 = (Math.random()*Math.pow(2,res))/Math.pow(2,iPow);
if (vNum2>min)
verifyParams(errstr,sign*vNum2,calcExpected(sign*vNum2));
if (vNum1>=max && vNum2<=min) break
}
}
function tstDec(errstr, inMin, inMax, res){
var vNum1:decimal=0, vNum2:decimal=0, nVal:decimal, iPow:decimal;
var sign:decimal = inMax>0?1:-1;
var max = sign*inMax, min = sign*inMin;
for (iPow=0;;iPow+=res)
{
try{
vNum1 = (Math.random()*Math.pow(2,res))*Math.pow(2,iPow);
if (vNum1<max)
verifyParams(errstr,sign*vNum1,calcExpected(sign*vNum1), .0000000001);
}catch(e){
vNum1 = decimal.MaxValue
}
try{
vNum2 = (Math.random()*Math.pow(2,res))/Math.pow(2,iPow);
if (vNum2>min)
verifyParams(errstr,sign*vNum2,calcExpected(sign*vNum2), .0000000001);
}catch(e){
vNum1 = decimal.MaxValue
}
if ((sign==1 && vNum1>=max && vNum2<=min) || (sign==-1 && vNum1>=max && vNum2<=min)) break
}
}
function calcExpected(input){
var ans = 1
if (input<-650) return 0
if (input>709) return Infinity
if (input==0) return 1
if (input>0){
while (input>100){
input -= 100
ans *= 2.6881171418161614e+43
}
while (input>10){
input -= 10
ans *= 22026.465794806725
}
ans *= Math.pow(Math.E, input)
}
else{
while (input<-100){
input += 100
ans *= 3.7200759760208e-44
}
while (input<-10){
input += 10
ans *= 0.00004539992976248483
}
ans *= Math.pow(Math.E, input)
}
return ans
}
function exph002() {
var i
func = System.Math.Exp
apInitTest("exp002 ");
type = boolean
apInitScenario("1. exp of a boolean");
verifyParams("boolean: n = true", true, Math.E, 0)
verifyParams("boolean: n = false", false, 1, 0)
type = char;
apInitScenario("1. exp of a char");
verifyParams("char: n = 0", char.MinValue, 1, 0)
tstRnd("char: byte.min < n < byte.max", byte.MinValue+1, byte.MaxValue-1)
verifyParams("char: n = byte.max", byte.MaxValue, 5.5602316477275526531952131452979e+110)
tstRnd("char: byte.max < n < char.max", byte.MaxValue+1, char.MaxValue-1)
verifyParams("char: n = char.max", char.MaxValue, Infinity)
type = Single;
apInitScenario("1. exp of a Single");
verifyParams("single: n = -0", -0, 1, 0)
verifyParams("single: n = +0", +0, 1, 0)
tstExp("single: 0 < n < float.max", 1e-40, Single.MaxValue, 10)
tstExp("single: float.min < n < 0", -1e-40, Single.MinValue, 10)
verifyParams("single: n = float.max", Single.MaxValue, Infinity)
verifyParams("single: n = float.min", Single.MinValue, 0)
verifyParams("single: n = Infinity", Single.PositiveInfinity, Infinity)
verifyParams("single: n = -Infinity", Single.NegativeInfinity, 0)
verifyParams("single: n = NaN", NaN, NaN)
type = double;
apInitScenario("1. exp of a "+ type);
verifyParams("double: n = -0", -0, 1)
verifyParams("double: n = +0", +0, 1)
tstExp("double: 0 < n < double.max", 1e-40, double.MaxValue, 10)
tstExp("double: double.min < n < 0", -1e-40, double.MinValue, 10)
verifyParams("double: n = double.max", double.MaxValue, Infinity)
verifyParams("double: n = double.min", double.MinValue, 0)
verifyParams("double: n = Infinity", double.PositiveInfinity, Infinity)
verifyParams("double: n = -Infinity", double.NegativeInfinity, 0)
verifyParams("double: n = NaN", NaN, NaN)
type = decimal;
apInitScenario("1. exp of a decimal");
verifyParams("decimal: n = 0", decimal.Zero, 1)
verifyParams("decimal: n = 1", decimal.One, Math.E)
verifyParams("decimal: n = -1", decimal.MinusOne, 1/Math.E)
tstDec("decimal: 0 < n < decimal.max", 1e-40, decimal.MaxValue, 10)
tstDec("decimal: decimal.min < n < 0", -1e-40, decimal.MinValue, 10)
//apLogFailInfo("bug: 277604", "", "", "");
verifyParams("decimal: n = decimal.max", decimal.MaxValue, Infinity)
verifyParams("decimal: n = decimal.min", decimal.MinValue, 0)
type = byte;
apInitScenario("1. exp of a byte");
verifyParams("byte: n = 0", byte.MinValue, 1)
tstRnd("byte: byte.min < n < byte.max", byte.MinValue+1, byte.MaxValue-1)
verifyParams("byte: n = byte.max", byte.MaxValue, 5.5602316477275526531952131452979e+110)
type = ushort;
apInitScenario("1. exp of a ushort");
verifyParams("ushort: n = ushort.min", ushort.MinValue, 1)
tstRnd("ushort: ushort.min < n < ushort.max", ushort.MinValue+1, ushort.MaxValue-1)
verifyParams("ushort: n = ushort.max", ushort.MaxValue, Infinity)
type = uint;
apInitScenario("1. exp of a uint");
verifyParams("uint: n = uint.min", uint.MinValue, 1)
tstRnd("uint: uint.min < n < uint.max", uint.MinValue+1, uint.MaxValue-1)
verifyParams("uint: n = uint.max", uint.MaxValue, Infinity)
type = ulong;
apInitScenario("1. exp of a ulong");
verifyParams("ulong: n = ulong.min", ulong.MinValue, 1)
tstRnd("ulong: ulong.min < n < ulong.max", ulong.MinValue+1, ulong.MaxValue-1)
verifyParams("ulong: n = ulong.max", ulong.MaxValue, Infinity)
type = sbyte;
apInitScenario("1. exp of a sbyte");
verifyParams("sbyte: n = sbyte.min", sbyte.MinValue, 2.5722093726424193e-56)
tstRnd("sbyte: sbyte.min < n < sbyte.max", sbyte.MinValue+1, sbyte.MaxValue-1)
verifyParams("sbyte: n = sbyte.max", sbyte.MaxValue, 1.4302079958348075e+55)
type = short;
apInitScenario("1. exp of a short");
verifyParams("short: n = short.min", short.MinValue, 0)
tstRnd("short: short.min < n < short.max", short.MinValue+1, short.MaxValue-1)
verifyParams("short: n = short.max", short.MaxValue, Infinity)
type = int;
apInitScenario("1. exp of a int");
verifyParams("int: n = int.min", int.MinValue, 0)
tstRnd("int: int.min < n < int.max", int.MinValue+1, int.MaxValue-1)
verifyParams("int: n = int.max", int.MaxValue, Infinity)
type = long;
apInitScenario("1. exp of a long");
verifyParams("long: n = long.min", long.MinValue, 0)
tstRnd("long: long.min < n < long.max", long.MinValue+1, long.MaxValue-1)
verifyParams("long: n = long.max", long.MaxValue, Infinity)
type = String;
apInitScenario("1. exp of a String");
verifyParams("String: n = long.min", long.MinValue, 0)
tstRnd("String: long.min < n < long.max", long.MinValue+1, long.MaxValue-1)
verifyParams("String: n = long.max", long.MaxValue, Infinity)
type = Date;
apInitScenario("1. exp of a Date");
verifyParams("Date: n = -int.max", -int.MaxValue, NaN)
type = Array;
apInitScenario("1. exp of a Array");
var arrvar:Array = new Array(1)
arrvar[0] = -12.34
verifyParams("Array: n = -12.34", arrvar, 4.3732680098504383363977549779656e-6)
apEndTest();
}
exph002();
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() {}