声明：本空间的内容不全部是原创，如有雷同只为学习与借鉴之方便，别无它意，来者是朋友，愿通过此平台结交天下测试达狼！

自定义验证点-HTML模式

上一篇 / 下一篇 2010-08-24 21:13:48 / 个人分类：QTP

3Qs7cB!?9KO7]0 很久没更新了，最近事情实在是太多，这两天稍微空点，终于能挤出时间来更新了，今天要讲的是自定义过程校验，内容比较特别，正常情况我们都知道，自定义报告的话我们可以直接使用Report对象，而当我们在使用验证点时经常会用到Checkproperty，执行它之后QTP会自动在report里生成一条验证结果。以上的我就不说了，相信大家一定都非常精通了。今天主要是讲一下怎么结合验证点在QTPreport中输出HTML格式的结果。51Testing软件测试网W#Q*wQ A

废话不说，上例子：51Testing软件测试网k%U%m'qw&X5C

51Testing软件测试网|FQ7F-~0GC0H

*]Y3P%z-~#K+O0上图就是我们需要实现的最终结果。来看一下脚本的实现：

pV'jq l01. 报告生成函数（过度函数）51Testing软件测试网BH7R |5N8_?

%toMR)p$w0注意：这里的GetTOProperty("testObjName")是一个隐藏属性，可以获取QTP对象库里的对象的LOGICNAME.

"u ld|Ck0[8m?Y,f ]0'######################### 报告生成 ###########################
private Function HReport(ExpectedValue,ActualValue,testStatus,nodename)
8E.g;dv;V]0    Set EventDesc = CreateObject("Scripting.Dictionary")
'yS8Q"},A0    '添加状态
rC%zy Q4`3S~#j$W0    oEventDesc("Status") = micFail
~$@\f;{6d Qgq0    '添加是否过滤
    oEventDesc("EnableFilter") = False
'_!exV)G#D0    '添加节点名称
@R{;A hQ0    oEventDesc("NodeName") = nodename51Testing软件测试网e},Tf#s
    '添加HTML结果
H OllG _%s0    oEventDesc("StepHtmlInfo") = "<TABLE border='1'>" & _
                "<TR><TD>Actual Value</TD><TD>"+ExpectedValue+"</TD></TR>" & _51Testing软件测试网,E!aL6gqK
                "<TR><TD>Expected Value</TD><TD>"+ActualValue+"</TD></TR>" & _51Testing软件测试网sG y"bi_.H
                "<TR><TD>Checkpoint Status</TD><TD style='background-color:red'><b>Failed</b></TD></TR>" & _51Testing软件测试网C4Q ORm8{vN
                "</TABLE>"
+zF'Vh*r-~}0   '判断状态51Testing软件测试网7zhV'L|}[
    If testStatus Then
        oEventDesc("Status") = micPass
I@Xw.l(x$ek0        oEventDesc("StepHtmlInfo") = Replace(oEventDesc("StepHtmlInfo"),_
4?*` A(f@~dV0        "<TD style='background-color:red'><b>Failed</b></TD>","<TD style='background-color:green'><b>Passed</b></TD>")
!N"~ Z v&R!zn.idZ0    End If51Testing软件测试网 O F#C].Acvj
    '生成报告
d QdJq0    newEventContext = Reporter.LogEvent ("Replay",oEventDesc,Reporter.GetContext)51Testing软件测试网_wD!g(B`2b
    '释放资源
0~g{4w;T;G0    Set EventDesc = nothing51Testing软件测试网B"nF2~;y
End Function

$Z+n Sh/eXV1p;V)]02. 验证函数 - 调用第一个报告生成函数自动判断成功与失败

9]%ikA)XR?0'########################### 自定义过程校验 ##########################
Function ValidateProperty (Object, PropertyName, ExpectedValue)
Z$L bh'qIS4SS0    '判断预期是否与实际值相等51Testing软件测试网,U9v;o`t
    If Object.GetROProperty(PropertyName) = ExpectedValue Then
        '成功
9dX~:wH@sl0        HReport ExpectedValue,Object.GetROProperty(PropertyName),true,_
0@,R.p5y)]$k*V4n7PO#J0        "check "+Object.GetTOProperty("testObjName")+"<"+PropertyName+">属性"51Testing软件测试网 c#_$h_0]+|y
        ValidateProperty = True
~5{,Q9XQj}#X6a0       Exit Function
    Else
/RVk mg4V0      ' 失败
yVl8x;Bt;j)sSwj0        HReport ExpectedValue,Object.GetROProperty(PropertyName),false,_
        "check "+Object.GetTOProperty("testObjName")+"<"+PropertyName+">属性"51Testing软件测试网b/],j-A0d]t
        ValidateProperty = False51Testing软件测试网e8H@}3s:G
        Exit Function51Testing软件测试网#`"x4p;wb V/[
    End If
End Function
:b\K;|bz0 51Testing软件测试网knH e!jx