//# ==++== //# //# //# 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 = 52647; var sCat = ''; var regPat = ""; var objExp = ""; var m_scen = ''; var strTest = ""; var strTemp = ""; var result = ""; 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 equal if (arrayAct == null) verify(sCat1 + ' NULL Err', arrayExp, arrayAct); else 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 exec236() { apInitTest("Exec236"); m_scen = ('Test 1 Mixed Case /^\uC000\uC002/'); sCat = "Pattern: begin "; apInitScenario(m_scen); regPat = /^\uC000\uC002/; objExp = new Array('\uC000\uC002'); var regExp = new Array(); var strTest = '\uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002\\'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002\\ '; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 '; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 2 Slightly more complex strings'); strTest = '\uC000\uC002 \uC001  \uC001$\uC000\\\uC000\uABCA'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 \uC001  \uC001$\uC000\\\uC000\uABCA '; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002\\ \uC001  \uC001$\uC000\\\uC000\uABCA\uC001  '; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 3 Mixed Case tests w/ multiples'); strTest = '\uC000\uC002 \uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 \uC000\uC002 '; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002\\ \uC000\uC002 '; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 4 Slightly more complex strings w/ multiple finds'); strTest = '\uC000\uC002 \uC000\uC002 \uC001$\uC000\\\uC000\uABCA'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 \uC000\uC002 \uC001$\uC000\\\uC000\uABCA '; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002} ¤ ,\uC000\uC002 \n\\$. \uC001$\uC000\\\uC000\uABCA '; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002, \\\uC000\uC002 \uC001$\uC000\\\uC000\uABCA '; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 \uC000\uC002 \uC000\uC002\\\uC001$ '; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002\\ \uC000\uC000\uC002\uC000 \uC000\uC002\\\uC001$'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 5 Mixed Case /\uC000\uC002$/'); sCat = "Pattern: end "; apInitScenario(m_scen); regPat = /\uC000\uC002$/; objExp = new Array('\uC000\uC002'); regExp = new Array(); strTest = '\uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\\\uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000 \uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000 \uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 6 Slightly more complex strings'); strTest = '\uC000,\uC002 \uC001  \uC001$\uC501\uC001$\uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000,\uC002 \uC001  \uC001$\uC501\uC001$\uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 7 Mixed Case tests w/ multiples'); strTest = '\uC000\uC002 \uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 \uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000  \uC000\uC002 \uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 8 Slightly more complex strings w/ multiple finds'); strTest = '\uC000 \uC000\uC002 \\ ¤ \n\n \uC001$\uC501\uC001$\uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 \\ ¤ \n\n \uC001$\uC501\uC001$\uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' }$,\uC000\uC002} ¤ ,\uC000\uC002 \n\\$. \uC001$\uC501\uC001$\uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002 \r\uC000\uC002 \uC001$\uC501\uC001$\uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002\\ \uC000\uC000\uC002\uC000 \uC000\uC002\\\uC001$\uC000\uC002'; ArrayEqual(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 9 Failure - Mixed Case /^\uC000\uC002 /'); sCat = "Pattern dows not exist: "; apInitScenario(m_scen); regPat = /^\uC000\uC002/; objExp = null; strTest = ' \uC000\uC002{,~'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\\\uC000\uC002{,~'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\\\uC000\uC002{,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002{,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002{,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 {,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002 {,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000 \uC000\uC002{,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000 \uC000\uC002{,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000 \uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 10 Failure - Slightly more complex strings'); strTest = ' \uC000\uC002{,~\\ \uC001  \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC001  \\\uC000\uC002?{,~\\ \uC001$\uC000\\\uC000\uABCA '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002{,~\\ \uC001  \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\\\uC000\uC002{,~\\ \uC001  \uC001$\uC000\\\uC000\uABCA\uC001  '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 \uC001  \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ',\uC000\uC002 {,~\\ \uC001  \uC001$\uC000\\\uC000\uABCA\uC000 \\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 11 Failure - Mixed Case tests w/ multiples'); strTest = ' \uC000\uC002 {,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\\\uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002\\ {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 12 Failure - Slightly more complex strings w/ multiple finds'); strTest = ' \uC000\uC002 {,~\\ \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' }$,\uC000\uC002} ¤ ,{,~\\ \n\\$. \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '}$,\uC000\uC002} ¤ ,{,~\\ \n\\$. \uC001$\uC000\\\uC000\uABCA '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002 \r{,~\\ \uC001$\uC000\\\uC000\uABCA¤'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002, \\{,~\\ \uC001$\uC000\\\uC000\uABCA '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002, ¤{,~\\ \uC001$\uC000\\\uC000\uABCA\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '¤\uC000\uC002 {,~\\ $\uC000\uC002\\\uC001$'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' ¤\uC000\uC002 {,~\\ $\uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' ¤\uC000\uC002$ {,~\\ \uC000\uC002\\\uC001$'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '$\uC000\uC002 ?{,~\\ \uC000\uC002\\\uC001$ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002\\ \uC000{,~\\\uC000 \uC000\uC002\\\uC001$'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\r \uC000\uC002\\ {{,~\\¤ $~\uC000\uC002@\\\uC001$ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' { \uC000\uC002\\ \\\r{,~\\ {*,}\uC000\uC002\\\uC001$.}. '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 13 Failure - Mixed Case /\uC000\uC002$/'); sCat = " Patterns do not exist "; apInitScenario(m_scen); regPat = /\uC000\uC002$/; objExp = null; strTest = '\uC000\uC002{,~'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\\\uC000\uC002{,~'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\\\uC000\uC002{,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002{,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002{,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 {,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\\\uC000\uC002 {,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 {,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002 {,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000 \uC000\uC002{,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000 \uC000\uC002{,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000 \uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 14 Failure - Slightly more complex strings'); strTest = '\uC000\uC002{,~\\ \uC001  \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002{,~\\ \uC001  \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC001  \\\uC000\uC002?{,~\\ \uC001$\uC000\\\uC000\uABCA '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002{,~\\ \uC001  \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\\\uC000\uC002{,~\\ \uC001  \uC001$\uC000\\\uC000\uABCA\uC001  '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 \uC001  \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ',\uC000\uC002 {,~\\ \uC001  \uC001$\uC000\\\uC000\uABCA\uC000 \\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 15 Failure - Mixed Case tests w/ multiples'); strTest = '\uC000\uC002 {,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 {,~\\'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\\\uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002\\ {,~\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end m_scen = ('Test 16 Failure - Slightly more complex strings w/ multiple finds'); strTest = '\uC000\uC002 {,~\\ \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002 {,~\\ \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 {,~\\ \uC001$\uC000\\\uC000\uABCA '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' }$,\uC000\uC002} ¤ ,{,~\\ \n\\$. \uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '}$,\uC000\uC002} ¤ ,{,~\\ \n\\$. \uC001$\uC000\\\uC000\uABCA '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002 \r{,~\\ \uC001$\uC000\\\uC000\uABCA¤'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002, \\{,~\\ \uC001$\uC000\\\uC000\uABCA '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \\\uC000\uC002, ¤{,~\\ \uC001$\uC000\\\uC000\uABCA\\ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '¤\uC000\uC002 {,~\\ $\uC000\uC002\\\uC001$'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' ¤\uC000\uC002 {,~\\ $\uC001$\uC000\\\uC000\uABCA'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\uC000\uC002 {,~\\ \uC000\uC002\\\uC001$ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' ¤\uC000\uC002$ {,~\\ \uC000\uC002\\\uC001$'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '$\uC000\uC002 ?{,~\\ \uC000\uC002\\\uC001$ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' \uC000\uC002\\ \uC000{,~\\\uC000 \uC000\uC002\\\uC001$'; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = '\r \uC000\uC002\\ {{,~\\¤ $~\uC000\uC002@\\\uC001$ '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end strTest = ' { \uC000\uC002\\ \\\r{,~\\ {*,}\uC000\uC002\\\uC001$.}. '; verify(sCat+strTest, objExp, regPat.exec(strTest)); @if (!@_fast) @if (!@_fast) regVerify(sCat+strTest, regExp, regPat.exec(strTest)); @end @end /*****************************************************************************/ apEndTest(); } exec236(); 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() {}