Main Structure:
Action 1---Execute script:
'#####################################################################################
' Script Name : Main Execute Script
' Created By :
' Created Date:
'
' Description: Select what kind of testing you want to execute
'
'#####################################################################################
Dim kApp, fpath
tDebugMode = "N"
' Extract Script path
fpath = Environment("TestDir")
'Extract Datatable Path
Environment.Value("fpathDataTable") = fpath & "Datatables"
'Ask user to select which test to run
kAppList =Array("MercuryTours - Application Functional Regression Testing","MercuryTours - Application Display Regression Testing")
kApp = f_Create_List_Dialog("Select Regression Testing", "Which regression testing are you running?", kAppList)
Select Case kApp
Case "MercuryTours - Application Functional Regression Testing"
RunAction "01-Functional-Regression-Testing", oneIteration
Case "MercuryTours - Application Display Regression Testing"
RunAction "02-Application-Display-Regression-Testing", oneIteration
End Select
