'#################################################################### ' ' Script Name : Consumer Portal testing - Main Script ' ' Created By : Miken Gandhi ' Created Date: 26-Feb-2007 ' ' Description : This script is Main Script Engine for Consumer Portal ' Features : 1) Establish Start Up Condition ' ' '#################################################################### '==================================================================== ' 1.0 Call the Setup Script for gathering information from User. '==================================================================== RunAction "Setup", oneIteration '==================================================================== ' 1.1 Call the Setup Script for gathering information from User. '==================================================================== datatable.Import(Environment.Value("KDataTableNew")) vRowCount=datatable.GetRowCount Dim tNumofSheets tNumofSheets = datatable.GetSheetCount For i = 2 to tNumofSheets datatable.DeleteSheet(2) Next vFirstRow = 9 'vCurrRow=9 'datatable.SetCurrentRow(vCurrRow) While vFirstRow < vRowCount ' 1.1.1 Loop through rows until Run Test indicator = "Y" '==================================================================== vFirstRow = vFirstRow +1 datatable.SetCurrentRow(vFirstRow ) if( Ucase( datatable.value("Run"))= "Y") Then ' 1.1.2 Initialize variables and arrays for this test case '================================================================= vTestCase = datatable.Value("TestNm") vCaseStatus = "Pass" vFirstRow = datatable.GetCurrentRow ' 1.1.3 Reset arrays for this testcase '================================================================== kTranxn = Environment.Value("kTranxn") If kTranxn = "MedEB" or kTranxn = "MedCT" or kTranxn = "DenEB" or kTranxn = "DenCT" then call f_ClearArray() elseif kTranxn = "MedClaim" or kTranxn = "DenClaim" then Call f_ClearClmArray() end if ' 1.1.4 Extract expected results from data table '================================================================== ' tLoadActionstr = kTranxn&"LoadExpResults" RunAction kTranxn&" LoadExpResults", oneIteration ' 1.1.5 Extract Actual results from the application '================================================================== RunAction kTranxn&" GetActualResults", oneIteration 'RunAction "MedEB GetActualResults1", oneIteration ' 1.1.6 Compare exp and actual arrays OR Autopopulate '================================================================== kRunMode = environment.Value("kRunMode") If kRunMode <> "Autopopulate - For Dataload" Then RunAction kTranxn&" CompareNReportResults", oneIteration Else RunAction kTranxn&" DATALOAD", oneIteration End If end if wend datatable.Export(Environment.Value("KDataTableNew")) RunAction "Execute Macro", oneIteration f_SetupRunResultsII() |