mainscript

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