Files
yallie 9fa3874800 Added the contents of the archive.
Moved the original file to the archive subfolder.
2017-11-20 16:11:42 +03:00

1317 lines
35 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 = 53570;
var sCat = '';
var regPat = "";
var objExp = "";
var strTest = "";
var regExp = ""
var m_scen = '';
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)
{
//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_01() {
apInitTest("src_01");
m_scen = ('Test 1 Lowercase /abc/');
sCat = "/abc/ ";
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 = 6;
strTest = ' abc';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc ';
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
objExp = 10;
strTest = ' abc ';
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
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
objExp = 2;
strTest = 'ababc ';
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 = 12;
strTest = 'ab abc ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
strTest = 'ab 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');
objExp = 0;
strTest = 'abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc ab c abracadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc ab c abracadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc ab c abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc ab c abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
m_scen = ('Test 3 Lowercase tests /abc/ multiples');
strTest = 'abc abc';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 5;
strTest = ' abc abc';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
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
objExp = 9;
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
m_scen = ('Test 4 Slightly more complex strings w/ multiple finds');
objExp = 0;
strTest = 'abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abracadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abracadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 12;
strTest = '| abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abcadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abcadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 12;
strTest = '| abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
m_scen = ('Test 5 Lowercase /(abc)/');
sCat = "/(abc)/ ";
apInitScenario(m_scen);
regPat = /(abc)/;
objExp = new Array('abc', 'abc');
regExp = new Array('abc');
objExp = 0;
strTest = 'abc';
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 = 0;
strTest = 'abc ';
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
objExp = 10;
strTest = ' abc ';
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
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
objExp = 2;
strTest = 'ababc ';
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 = 12;
strTest = 'ab abc ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
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 = 0;
strTest = 'abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc ab c abracadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc ab c abracadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc ab c abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc ab c abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
m_scen = ('Test 7 Lowercase tests /(abc)/ multiples');
strTest = 'abc abc';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 5;
strTest = ' abc abc';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
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
objExp = 9;
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
m_scen = ('Test 8 Slightly more complex strings w/ multiple finds');
objExp = 0;
strTest = 'abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abracadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abracadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 12;
strTest = '| abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abcadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abcadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 12;
strTest = '| abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
m_scen = ('Test 9 Lowercase /(ab)(c)/');
sCat = "/(ab)(c)/ ";
apInitScenario(m_scen);
regPat = /(ab)(c)/;
objExp = new Array('abc','ab','c');
regExp = new Array('ab','c');
objExp = 0;
strTest = 'abc';
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 = 0;
strTest = 'abc ';
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
objExp = 10;
strTest = ' abc ';
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
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
objExp = 2;
strTest = 'ababc ';
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 = 12;
strTest = 'ab abc ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
strTest = 'ab abc |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
m_scen = ('Test 10 Slightly more complex strings');
objExp = 0;
strTest = 'abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc ab c abracadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc ab c abracadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc ab c abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc ab c abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
m_scen = ('Test 11 Lowercase tests /(ab)(c)/ multiples');
strTest = 'abc abc';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 5;
strTest = ' abc abc';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
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
objExp = 9;
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
m_scen = ('Test 12 Slightly more complex strings w/ multiple finds');
objExp = 0;
strTest = 'abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abracadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abracadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 12;
strTest = '| abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abcadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abcadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 12;
strTest = '| abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
m_scen = ('Test 13 Lowercase /((ab)(c))/');
sCat = "/((ab)(c))/ ";
apInitScenario(m_scen);
regPat = /((ab)(c))/;
objExp = new Array('abc', 'abc','ab','c');
regExp = new Array('abc','ab','c');
objExp = 0;
strTest = 'abc';
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 = 0;
strTest = 'abc ';
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
objExp = 10;
strTest = ' abc ';
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
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
objExp = 2;
strTest = 'ababc ';
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 = 12;
strTest = 'ab abc ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
strTest = 'ab abc |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
m_scen = ('Test 14 Slightly more complex strings');
objExp = 0;
strTest = 'abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc ab c abracadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc ab c abracadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc ab c abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc ab c abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc ab c abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
m_scen = ('Test 15 Lowercase tests //((ab)(c))/ multiples');
strTest = 'abc abc';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 5;
strTest = ' abc abc';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
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
objExp = 9;
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
m_scen = ('Test 16 Slightly more complex strings w/ multiple finds');
objExp = 0;
strTest = 'abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abracadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abracadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 12;
strTest = '| abc abc abracadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 14;
strTest = ' abc abc abracadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra ';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abcadabra|';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 1;
strTest = '|abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 15;
strTest = '| abc abc abcadabra';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 0;
strTest = 'abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
objExp = 12;
strTest = '| abc abc abcadabra |';
ArrayEqual(sCat+strTest, objExp, strTest.search(regPat));
@if (!@_fast)
regVerify(sCat+strTest, regExp, strTest.search(regPat));
@end
/*****************************************************************************/
apEndTest();
}
src_01();
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() {}