'##################################################################################### ' Script Name : Execute Script ' ' Created By : Miken Gandhi ' Created Date: 26-Feb-2007 ' ' Description: This script is intended to navigate the Main script of the selected application ' Instructions: ' 1. Select "Run" from the menus above. ' 2. If a warning appears that the run name already exists, click "OK" ' 3. You're off and running! ' '##################################################################################### Dim kApp, fpath tDebugMode = "N" ' Extract Script path fpath = Environment("TestDir") 'Extract Datatable Path fpatharray = split(fpath, "") tcount = ubound(fpatharray) fpathDataTable = fpatharray(0) For i = 1 to tcount - 2 fpathDataTable = fpathDataTable &"" & fpatharray(i) Next Environment.Value("fpathDataTable") = fpathDataTable & "Datatables" fpathMacro = fpatharray(0) For i = 1 to tcount -1 fpathMacro = fpathMacro &"" & fpatharray(i) Next Environment.Value("fpathMacro") = fpathMacro &"Function Library" ' User Input for Application Under Test. kAppList =Array("Consumer Portal - Data Validation","Consumer Portal - Look & Feel") kApp = f_Create_List_Dialog("Application Under Test", "Which application are you testing?", kAppList) Environment.Value("kApp") = kApp Select Case kApp Case "Consumer Portal - Data Validation" RunAction "CP_Main", oneIteration Case "Consumer Portal - Look & Feel" RunAction "LFCP_Main", oneIteration End Select
|