project1

project requirement:

1. project has to be mobile, meaning no hard coded path.

using environment: Environment("TestDir") to get the current test directory. Constructur the directory like this c:MercuryTour for scripts, C:mercuryTourDatatable for datatables, c:mercurytourobjectrepository for object repository, c:mercuryTourresults for saved test result

#main script
# get the pathes
filepath=Environment("TestDir")
datatablepath=filepath&"datatable"
resultpath=filepath&"results"

#ask user to select test packages, functional regression or GUI testing

packageList=Array("functional regression","GUI testing)

 for i = 0 to 1
 newmess = msg & vbCrLf & cstr(i + 1) & " - " & List(i)  'loop through the Array and add
  msg = newmess      'Each item from it to the list
 next
selectPackage=