mirror of
https://github.com/SSCLI/sscli_20021101
synced 2026-06-08 12:28:57 +00:00
yallie
413 lines
10 KiB
JavaScript
413 lines
10 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 = 52807;
|
|
|
|
|
|
// Replacement random number generator (auto-seeding)
|
|
function rand ()
|
|
{
|
|
@if(@_fast)
|
|
{
|
|
var hold = -1;
|
|
var t, d;
|
|
|
|
if (hold == -1) // Only used for initial seed
|
|
{
|
|
t = (d = new Date()).getTime() % 4294967295;
|
|
t = ((t&0xFF000000)>>>24) | (t&0x00FF0000>>8) |
|
|
((t&0x0000FF00)<<8) | ((t&0x000000FF)<<24);
|
|
t = ((t&0x0F000F00)>>4) | ((t&0x00F000F0)<<4) | (t&0xF00FF00F);
|
|
t = ((t&0x30303030)>>2) | ((t&0x0C0C0C0C)<<2) | (t&0xC3C3C3C3);
|
|
t = ((t&0x44444444)>>1) | ((t&0x22222222)<<1) | (t&0x99999999);
|
|
hold = t;
|
|
}
|
|
// LNC RNG Algorithm
|
|
hold = (Math.abs(hold)*214013+2531011) % 4294967295;
|
|
|
|
return ((hold>>>12)&0xffff)/0xffff;
|
|
}
|
|
@else
|
|
{
|
|
if (!rand.hold) // Only used for initial seed
|
|
{
|
|
var t = (rand.d=new Date()).getTime() % 4294967295;
|
|
t = ((t&0xFF000000)>>>24) | (t&0x00FF0000>>8) |
|
|
((t&0x0000FF00)<<8) | ((t&0x000000FF)<<24);
|
|
t = ((t&0x0F000F00)>>4) | ((t&0x00F000F0)<<4) | (t&0xF00FF00F);
|
|
t = ((t&0x30303030)>>2) | ((t&0x0C0C0C0C)<<2) | (t&0xC3C3C3C3);
|
|
t = ((t&0x44444444)>>1) | ((t&0x22222222)<<1) | (t&0x99999999);
|
|
rand.hold = t;
|
|
}
|
|
// LNC RNG Algorithm
|
|
rand.hold = (Math.abs(rand.hold)*214013+2531011) % 4294967295;
|
|
|
|
return ((rand.hold>>>12)&0xffff)/0xffff;
|
|
}
|
|
@end
|
|
}
|
|
|
|
|
|
// Returns the avg of a param array of numbers
|
|
function avg ()
|
|
{
|
|
// arguments[] array not accepted in fast mode
|
|
@if(!@_fast)
|
|
var argv=avg.arguments, tot=0;
|
|
for ( var i = 0; i < argv.length; i++ )
|
|
tot += argv[i];
|
|
return tot/argv.length;
|
|
@end
|
|
}
|
|
|
|
|
|
// Returns the factorial of the number passed in
|
|
function factorial (val)
|
|
{
|
|
var res=1;
|
|
for (var i=2; i<=val; i++)
|
|
res*=i;
|
|
return res;
|
|
}
|
|
|
|
|
|
// Equiv to the VBA Sgn function
|
|
function sgn (val)
|
|
{
|
|
if (val > 0) return 1;
|
|
if (val < 0) return -1;
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
// trims off any fractional values--necessary to handle numbers greater than INT_MAX
|
|
function fix (num)
|
|
{
|
|
if (typeof num != "number") num = parseFloat(num);
|
|
if (num < Math.pow(2,31))
|
|
return parseInt( num );
|
|
|
|
var i = (""+num).indexOf(".");
|
|
if ( (""+num).indexOf("e") == -1 && i != -1 )
|
|
num = (""+num).substring(0,i);
|
|
|
|
return parseFloat( num );
|
|
}
|
|
|
|
|
|
@if(!@aspx)
|
|
function obFoo() {};
|
|
@else
|
|
expando function obFoo() {};
|
|
@end
|
|
|
|
function forin125() {
|
|
|
|
apInitTest("forIn125 ");
|
|
|
|
var i;
|
|
|
|
// Added to handle strict mode in JScript 7.0
|
|
@cc_on
|
|
@if (@_fast)
|
|
var ob, cMem, tMem, n, tExpect, tActual;
|
|
|
|
@end
|
|
|
|
//----------------------------------------------------------------------------
|
|
apInitScenario("2. built-in, exec, not instanciated");
|
|
// all should have members: length, arguments, caller, and prototype
|
|
|
|
// Fast mode does not allow the user to add expando properties to built-in objects
|
|
@if(!@_fast)
|
|
|
|
ob=Array; cMem=0;
|
|
tMem=cMem+5; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in Array) {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
Array[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
tExpect = factorial(tMem)/factorial(cMem);
|
|
tActual = ob.a*ob.b*ob.c*ob.d*ob.e*ob[n-2]*ob[n-1]*ob[n];
|
|
|
|
if (n != tMem || (tActual != tExpect)) apLogFailInfo( "built-in, exec, not instantiated--Array failed", tMem, n,"");
|
|
|
|
ob=Boolean; cMem=0;
|
|
tMem=cMem+5; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in Boolean) {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
Boolean[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
tExpect = factorial(tMem)/factorial(cMem);
|
|
tActual = ob.a*ob.b*ob.c*ob.d*ob.e*ob[n-2]*ob[n-1]*ob[n];
|
|
|
|
if (n != tMem || (tActual != tExpect)) apLogFailInfo( "built-in, exec, not instantiated--Boolean failed", tMem, n,"");
|
|
|
|
ob=Date; cMem=0;
|
|
tMem=cMem+5; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in Date) {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
Date[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
tExpect = factorial(tMem)/factorial(cMem);
|
|
tActual = ob.a*ob.b*ob.c*ob.d*ob.e*ob[n-2]*ob[n-1]*ob[n];
|
|
|
|
if (n != tMem || (tActual != tExpect)) apLogFailInfo( "built-in, exec, not instantiated--Date failed", tMem, n,"");
|
|
|
|
ob=Number; cMem=0;
|
|
tMem=cMem+5; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in Number) {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
Number[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
tExpect = factorial(tMem)/factorial(cMem);
|
|
tActual = ob.a*ob.b*ob.c*ob.d*ob.e*ob[n-2]*ob[n-1]*ob[n];
|
|
|
|
if (n != tMem || (tActual != tExpect)) apLogFailInfo( "built-in, exec, not instantiated--Number failed", tMem, n,"");
|
|
|
|
ob=Object; cMem=0;
|
|
tMem=cMem+5; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in Object) {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
Object[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
tExpect = factorial(tMem)/factorial(cMem);
|
|
tActual = ob.a*ob.b*ob.c*ob.d*ob.e*ob[n-2]*ob[n-1]*ob[n];
|
|
|
|
if (n != tMem || (tActual != tExpect)) apLogFailInfo( "built-in, exec, not instantiated--Object failed", tMem, n,"");
|
|
|
|
@end
|
|
|
|
//----------------------------------------------------------------------------
|
|
apInitScenario("3. user-defined, not instanciated");
|
|
// should have members: length, arguments, caller, and prototype
|
|
|
|
@if(!@_fast)
|
|
ob=obFoo; cMem=0;
|
|
tMem=cMem+5; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in obFoo) {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
obFoo[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
tExpect = factorial(tMem)/factorial(cMem);
|
|
tActual = ob.a*ob.b*ob.c*ob.d*ob.e*ob[n-2]*ob[n-1]*ob[n];
|
|
|
|
if (n != tMem || (tActual != tExpect)) apLogFailInfo( "user-defined, not instantiated failed", tMem, n,"");
|
|
@end
|
|
|
|
|
|
//----------------------------------------------------------------------------
|
|
apInitScenario("4. string");
|
|
|
|
ob=" "; cMem=0;
|
|
tMem=cMem; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in " ") {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
" "[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
if (n != tMem) apLogFailInfo( "string--single space failed", tMem, n,"");
|
|
|
|
ob=" "; cMem=0;
|
|
tMem=cMem; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in " ") {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
" "[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
if (n != tMem) apLogFailInfo( "string--multiple spaces failed", tMem, n,"");
|
|
|
|
ob="foo"; cMem=0;
|
|
tMem=cMem; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in "foo") {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
"foo"[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
if (n != tMem) apLogFailInfo( "string--as single word failed", tMem, n,"");
|
|
|
|
ob=" foo"; cMem=0;
|
|
tMem=cMem; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in " foo") {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
" foo"[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
if (n != tMem) apLogFailInfo( "string--as single word, leading space failed", tMem, n,"");
|
|
|
|
ob="foo "; cMem=0;
|
|
tMem=cMem; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in "foo ") {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
"foo "[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
if (n != tMem) apLogFailInfo( "string--as single word, trailing space failed", tMem, n,"");
|
|
|
|
ob="foo bar"; cMem=0;
|
|
tMem=cMem; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in "foo bar") {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
"foo bar"[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
if (n != tMem) apLogFailInfo( "string--as multiple word failed", tMem, n,"");
|
|
|
|
ob=" foo bar"; cMem=0;
|
|
tMem=cMem; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in " foo bar") {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
" foo bar"[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
if (n != tMem) apLogFailInfo( "string--as multiple word, leading space failed", tMem, n,"");
|
|
|
|
ob="foo bar "; cMem=0;
|
|
tMem=cMem; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in "foo bar ") {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
"foo bar "[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
if (n != tMem) apLogFailInfo( "string--as multiple word, trailing space failed", tMem, n,"");
|
|
|
|
ob=""; cMem=0;
|
|
tMem=cMem; n=1; i=null;
|
|
ob.a=ob.b=ob.c=ob.d=ob.e=null;
|
|
|
|
for (i in "") {
|
|
if (n % 2 && n < 6) ob[++tMem] = null;
|
|
""[i]=n;
|
|
n++;
|
|
}
|
|
n--;
|
|
|
|
if (n != tMem) apLogFailInfo( "string--zls failed", tMem, n,"");
|
|
|
|
|
|
apEndTest();
|
|
|
|
}
|
|
|
|
|
|
|
|
forin125();
|
|
|
|
|
|
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() {}
|