QTP - Reporter Utility - Scripts
QTP - Reporter Event Usages
QTP - Reporter Utility Scripts
Different methods of QTP - Report Utility Demo Scripts
' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' To Demonstrate the QTP @ Reporter Object
' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'#######################################################################
' Following are the associated properties and methods of QTP @ Reporter Object
'#######################################################################
'Reporter.Filter
'Reporter.ReportEvent
'Reporter.ReportNote
'Reporter.ReportPath
'Reporter.RunStatus
''#######################################################################
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' To Demo .. Reporter.Reporter.ReportEvent
'Reporter.ReportEvent ==> micPass => To be used for reporting Pass Statements / conditions
'Reporter.ReportEvent ==> micFail => To be used for reporting Fail Statements / conditions
'Reporter.ReportEvent ==> micDone => To be used for reporting Done Statements / conditions
'Reporter.ReportEvent ==> micWarning => To be used for reporting Warning Statements / conditions
'Reporter.ReportEvent ==> micGeneral => To be used for reporting General Statements / conditions
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
TestName="Sample Test Name"
TestStatus= " Sample Test Status = Pass /Fail "
Reporter.ReportEvent micPass, "Test Case 1#" &vbtab & "Test Case Name: " &vbtab & TestName," Test Execution Status" & TestStatus
Reporter.ReportEvent micFail, "Test Case 2#" &vbtab & "Test Case Name: " &vbtab & TestName," Test Execution Status" & TestStatus
Reporter.ReportEvent micDone, "Test Case 3#" &vbtab & "Test Case Name: " &vbtab & TestName," Test Execution Status" & TestStatus
Reporter.ReportEvent micWarning, "Test Case 4#" &vbtab & "Test Case Name: " &vbtab & TestName," Test Execution Status" & TestStatus
Reporter.ReportEvent micGeneral, "Test Case 5#" &vbtab & "Test Case Name: " &vbtab & TestName," Test Execution Status" & TestStatus
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' To Demo .. Reporter.ReportEvent
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Browser("name:=.*").Page("title:=.*").Sync
Browser("name:=.*").Page("title:=.*").CaptureBitmap "test.png",True
Browser("name:=.*").Page("title:=.*").WebEdit("name:=q").CaptureBitmap "test1.png",True
Browser("name:=.*").Page("title:=.*").WebButton("name:=Google Search").CaptureBitmap "test2.png",True
Reporter.ReportEvent micPass ,"Taken a Snapshot for Page","Passed","test.png"
Reporter.ReportEvent micPass ,"Taken a Snapshot for WebEdit ","Passed","test1.png"
Reporter.ReportEvent micPass ,"Taken a Snapshot for WebButton","Passed","test2.png"
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' To Demo .. Reporter.Filter ==> rfDisableAll
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Reporter.Filter= rfDisableAll
Reporter.ReportEvent micPass ,"pass",1,"test.png"
Reporter.ReportEvent micPass ,"pass",1,"test1.png"
Reporter.ReportEvent micPass ,"pass",1,"test2.png"
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' To Demo .. Reporter.Filter ==> rfEnableAll
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Reporter.Filter= rfEnableAll
MyName="GAReddy"
Reporter.ReportNote ("hiiiiiiiiii")
Reporter.ReportNote ("My Name is:") & MyName
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' To Demo .. Reporter.ReportPath
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
MyResultsPath=Reporter.ReportPath
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' To Demo .. Reporter.ReportNote
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Reporter.ReportNote ("Testing App Now")
Reporter.ReportNote ("The Results paths of Test Scripts") & vbtab &MyResultsPath
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' To Demo .. Reporter.ReportStatus
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
If Reporter.RunStatus = micFail Then ExitTest
If Reporter.RunStatus = micFail Then ExitAction
'If Reporter.RunStatus = micFail Then Exit Function
'If Reporter.RunStatus = micFail Then Exit Do
