QCUtil to set Run Status of all tests in a Test Set to some status. The
following code is not doing it. Can someone through 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
On Tuesday, November 11, 2008 at 11:00:44 PM UTC-5, Pavan Turlapati wrote:
>
> Hi All,
> Need a small help from you folks.
>
>
> *Requirement:*1) Have to update the status of Test Case as Passed/Failed
> Automatically in QC depending on the result of the Test Script executed
> through QTP.
> Eg:
>
> If Browser("abc").Page("abc").Frame("abc").webedit("abc").exist(7) Then
> Reporter.reportevent micPass,"Text Box check","Text Box exists"
> * <---Here I need a script which will Pass a Test Case located in
> QC--->*
> Else
> Reporter.reportevent micfail,"Text Box check","Text Box does not
> exist"
> * <---Here I need a script which will Fail a Test Case located in
> QC--->*
> End If
>
--
--
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.
