how to add test to test set using vb script ?

[dasappa]

I was able to add test set but not able to add the test in QC. I would really appreciate if some one could help me on this issue. Below is the code I was trying to use. Please let me know if anyone need more inofrmation.

Code:

qcServer ="servername" Set tdc = CreateObject("TDAPIOLE80.TDConnection") If (tdc Is Nothing) Then MsgBox "tdc empty" Else Msgbox "Connection object created" End If tdc.InitConnectionEx qcServer tdc.Login "testlogin", "testpassword" tdc.Connect "domain", "project" Set TreeMgr = tdc.TreeManager Set testF = tdc.TestFactory Set labTreeMgr = tdc.TestSetTreeManager

'-----------------------------------------
' Test Lab
'------------------------------------------

Code:

' Get or create a test set folder. errmsg = "Lab node error" Dim tsFolder, tsFolderPath tsFolder ="CWF_Regression" tsFolderPath = "Root\" & tsFolder On Error Resume Next Set labFolder = labTreeMgr.NodeByPath(tsFolderPath) ' On Error GoTo LinkDefectsToEntitiesErr If labFolder Is Nothing Then Set labTreeRoot = labTreeMgr.Root Set labFolder = labTreeRoot.AddNode(tsFolder) labTreeRoot.Post msgbox "Folder Created in TestLab" Else Set labTreeRoot = labTreeMgr.Root Set labFolder = labTreeRoot.AddNode(tsFolder) labTreeRoot.Post msgbox "unable to create folder in test lab" End If ' Get or create a test set from the factory of the new folder. errmsg = "Test set error" Dim tsName TestName = "CWF_Regression" tsName = TestName Set testSetF = labFolder.TestSetFactory Set aFilter = testSetF.Filter aFilter.Filter("CY_CYCLE") = tsName Set lst = testSetF.NewList(aFilter.Text) If lst.Count = 0 Then Set TstSet = testSetF.AddItem(Null) TstSet.Field("CY_CYCLE") = tsName TstSet.Post Else Set TstSet = lst.Item(1) End If ' Get or create a test instance from the factory of the new test set. Set NewTest = GetTest("C-BR1-FR10-TC1", "Subject\CWF_Regression") msgbox NewTest.ID Set NewTest = testF.AddItem(Null) NewTest.Name = "C-BR1-FR10-TC1" msgbox NewTest.ID errmsg = "Test instance error" Set testInstanceF = TstSet.TSTestFactory Set aFilter = testInstanceF.Filter aFilter.Filter("TC_TEST_ID") = NewTest.ID '"C-BR6-FR28-TC19" Set lst = testInstanceF.NewList(aFilter.Text) If lst.Count = 0 Then Set tstInstance = testInstanceF.AddItem(Null) ' Put the new test in the test set. tstInstance.Field("TC_TEST_ID") = NewTest.ID '"C-BR6-FR28-TC19" Else Set tstInstance = lst.Item(1) End If tstInstance.Status ="FAILED"

[amitspandey]

hi,

Code:

set qtpapp=CreateObject("Quicktest.Application") qtpapp.Open "c:abc\test1" qtpapp.Visible=True qtpapp.Test Run qtpapp.Quit set qtpapp=Nothing

write the code in any text file save the file with .vbs and run the file by double clicking on it.
this code with run the mentioned test in the path above and close the qtp after execution.

[sreekanth chilam]

@HI Amit,

The question was about the QC OTA(Open Test Architecture) and not about the AOM(Automation Object Model).

@dasappa:I would suggest you to go thru OTA API reference file once, hope you can get the solution with that.

[lbostic]

Did you get a reply to this?

One question where did GetTest() come from?
Set NewTest = GetTest("C-BR1-FR10-TC1", "Subject\CWF_Regression")

I just want to simply add a test to a test set... cannot find anywhere including in Documentation...

LB

[sunnystrikes]

I'm also facing the same issue, can you please assist with codes for adding tests in the test instance.

Thanks,
Sunnhy

---

If anyone has solution for this, please share it.

Thanks.