Hi All,
I am trying to use this code o set Run Status of all tests in a Test Set to
some status ("Failed","Passed"). Somehow it is not updating the status of
the test eventhough it is retrieving the values correctly, There is no
error also. Can someone throw some light on it?
On error resume next
Set TestSet = QCUtil.CurrentTestSet
TestSetName = TestSet.name
Msgbox "TestSetName : "&TestSetName
Set TSTestSetList = QCUtil.CurrentTestSet.TSTestFactory.NewList("")
For each tests in TSTestSetList
Msgbox "tests.Name :"&tests.Name
If Instr(tests.Name, "02.03.10.02.02 .100 Google_Search_Program")
<> 0 Then
tests.field("TC_STATUS") = "Passed"
'tests.status = "Passed"
tests.Post
Exit For
End If
Next
Set TSTestSetList = Nothing
Set TestSet = Nothing
--
--
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
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
