Run Script in multiple versions simultaniously

[Pallavi]

I have 10 tests in a quality center testset. I need to run these 10 tests in 2 versions of application.
Environment.xls contains the host system name and the application versions.
System1 has application version1
system2 has application version2

So the tests should pick the system name and version number from this sheet and run on that particular host system.

I mean the first test in the testset should read the host system from xls file say system1 which has version1 and execute on that system
Then it has to read the next system name from xls file which contains version2 and execute again on the second system.

Please let me know if it is possible to do this.

Thanks and Regards,
Pallavi

[basanth27]

Are you executing the scripts from Quality Center ?

[Pallavi]

Yes Basanth we are executing from quality center.

We need to execute a script from quality center test set which should run in 4 different versions of the application

[basanth27]

Quality Center has a amazing ability to handle multiple host machines and multiple executions.

On the host manager create 2 different sets of hosts. Manually add the required hosts for the application versions.

On your test lab, create test sets to associate the hosts according to the versions. Kick of multiple executions.

All the tests required to be executed against the host machine specific with the version will be executed against it the rest will follow the definition.

IF you dont want to do it the above way and you need to do it dynamically then research on, "TDAPIOLE80.TDCONNECTION" and QCUtil.

Maybe you may need to programatically initate QC execution.

Let me know if it helps !

[Pallavi]

Hi basanth,
I need to programatically initiate QC execution.I need to connect to QC. Then execute a testset on a particular remote Host machine.
I tried the below code. But it is not working.


Option Explicit

Code:

Public Sub RunTestSet(otdc, tsFolderName, tSetName, HostName, runWhere) Dim TSetFact, tsList Dim theTestSet Dim tsTreeMgr Dim tsFolder Dim Scheduler Dim nPath Dim execStatus ' Get the test set tree manager from the test set factory 'tdc is the global TDConnection object. Set TSetFact = otdc.TestSetFactory Set tsTreeMgr = otdc.TestSetTreeManager ' Get the test set folder passed as an argument to the example code 'subject\functionality\SUB FOLDER NAME" 'nPath = "Root\" & Trim(tsFolderName) nPath = "Root\"& Trim(tsFolderName) Set tsFolder = tsTreeMgr.NodeByPath(nPath) If tsFolder Is Nothing Then err.Raise vbObjectError + 1,"RunTestSet", "Could not find folder" & nPath End If 'Search for the test set passed as an argument to the example code Set tsList = tsFolder.FindTestSets(tSetName) If tsList Is Nothing Then err.Raise vbObjectError + 1, "RunTestSet", "Could not find test set in the " & nPath End If If tsList.Count > 1 Then MsgBox "FindTestSets found more than one test set: refine search" Exit Sub ElseIf tsList.Count < 1 Then MsgBox "FindTestSets: test set not found" Exit Sub End If Set theTestSet = tsList.Item(1) 'Debug.Print theTestSet.ID 'Start the scheduler on the local machine Set Scheduler = theTestSet.StartExecution(HostName) 'Set up for the run depending on where the test instances ' are to execute. Select Case runWhere Case "RUN_LOCAL" 'Run all tests on the local machine Scheduler.RunAllLocally = True Case "RUN_REMOTE" 'Run tests on a specified remote machine Scheduler.TdHostName = HostName ' RunAllLocally must not be set for ' remote invocation of tests. ' Do not do this: ' Scheduler.RunAllLocally = False Case "RUN_PLANNED_HOST" 'Run on the hosts as planned in the test set Dim TSTestFact, TestList Dim tsFilter Dim TSTst 'Get the test instances from the test set Set TSTestFact = TestSet.TSTestFactory Set tsFilter = TSTestFact.Filter tsFilter.Filter("TC_CYCLE_ID") = theTestSet.ID Set TestList = TSTestFact.NewList(tsFilter.Text) Scheduler.RunAllLocally = False End Select 'Run the tests Scheduler.run Set execStatus = Scheduler.ExecutionStatus ' While (RunFinished = False) ' execStatus.RefreshExecStatusInfo "all", True ' RunFinished = execStatus.Finished ' Wend End Sub '================================ Const qcHostName = "mendelbrot:8080" Const qcDomain = "HOSP" Const qcProject = "QC_Test" 'Please define here the name of the project Const qcUser = "bheemanagoud" 'Please define here the username Const qcPassword = "manasa556$" '‘Please define here the password Dim tdc Dim qcServer Dim objArgs Dim strArg Dim strTestSet Dim bRunCode '======GETTING ARGUMENTS============== pxb set objArgs = WScript.Arguments If WScript.Arguments.Count<1 Or WScript.Arguments.Count>2 Then WScript.Echo "Please enter the name of the test set" bRunCode = False Else For Each strArg in objArgs WScript.Echo strArg& "is starting…" strTestSet = strArg bRunCode = True Next End If '=========================================================== qcServer = "http://" & qcHostName qcServer = qcServer & "/qcbin" Set tdc = CreateObject("TDAPIOLE80.tdconnection") If (tdc Is Nothing) Then MsgBox "tdc object is empty" End If tdc.InitConnectionEx qcServer tdc.Login qcUser, qcPassword tdc.Connect qcDomain, qcProject 'RunTestSet tdc,"Insert here path to the test set", strTestSet , "nsert here the name of the machine", "RUN_LOCAL" RunTestSet tdc,"trial1", "deleted" , "TA-Q5", "RUN_REMOTE" 'Disconnect from the project If tdc.Connected Then tdc.Disconnect End If 'Log off the server If tdc.LoggedIn Then tdc.Logout End If 'Release the TDConnection object. tdc.ReleaseConnection 'Check status (For illustrative purposes.) Set tdc = Nothing

Please let me know how to do this.

Thanks,
Pallavi

[basanth27]

The Code looks fine. Are you getting a Error Message ??

[Pallavi]

No I am not getting any error message. But The 'Scheduler.run
' is not running the scripts