发点有质量的贴——QTP自定义检查点

zz45509

写好的函数~~~~~~~~~~~~不是我写的~~~~~~~~~~~~~


'----------------------------------------------------------------------------------------------------------------------------
'Name:WriteReport(Private)
'
'Purpose:向测试报告中写一个新的测试节点，并写入测试报告
'
'Parameters:
'ExpectedValue:预期结果
'ActualValue:实际结果
'ResultValue:结果状态
'nodename:结点名称
'
'Author:Muse
'
'Date:2012-5-16
'-----------------------------------------------------------------------------------------------------------------------------
Private Function WriteReport(ExpectedValue,ActualValue,ResultStatus,nodename)
   Dim oEventDesc,newEventContext
        Set oEventDesc=CreateObject("Scripting.Dictionary")
        oEventDesc("Status")=micFail '添加状态
        oEventDesc("EnabledFilter")=False '添加是否过滤
        oEventDesc("Nodename")=nodename '添加结点名称
        oEventDesc("StepHtmlInfo")= "<TABLE border='1'>"&_
                "<TR><TD>预期结果</TD><TD>"+ExpectedValue+"</TD></TR>"&_
                "<TR><TD>实际结果</TD><TD>"+ActualValue+"</TD></TR>"&_
                "<TR><TD>结果</TD><TD style='background-color:red'><b>Failed</b></TD></TR>"&_
                "</TABLE>"
        If ResultStatus Then '判断状态
                oEventDesc("Status")=micPass
                oEventDesc("StepHtmlInfo")=Replace(oEventDesc("StepHtmlInfo"),_
                "<TD style='background-color:red'><b>Failed</b></TD>",_
                "<TD style='background-color:green'><b>Passed<b></TD>")
        End If
        newEventContext=Reporter.LogEvent("Replay",oEventDesc,Reporter.GetContext) '生成报告
        Set oEventDesc=nothing '释放资源
End Function
'-----------------------------------------------------------------------------------------------------------------------------------
'Name:CheckProperty(Function)
'
'Purpose:判断预期结果是否与实际结果一致
'
'Parameters:
'Object:对象名称
'PropertyName:属性
'ExpectedValue:预期结果
'
'Author:Muse
'
'Date:2012-5-16
'--------------------------------------------------------------------------------------------------------------------------------------
Function CheckProperty(Object,PropertyName,ExpectedValue)
        If Object.GetROProperty(PropertyName)=ExpectedValue Then
                   WriteReport ExpectedValue,Object.GetROProperty(PropertyName),True,_
                   "check"+Object.GetTOProperty("testObjName")+"<"+PropertyName+">属性"
                   CheckProperty=True
                   Exit Function
        Else
                   WriteReport ExpectedValue,Object.GetROProperty(PropertyName),False,_
                   "check"+Object.GetTOProperty("testObjName")+"<"+PropertyName+">属性"               
                        CheckProperty=False
                        Exit Function
        End If
End Function

Dim oWinButton
Set oWinButton=Window("一二三").WinButton("录像视频")
CheckProperty oWinButton,"text","录像视频"