正文

mainscript

(2011-01-27 13:59:01) 下一個

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

[ 打印 ]
閱讀 ()評論 (2)
評論
目前還沒有任何評論
登錄後才可評論.