mirror of
https://github.com/SSCLI/sscli_20021101
synced 2026-06-08 12:28:57 +00:00
yallie
479 lines
12 KiB
JavaScript
479 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 = 53658;
|
|
|
|
|
|
// universal trim function
|
|
// defaults to trimming tabs, newlines, and spaces.
|
|
function trim (sIn, sTChars)
|
|
{
|
|
if (!sIn.length) return sIn;
|
|
if (sTChars == undefined) sTChars = "\t\n ";
|
|
|
|
var iSt=-1, iEnd=sIn.length;
|
|
|
|
while ( ++iSt<iEnd && sTChars.indexOf(sIn.charAt(iSt)) != -1 ) {}
|
|
while ( --iEnd>iSt && sTChars.indexOf(sIn.charAt(iEnd)) != -1 ) {}
|
|
|
|
return sIn.substring(iSt,iEnd+1);
|
|
}
|
|
|
|
|
|
// Equvilant to VBA's Chr function
|
|
function chr (num)
|
|
{
|
|
if (num > 255 || num < 0) return null;
|
|
|
|
var sHex = "0123456789abcdef";
|
|
return unescape( "%"+sHex.charAt(num>>4&0x0f)+sHex.charAt(num&0x0f) );
|
|
}
|
|
|
|
|
|
// Equivilant to VBA's Asc function
|
|
function asc (str)
|
|
{
|
|
// return parseInt( escape(str.charAt(0), 0).substring(1,3), 16 );
|
|
return str.charCodeAt(0);
|
|
}
|
|
|
|
|
|
// Returns a "proper form" string from the input string sIn.
|
|
// The standard token delimiters are tab, newline, space, period, hypen,
|
|
// comma, & double/single quotes. These can be overridden with the optional
|
|
// opDlm parameter and added to if the opDlm param contains a '+' char
|
|
// as the first char.
|
|
function proper (sIn, opDlm)
|
|
{
|
|
var i;
|
|
var std = "\t\n .-,\"\'";
|
|
if (opDlm == undefined) opDlm = std;
|
|
var sDlm = opDlm.charAt(0)=='+' ? std+opDlm.substring(1,opDlm.length) : opDlm;
|
|
var ch, ich=0, cb=sIn.length, s=sIn.toLowerCase();
|
|
|
|
for (i=0; i<cb; i++)
|
|
{
|
|
ch = s.charAt(i);
|
|
if (sDlm.indexOf(ch)>=0)
|
|
ich = i+1;
|
|
else
|
|
if (ich==i)
|
|
s = s.substring(0,i)+ch.toUpperCase()+s.substring(i+1,cb);
|
|
}
|
|
|
|
return s;
|
|
}
|
|
|
|
|
|
// Equiv to VBA's String function
|
|
function bldStr (cb, str)
|
|
{
|
|
if ( cb==undefined || 0 == cb || 0 == (""+str).length ) return "";
|
|
if ( str==undefined ) str = " ";
|
|
|
|
var sBld = (str + "");
|
|
|
|
while (sBld.length * 2 < cb) sBld += sBld;
|
|
|
|
if (sBld.length < cb)
|
|
sBld += bldStr(cb - sBld.length, str);
|
|
|
|
return sBld;
|
|
}
|
|
|
|
|
|
// Pads the base arg with as many pad arg's to make a string who's length is equal to n.
|
|
// sPad is optional, if not present, a space is used by default.
|
|
// Requires: bldStr
|
|
function padStr (base, n, pad)
|
|
{
|
|
var cb = n - ("" + base).length;
|
|
|
|
if (pad == undefined) pad = " ";
|
|
|
|
if (cb > 0 )
|
|
return bldStr(cb, pad) + base;
|
|
|
|
return ""+base;
|
|
}
|
|
|
|
|
|
// Formats a string into cbBlk sized sections, delimited by sPad, from the right
|
|
// if fRight flag is set, from the left if not. All args are optional except sSrc.
|
|
function fmtSBlock (sSrc, cbBlk, sPad, fRight)
|
|
{
|
|
var i;
|
|
// Default parameters
|
|
if (fRight == undefined) fRight = false;
|
|
if (sPad == undefined) sPad = " ";
|
|
if (cbBlk == undefined || 0==cbBlk) cbBlk = sSrc.length;
|
|
|
|
var cbMod = fRight ? sSrc.length%cbBlk : 0;
|
|
|
|
var sRet = sSrc.substring(0,cbMod);
|
|
|
|
for (i=0; i<sSrc.length-cbMod; i+=cbBlk)
|
|
sRet += (sPad + sSrc.substring(i+cbMod,i+cbMod+cbBlk));
|
|
|
|
return sRet.substring(!cbMod*sPad.length,sRet.length);
|
|
}
|
|
|
|
|
|
// Returns the string arg's chars randomly aranged in cbChunk sized chuncks
|
|
// cbChunk is optional, defaults to 1
|
|
function unsort (sIn, cbChunk)
|
|
{
|
|
if (cbChunk == undefined) cbChunk = 1;
|
|
var sOut="", iStrt=0, iEnd=0;
|
|
while (sIn.length)
|
|
{
|
|
iStrt = Math.floor(Math.random()*Math.ceil(sIn.length/cbChunk))*cbChunk;
|
|
iEnd = iStrt+cbChunk;
|
|
sOut += sIn.substring(iStrt,iEnd);
|
|
sIn = sIn.substring(0,iStrt) + (iEnd<sIn.length ? sIn.substring(iEnd, sIn.length) : "");
|
|
}
|
|
return sOut;
|
|
}
|
|
|
|
|
|
// Parameterized random string generator
|
|
// cb is the number of characters you want the string to return [optional, defaults to 100].
|
|
// bfType is a bit mask specifying the characters you want the string to contain [optional,
|
|
// defaults to alphanumeric]. sDomain [optional] is a user supplied source string.
|
|
// Requires: chr
|
|
function genRndStr (cb, bfType, sDomain)
|
|
{
|
|
var i;
|
|
var sSource = "";
|
|
if ( sDomain != undefined && typeof sDomain == "string")
|
|
sSource = sDomain;
|
|
|
|
if (bfType == undefined || bfType > 0)
|
|
{
|
|
if (cb == undefined) cb = 100;
|
|
if (bfType == undefined) bfType = 0x01|0x02|0x04;
|
|
|
|
var rgfWhichChars = new Array(256);
|
|
for (i=1; i<rgfWhichChars.length; i++)
|
|
rgfWhichChars[i] = 0;
|
|
|
|
if (bfType & 0x01) // ucase alpha
|
|
for (i=0x41; i<=0x5A; i++) rgfWhichChars[i]=1;
|
|
|
|
if (bfType & 0x02) // lcase alpha
|
|
for (i=0x61; i<=0x7A; i++) rgfWhichChars[i]=1;
|
|
|
|
if (bfType & 0x04) // numbers
|
|
for (i=0x30; i<=0x39; i++) rgfWhichChars[i]=1;
|
|
|
|
if (bfType & 0x08) // all other printable chars (non-extended)
|
|
{
|
|
for (i=0x21; i<=0x2E; i++) rgfWhichChars[i]=1;
|
|
for (i=0x3A; i<=0x40; i++) rgfWhichChars[i]=1;
|
|
for (i=0x5B; i<=0x60; i++) rgfWhichChars[i]=1;
|
|
for (i=0x7B; i<=0x7E; i++) rgfWhichChars[i]=1;
|
|
}
|
|
if (bfType & 0x10) // space
|
|
rgfWhichChars[0x20]=1;
|
|
|
|
if (bfType & 0x20) // tab
|
|
rgfWhichChars[0x09]=1;
|
|
|
|
if (bfType & 0x40) // newline
|
|
rgfWhichChars[0x0A]=1;
|
|
|
|
if (bfType & 0x80) // all other special chars
|
|
{
|
|
rgfWhichChars[0x08]=1; // backspace
|
|
rgfWhichChars[0x0C]=1; // formfeed
|
|
rgfWhichChars[0x0D]=1; // carriage return
|
|
}
|
|
if (bfType & 0x100) // non-printable non-extended chars
|
|
{
|
|
for (i=0x01; i<=0x07; i++) rgfWhichChars[i]=1;
|
|
rgfWhichChars[0x0B]=1;
|
|
for (i=0x0E; i<=0x1F; i++) rgfWhichChars[i]=1;
|
|
rgfWhichChars[0x7F]=1;
|
|
}
|
|
if (bfType & 0x200) // extended chars (0x7f-0xff)
|
|
for (i=0x80; i<=0xff; i++) rgfWhichChars[i]=1;
|
|
|
|
// Create restricted char string
|
|
for (i=0x00; i<0xff; i++)
|
|
if (rgfWhichChars[i]) sSource += chr(i);
|
|
}
|
|
|
|
// Create random result string from restricted char string
|
|
var sRet = "";
|
|
for (i=0; i<cb; i++)
|
|
sRet += sSource.charAt( Math.floor(Math.random()*sSource.length) );
|
|
|
|
return sRet;
|
|
}
|
|
var g_OnDBCS = false;
|
|
var g_lang = "";
|
|
|
|
function GetLang()
|
|
{
|
|
g_lang = apGlobalObj.apGetLangExt(apGlobalObj.LangHost());
|
|
if(g_lang == "JP" || g_lang == "KO" || g_lang == "CHS" || g_lang == "CHT")
|
|
g_OnDBCS = true;
|
|
}
|
|
|
|
function lcase10 () {
|
|
@if(@_fast)
|
|
var stExp, stAct, StepVar;
|
|
@end
|
|
|
|
var OS , MAX,I,StepVal
|
|
var S1 , S2
|
|
var stBug = "";
|
|
|
|
//
|
|
|
|
apInitTest("lcase10 ");
|
|
GetLang();
|
|
|
|
MAX = 240000;
|
|
|
|
apInitScenario("1. lcase (MAX) (String)");
|
|
|
|
S1=bldStr(MAX,"X");
|
|
S2=S1.toLowerCase();
|
|
|
|
if ( S2 != bldStr(MAX,"x") ) {
|
|
apLogFailInfo("", stExp, stAct, stBug);
|
|
}
|
|
|
|
if ( S1.length != MAX || S2.length != MAX ) {
|
|
apLogFailInfo("Bad Length", "", "", "");
|
|
}
|
|
|
|
StepVar = Math.floor(MAX/128);
|
|
for (I=1;I<MAX;I += StepVar) {
|
|
if ( S2.substring(I-1,I) != "x" ) {
|
|
apLogFailInfo("String not equal at pos " + I, "", "", "");
|
|
|
|
}
|
|
}
|
|
|
|
|
|
apInitScenario("1b. lcase (MAX) (String) using DBCS String");
|
|
if(g_OnDBCS)
|
|
{
|
|
S1=bldStr(MAX,"‚¨");
|
|
S2=S1.toLowerCase();
|
|
|
|
if ( S2 != bldStr(MAX,"‚¨") ) {
|
|
apLogFailInfo("", stExp, stAct, stBug);
|
|
}
|
|
|
|
if ( S1.length != MAX || S2.length != MAX ) {
|
|
apLogFailInfo("Bad Length", "", "", "");
|
|
}
|
|
|
|
StepVar = Math.floor(MAX/128);
|
|
for (I=1;I<MAX;I += StepVar) {
|
|
if ( S2.substring(I-1,I) != "‚¨" ) {
|
|
apLogFailInfo("String not equal at pos " + I, "", "", "");
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
apInitScenario("2. lcase (MAX) (Variant)");
|
|
|
|
S2=bldStr(MAX,"X");
|
|
S1=S2.toLowerCase();
|
|
|
|
if ( S1 != bldStr(MAX,"x") ) {
|
|
apLogFailInfo("", stExp, stAct, stBug);
|
|
}
|
|
|
|
if ( S1.length != MAX || S2.length != MAX ) {
|
|
apLogFailInfo("Bad Length", "", "", "");
|
|
}
|
|
|
|
StepVar = Math.floor(MAX/128);
|
|
for (I=1;I<MAX;I += StepVar) {
|
|
if ( S1.substring(I-1,I) != "x" ) {
|
|
apLogFailInfo("String not equal at pos " + I, "", "", "");
|
|
}
|
|
}
|
|
|
|
|
|
apInitScenario("2b. lcase (MAX) (Variant) using DBCS String");
|
|
if(g_OnDBCS)
|
|
{
|
|
S2=bldStr(MAX,"‚¨");
|
|
S1=S2.toLowerCase();
|
|
|
|
if ( S1 != bldStr(MAX,"‚¨") ) {
|
|
apLogFailInfo("", stExp, stAct, stBug);
|
|
}
|
|
|
|
if ( S1.length != MAX || S2.length != MAX ) {
|
|
apLogFailInfo("Bad Length", "", "", "");
|
|
}
|
|
|
|
StepVar = Math.floor(MAX/128);
|
|
for (I=1;I<MAX;I += StepVar) {
|
|
if ( S1.substring(I-1,I) != "‚¨" ) {
|
|
apLogFailInfo("String not equal at pos " + I, "", "", "");
|
|
}
|
|
}
|
|
}
|
|
|
|
apInitScenario("3. UCase (MAX) (String)");
|
|
|
|
S1=bldStr(MAX,"a");
|
|
S2=S1.toUpperCase();
|
|
|
|
if ( S2 != bldStr(MAX,"A") ) {
|
|
apLogFailInfo("", stExp, stAct, stBug);
|
|
}
|
|
|
|
if ( S1.length != MAX || S2.length != MAX ) {
|
|
apLogFailInfo("Bad Length", "", "", "");
|
|
}
|
|
|
|
StepVar = Math.floor(MAX/128);
|
|
for (I=1;I<MAX;I += StepVar) {
|
|
if ( S2.substring(I-1,I) != "A" ) {
|
|
apLogFailInfo("String not equal at pos " + I, "", "", "");
|
|
|
|
}
|
|
}
|
|
|
|
|
|
apInitScenario("3b. UCase (MAX) (String) using DBCS String");
|
|
if(g_OnDBCS)
|
|
{
|
|
S1=bldStr(MAX,"‚¨");
|
|
S2=S1.toUpperCase();
|
|
|
|
if ( S2 != bldStr(MAX,"‚¨") ) {
|
|
apLogFailInfo("", stExp, stAct, stBug);
|
|
}
|
|
|
|
if ( S1.length != MAX || S2.length != MAX ) {
|
|
apLogFailInfo("Bad Length", "", "", "");
|
|
}
|
|
|
|
StepVar = Math.floor(MAX/128);
|
|
for (I=1;I<MAX;I += StepVar) {
|
|
if ( S2.substring(I-1,I) != "‚¨" ) {
|
|
apLogFailInfo("String not equal at pos " + I, "", "", "");
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
apInitScenario("4. UCase (MAX) (Variant)");
|
|
|
|
S2=bldStr(MAX,"a");
|
|
S1=S2.toUpperCase();
|
|
|
|
if ( S1 != bldStr(MAX,"A") ) {
|
|
apLogFailInfo("", stExp, stAct, stBug);
|
|
}
|
|
|
|
if ( S1.length != MAX || S2.length != MAX ) {
|
|
apLogFailInfo("Bad Length", "", "", "");
|
|
}
|
|
|
|
StepVar = Math.floor(MAX/128);
|
|
for (I=1;I<MAX;I += StepVar) {
|
|
if ( S1.substring(I-1,I) != "A" ) {
|
|
apLogFailInfo("String not equal at pos " + I, "", "", "");
|
|
|
|
}
|
|
}
|
|
|
|
|
|
apInitScenario("4b. UCase (MAX) (Variant) using DBCS String");
|
|
if(g_OnDBCS)
|
|
{
|
|
S2=bldStr(MAX,"‚¨");
|
|
S1=S2.toUpperCase();
|
|
|
|
if ( S1 != bldStr(MAX,"‚¨") ) {
|
|
apLogFailInfo("", stExp, stAct, stBug);
|
|
}
|
|
|
|
if ( S1.length != MAX || S2.length != MAX ) {
|
|
apLogFailInfo("Bad Length", "", "", "");
|
|
}
|
|
|
|
StepVar = Math.floor(MAX/128);
|
|
for (I=1;I<MAX;I += StepVar) {
|
|
if ( S1.substring(I-1,I) != "‚¨" ) {
|
|
apLogFailInfo("String not equal at pos " + I, "", "", "");
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
apEndTest ();
|
|
|
|
|
|
}
|
|
|
|
|
|
lcase10();
|
|
|
|
|
|
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() {}
|