Is QTP able to execute n tests parallel ?

[dopolony]

Hello,

I hope anyone can answer my question. Is Quicktest Professional able to execute 2 or mroe tests parallel ?

Greets,
Dominik Opolony

[niranjan]

As far as I know, the answer is NO.

[bfakruddin]

Nope,

We can run tests one after the other but can't run at a time...

thanks & regards
Baba Fakruddin.D

[sreekanth chilam]

Hi ,

We cannot run multiple tests parallelly using QTP....

But we can run a batch of tests using a feature "Test batch Runner" in QTP which executes the multiple tests sequentially...( As shown below )

1) Open Test Batch Runner

2) Save the batch file(.mtb) which contains multiple tests into req. location.

3) Open required Batch file --> Run the batch file

[mrinal_nandi]

Hi,
You can not run more than 1 test parallelly.
You can run the test sequentially using Batch Runner or define your custom Batch Runner Script.
1) Create a excel with test case name and markes yes or no depending your execution requirement.
2) Use QTP object model to create QTP object.
3) Read from excel take the test case name for which execution status marked as yes.
4) Define your test case path.
4) Use loop to open each test case (using test case path+ Test case name) and execute the test case using QTP Automation object.

Sample Code:

Code:

strTestScriptFolderPath="E:\Alpha Centauri\QA Automation\Test Scripts\" Set objQTPApp=CreateObject("QuickTest.Application") objQTPApp.Launch objQTPApp.Visible =True Set objInputDataFile=CreateObject("Excel.Application") 'Opening Input data Excel in Read - Write Mode objInputDataFile.Workbooks.Open inputExcelpath,True,True Set objCurWorksheet=objInputDataFile.ActiveWorkbook.Worksheets(1) intRowCnt = objCurWorksheet.UsedRange.Rows.Count For intCurRow=2 to intRowCnt strExeKeyword=objCurWorksheet.Cells(intCurRow,5) If LCase(Trim(strExeKeyword))="yes" Then strTestScriptsName=objCurWorksheet.Cells(intCurRow,4) x=strTestScriptFolderPath&strTestScriptsName objQTPApp.Open x, False, False Set objQTPTest= objQTPApp.Test objQTPTest.Save Set objQTPResultsOpt=CreateObject("QuickTest.RunResultsOptions") objQTPResultsOpt.ResultsLocation="<TempLocation>" objQTPTest.Run objQTPResultsOpt strResultStatus=objQTPTest.LastRunResults.Status If strResultStatus="Warning" Then strResultStatus="Passed" End If objCurWorksheet.Cells(intCurRow,6)=strResultStatus 'objQTPTest.Close End If Next objInputDataFile.Activeworkbook.SaveAs strExectionResultPath objInputDataFile.Activeworkbook.Close objInputDataFile.Quit

Regards,
Mrinal Nandi
Automation Tester