mirror of
https://github.com/SSCLI/sscli_20021101
synced 2026-06-08 12:28:57 +00:00
yallie
893 lines
24 KiB
JavaScript
893 lines
24 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 = 53644;
|
|
|
|
var sCat = '';
|
|
var regPat = "";
|
|
var objExp = "";
|
|
var m_scen = '';
|
|
var strTest = "";
|
|
var strTemp = "";
|
|
var regExp = "";
|
|
|
|
|
|
|
|
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)
|
|
{
|
|
//redirects function call to verify
|
|
verify(sCat1, arrayExp, arrayAct);
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
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 src_026() {
|
|
|
|
|
|
apInitTest("src_026");
|
|
|
|
|
|
m_scen = ('Test 1 UPPERCASE /^ABC/');
|
|
|
|
sCat = "Pattern: begin ";
|
|
apInitScenario(m_scen);
|
|
regPat = /^ABC/;
|
|
objExp = new Array('ABC');
|
|
regExp = new Array();
|
|
|
|
objExp = 0;
|
|
strTest = 'ABC';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'ABCD';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'ABCD ';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'ABC ';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 2 Slightly more complex strings');
|
|
|
|
strTest = 'ABC AB C ABRACADABRA';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'ABC AB C ABRACADABRA ';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'ABCD AB C ABRACADABRAB C ';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 3 UPPERCASE tests w/ multiples');
|
|
|
|
strTest = 'ABC ABC';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABC ABC ';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABCD ABCE ';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
m_scen = ('Test 4 Slightly more complex strings w/ multiple finds');
|
|
|
|
strTest = 'ABC ABC ABRACADABRA';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABC ABC ABRACADABRA ';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABCABO SIENABCATHEDRAL ABRACADABRAE ';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'ABCN DABC ABRACADABRA ';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABC ABC ABCADABRA ';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABCD AABABCAB AAABCADABRA';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 5 UPPERCASE /ABC$/');
|
|
|
|
sCat = "Pattern: end ";
|
|
apInitScenario(m_scen);
|
|
regPat = /ABC$/;
|
|
objExp = new Array('ABC');
|
|
regExp = new Array();
|
|
|
|
objExp = 0;
|
|
strTest = 'ABC';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
objExp = 1;
|
|
strTest = 'DABC';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
objExp = 6;
|
|
strTest = ' ABC';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
objExp = 3;
|
|
strTest = 'AB ABC';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
objExp = 8;
|
|
strTest = 'AB ABC';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
m_scen = ('Test 6 Slightly more complex strings');
|
|
|
|
objExp = 19;
|
|
strTest = 'ANC AB C ABRACADABRABC';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
objExp = 33;
|
|
strTest = ' anc AB C ABRACADABRABC';
|
|
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 7 UPPERCASE tests w/ multiples');
|
|
|
|
objExp = 0;
|
|
strTest = 'ABC ABC';
|
|
ArrayEqual(sCat+strTest, strTest.length - 3, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
objExp = 5;
|
|
strTest = ' ABC ABC';
|
|
ArrayEqual(sCat+strTest, strTest.length - 3, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
objExp = 25;
|
|
strTest = ' AB C ABC ABC';
|
|
ArrayEqual(sCat+strTest, strTest.length - 3, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 8 Slightly more complex strings w/ multiple finds');
|
|
|
|
objExp = 3;
|
|
strTest = 'AB ABC AD ASE HH ABRACADABRABC';
|
|
ArrayEqual(sCat+strTest, strTest.length - 3, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABC AD ASE HH ABRACADABRABC';
|
|
ArrayEqual(sCat+strTest, strTest.length - 3, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
objExp = 18;
|
|
strTest = ' ORANABCABO SIENABCATHEDRAL ABRACADABRABC';
|
|
ArrayEqual(sCat+strTest, strTest.length - 3, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
objExp = 15;
|
|
strTest = ' DABCE FABCG eABRACADABRABC';
|
|
ArrayEqual(sCat+strTest, strTest.length - 3, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
objExp = 1;
|
|
strTest = 'AABCD AABABCAB AAABCADABRAAAAAAAAAAAAAAAAABC';
|
|
ArrayEqual(sCat+strTest, strTest.length - 3, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 9 Failure - UPPERCASE /^ABC/');
|
|
|
|
sCat = "Pattern dows not exist: ";
|
|
apInitScenario(m_scen);
|
|
regPat = /^ABC/;
|
|
objExp = -1;
|
|
|
|
strTest = ' ABCMNZ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'DABCMNZ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'DABCEMNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABCEMNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABCMNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = ' ABC MNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' DABC MNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'AB ABCMNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'AB ABCMNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABABC MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'AB ABCE MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'AB ABC MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABE DABCE MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
m_scen = ('Test 10 Failure - Slightly more complex strings');
|
|
|
|
|
|
strTest = ' ABCMNZD AB C ABRACADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'AB C DABCVMNZD ABRACADABRA ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' DABCMNZD AB C ABRACADABRAB';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'DABCMNZD AB C ABRACADABRAB C ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' EABC AB C ABRACADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'NABC MNZD AB C ABRACADABRAB D ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 11 Failure - UPPERCASE tests w/ multiples');
|
|
|
|
|
|
strTest = ' ABC MNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'DABC MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABC MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABCD EMNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
m_scen = ('Test 12 Failure - Slightly more complex strings w/ multiple finds');
|
|
|
|
|
|
strTest = ' ABC MNZD ABRACADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = ' ORANABCABO SIENMNZDTHEDRAL ABRACADABRAE';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ORANABCABO SIENMNZDTHEDRAL ABRACADABRAE ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' DABCE FMNZD eABRACADABRAs';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'TABCN DMNZD ABRACADABRA ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' DABCN SMNZD ABRACADABRAd ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'SABC BMNZD RABCADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' SABC BMNZD RABRACADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = ' SABCR BMNZDA ABCADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'RABC VMNZD ABCADABRA ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' AABCD AABMNZDAb AAABCADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'FGABCDG MAMNZDS RZABCXAADABRA ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' MTABCDG DFMNZD MKNOABCADABRABlol ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
m_scen = ('Test 13 Failure - UPPERCASE /ABC$/');
|
|
|
|
sCat = " Patterns do not exist ";
|
|
apInitScenario(m_scen);
|
|
regPat = /ABC$/;
|
|
objExp = -1;
|
|
|
|
strTest = 'ABCMNZ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'DABCMNZ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
strTest = 'DABCEMNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABCEMNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABCMNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABC MNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'DABC MNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABC MNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' DABC MNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'AB ABCMNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'AB ABCMNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABABC MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'AB ABCE MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'AB ABC MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABE DABCE MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
m_scen = ('Test 14 Failure - Slightly more complex strings');
|
|
|
|
strTest = 'ABCMNZD AB C ABRACADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABCMNZD AB C ABRACADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'AB C DABCVMNZD ABRACADABRA ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' DABCMNZD AB C ABRACADABRAB';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'DABCMNZD AB C ABRACADABRAB C ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' EABC AB C ABRACADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'NABC MNZD AB C ABRACADABRAB D ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
|
|
m_scen = ('Test 15 Failure - UPPERCASE tests w/ multiples');
|
|
|
|
strTest = 'ABC MNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABC MNZD';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABC MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'DABC MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABC MNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABCD EMNZD ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
m_scen = ('Test 16 Failure - Slightly more complex strings w/ multiple finds');
|
|
|
|
strTest = 'ABC MNZD ABRACADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ABC MNZD ABRACADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABC MNZD ABRACADABRA ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' ORANABCABO SIENMNZDTHEDRAL ABRACADABRAE';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ORANABCABO SIENMNZDTHEDRAL ABRACADABRAE ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' DABCE FMNZD eABRACADABRAs';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'TABCN DMNZD ABRACADABRA ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' DABCN SMNZD ABRACADABRAd ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'SABC BMNZD RABCADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' SABC BMNZD RABRACADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'ABC MNZD ABCADABRA ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' SABCR BMNZDA ABCADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'RABC VMNZD ABCADABRA ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' AABCD AABMNZDAb AAABCADABRA';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = 'FGABCDG MAMNZDS RZABCXAADABRA ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
strTest = ' MTABCDG DFMNZD MKNOABCADABRABlol ';
|
|
verify(sCat+strTest, objExp, strTest.search(regPat));
|
|
@if (!@_fast)
|
|
regVerify(sCat+strTest, regExp, strTest.search(regPat));
|
|
@end
|
|
|
|
/*****************************************************************************/
|
|
apEndTest();
|
|
}
|
|
|
|
|
|
src_026();
|
|
|
|
|
|
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() {}
|