Hi All,
Here I would like to share some small utilities for Connect QC, Get
Details, Update Test Cases, Defect.
Please find below code for each
1. Adding a Manual Test case through QTP
The below code can be used to create a manual test case into QC,
provided QTP is already connected to QC.
Dim td 'As New TDConnection
Dim dsf 'As DesignStepFactory
Dim tf 'As TestFactory
Dim t 'As Test
Dim ds 'As DesignStep
Set td = QCUtil.TDConnection
Set tf = td.TestFactory
t = tf.AddItem("New Manual test")
t.Post
Set dsf = t.DesignStepFactory
For i = 1 To 5
Set ds = dsf.AddItem(Null)
ds.Field("DS_STEP_NAME") = "Step " & i
ds.Field("DS_DESCRIPTION") = "The design step description"
ds.Field("DS_EXPECTED") = "The expected"
ds.Post
Next
2
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
