Saturday, January 3, 2009

QTP Script 24 - How to run multiple tests in QuickTest professional (QTP) ?

'This is just one of the ways of doing this. I created three tests tr1, tr2 and tr3. In the Expert View of tr1 I wrote just one line - msgbox ("Test 1"), in the Expert View of tr2 - msgbox ("Test 2") and in the Expert View of tr3 - msgbox ("Test 3").

'Write the below code in a text file and Save it with .vbs extension and run it.

Dim App

Set App = CreateObject("QuickTest.Application")
App.Visible = True

Dim QTP_Tests(3)
QTP_Tests(1) = "C:\Program Files\HP\QuickTest Professional\Tests\tr1"
QTP_Tests(2) = "C:\Program Files\HP\QuickTest Professional\Tests\tr2"
QTP_Tests(3) = "C:\Program Files\HP\QuickTest Professional\Tests\tr3"

'Creating the RunResultsOptions object. It is a collection of properties that indicate preferences for the run results. E.g. ResultsLocation property as used below which tells the path in which the run results will be stored.

Set res_obj = CreateObject("QuickTest.RunResultsOptions")

For i = 1 to UBound (QTP_Tests)
App.Open QTP_Tests(i), True
Set QTP_Test = App.Test
res_obj.ResultsLocation = QTP_Tests(i) & "\Res1" ' Set the results location
'Using the Run method. Run Method runs the open test or business component and creates results in the specified file or Quality Center path. A Boolean value - true or false can be set. Indicates whether the Test.Run statement waits until the end of the run before performing the next statement in the automation script. Default=True.
QTP_Test.Run res_obj, True


Set res_obj = nothing
Set QTP_Test = nothing
Set App = nothing