• RSS
  • Facebook
  • Twitter

One Center for all the Testing Need. OneTestingCenter is for all, for all QA, for all Automation. Automation is easy, fun and enriching experience. Happy Learning and Happy Testing!

  • Access to All QA

    At OneTestingCenter, you find lots of books,articles,blogs and detailed guides. Everyone has access to QA. Happy Learning, Happy Testing.

  • Global Trainings

    All the QA/Auotmation trainings are available at OneTestingCenter. QA, Automation, QTP/UFT, Selenium, LoadRunner, QC/ALM, Appium...

  • Automation Learning Fun

    Technology is always evolving. Automation is always challenging. To be frank, Automation is fun, enthusiastic and enrching experience.



    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

    Reactions:

    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