重写QTP的Reporter方法

对于 QTP 的 Reporter 对象，我们不能通过 RegisterUserFunc 的方法，像重写其他测试对象的方法一样去自定义我们自己的 Reporter 对象并注册进去。

 

但是 Yaron Assa 告诉我们一种实现的办法：

http://www.advancedqtp.com/community/blogs/yaron-assas-blog144/overriding-qtps-native-reporter/

 

这种方法通过写一个与 Reporter 对象同名的的类来实现：

'Override it with our custom class

Dim Reporter

Set Reporter = New clsReporter

 

'Define a funnel function to be called from the test actions

Public Function GetReporter

    Set GetReporter = Reporter

End Function

 

'Class definition

'In the example, our class just reporter to a text file

Class clsReporter

    Dim oFileReporter

    Public Sub ReportEvent(iStatus, sStepName, sDetails)

        oFileReporter.AppendAllText "c:/log.txt", iStatus & " : " & sStepName & " - " & sDetails & vbcrlf

    End Sub

 

    Private Sub Class_Initialize

       Set oFIleReporter = DotNetFactory("System.IO.File")

    End Sub

End Class

 

然后在 Action 中定义 Reporter 并获取对象来使用，这样在脚本中使用的 ReportEvent 方法就是我们自定义的方法，而不是 QTP 的 ReportEvent 了：

Dim Reporter

Set Reporter = GetReporter

Reporter.ReportEvent "Fail","StepName1","StepDetails"