mirror of
https://github.com/SSCLI/sscli_20021101
synced 2026-06-08 12:28:57 +00:00
yallie
1716 lines
43 KiB
JavaScript
1716 lines
43 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 = 53227;
|
|
|
|
|
|
// 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 sCat = '';
|
|
var regPat = "";
|
|
var objExp = "";
|
|
var m_scen = '';
|
|
var strTest = "";
|
|
var strTemp = "";
|
|
|
|
function verify(sCat1, sExp, sAct)
|
|
{
|
|
//this function makes sure sAct and sExp are equal
|
|
if (sExp != sAct)
|
|
apLogFailInfo( m_scen+(sCat1.length?"--"+sCat1:"")+" failed", sExp,sAct, "");
|
|
}
|
|
|
|
|
|
|
|
function verifyStringObj(sCat1, sExp, sAct)
|
|
{
|
|
//this function simply calls verify with the values of the string
|
|
verify(sCat1, sExp.valueOf(), sAct.valueOf());
|
|
}
|
|
|
|
|
|
|
|
function ArrayEqual(sCat1, arrayExp, arrayAct)
|
|
{ var i;
|
|
//Makes Sure that Arrays are eq
|
|
|
|
if (!((arrayExp == null) & (arrayAct == null))) {
|
|
if (arrayExp.length != arrayAct.length)
|
|
verify(sCat1 + ' Array length', arrayExp.length, arrayAct.length);
|
|
else
|
|
{
|
|
for (i in arrayExp)
|
|
verify(sCat1 + ' index '+i, arrayExp[i], arrayAct[i]);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
function regVerify(sCat1, arrayReg, arrayAct)
|
|
{
|
|
var i;
|
|
var expArray = new Array('','','','','','','','','');
|
|
|
|
for (i in arrayReg)
|
|
if (i < 10)
|
|
expArray[i] = arrayReg[i];
|
|
else
|
|
break;
|
|
|
|
for(i =0; i<9;i++)
|
|
verify(sCat1 + ' RegExp.$'+ (i+1) +' ', expArray[i], eval('RegExp.$'+(i+1)));
|
|
}
|
|
|
|
|
|
|
|
function exea0231() {
|
|
|
|
|
|
apInitTest("exea0231");
|
|
|
|
m_scen = ('Test 21 Lowercase /((A)(BC))/ig');
|
|
sCat = "/((A)(BC))/ig ";
|
|
apInitScenario(m_scen);
|
|
regPat = /((A)(BC))/ig;
|
|
objExp = new Array('abc','abc','a','bc');
|
|
var regExp = new Array('abc','a','bc');
|
|
|
|
var strTest = 'abc';
|
|
regPat.lastIndex = 0;
|
|
var result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ababc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 22 Slightly more complex strings');
|
|
strTest = 'abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ab c abracadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc ab c abracadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc ab c abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ab c abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 23 Lowercase tests /((A)(BC))/ig multiples');
|
|
strTest = 'abc abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 24 Slightly more complex strings w/ multiple finds');
|
|
|
|
strTest = 'abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abracadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
strTest = 'abc abc abcadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abcadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 25 Lowercase /(A)(B)(C)/ig');
|
|
|
|
sCat = "/(A)(B)(C)/ig ";
|
|
apInitScenario(m_scen);
|
|
regPat = /(A)(B)(C)/ig;
|
|
objExp = new Array('abc','a','b','c');
|
|
regExp = new Array('a', 'b', 'c');
|
|
|
|
strTest = 'abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ababc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 26 Slightly more complex strings');
|
|
|
|
strTest = 'abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ab c abracadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc ab c abracadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc ab c abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ab c abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 27 Lowercase tests /(A)(B)(C)/ig multiples');
|
|
|
|
strTest = 'abc abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 28 Slightly more complex strings w/ multiple finds');
|
|
|
|
strTest = 'abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abracadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
strTest = 'abc abc abcadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abcadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 29 Lowercase /((A)(B)(C))/ig');
|
|
sCat = "/((A)(B)(C))/ig ";
|
|
apInitScenario(m_scen);
|
|
regPat = /((A)(B)(C))/ig;
|
|
objExp = new Array('abc','abc','a','b','c');
|
|
regExp = new Array('abc','a','b','c');
|
|
|
|
strTest = 'abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ababc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 30 Slightly more complex strings');
|
|
|
|
strTest = 'abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ab c abracadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc ab c abracadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc ab c abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ab c abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 31 Lowercase tests /((A)(B)(C))/ig multiples');
|
|
|
|
strTest = 'abc abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 32 Slightly more complex strings w/ multiple finds');
|
|
|
|
strTest = 'abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abracadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
strTest = 'abc abc abcadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abcadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
ArrayEqual(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
m_scen = ('Test 33 Failure Lowercase /ABCD/ig');
|
|
|
|
sCat = "/ABCD/ig ";
|
|
apInitScenario(m_scen);
|
|
regPat = /ABCD/ig;
|
|
objExp = null;
|
|
//no new regExp due to spec of RegExp.$1-9
|
|
//this set of tests smakes sure that RegExp.$ keep original values
|
|
|
|
strTest = 'abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ababc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'ab abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
m_scen = ('Test 34 Failure-Slightly more complex strings');
|
|
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ab c abracadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc ab c abracadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc ab c abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc ab c abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc ab c abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 35 Failure Lowercase tests /ABCD/ig multiples');
|
|
|
|
strTest = 'abc abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
m_scen = ('Test 36 Failure - Slightly more complex strings w/ multiple finds');
|
|
|
|
strTest = 'abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abracadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abracadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abcadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = ' abc abc abracadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abcadabra ';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra|';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '|abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = 'abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
|
|
strTest = '| abc abc abcadabra |';
|
|
regPat.lastIndex = 0;
|
|
result = regPat.exec (strTest);
|
|
verify(sCat+strTest, objExp, result);
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, result);
|
|
@end
|
|
/*****************************************************************************/
|
|
|
|
apEndTest();
|
|
|
|
}
|
|
|
|
|
|
exea0231();
|
|
|
|
|
|
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() {}
|