自定义验证点——HTML模式
来源:互联网 发布:淘宝怎么买魔兽金币 编辑:程序博客网 时间:2024/06/13 21:56
1.报告生成函数
注意:这里的GetTOProperty("testObjName")是一个隐藏属性,可以获取QTP对象库里的对象的LogicName:
private Function HReport(ExpectedValue,ActualValue,testStatus,nodename)
Set oEventDesc=CreateObject("Scripting.Dictionary")
'添加状态
oEventDesc("Status")=micFail
'添加是否过滤
oEventDesc("EnableFilter")=False
'添加节点名称
oEventDesc("NodeName")=nodename
'添加HTML结果
oEventDesc("StepHtmlInfo")="<TABLE border='1'>"&_
"<TR><TD>Actual Value</TD><TD>"+ExpectedValue+"</TD></TR>" & _
"<TR><TD>Expected Value</TD><TD>"+ActualValue+"</TD></TR>" & _
"<TR><TD>Checkpoint Status</TD><TD style='background-color:red'><b>Failed</b></TD></TR>" & _
"</TABLE>"
'判断状态
If testStatus 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
Set oEventDesc=CreateObject("Scripting.Dictionary")
'添加状态
oEventDesc("Status")=micFail
'添加是否过滤
oEventDesc("EnableFilter")=False
'添加节点名称
oEventDesc("NodeName")=nodename
'添加HTML结果
oEventDesc("StepHtmlInfo")="<TABLE border='1'>"&_
"<TR><TD>Actual Value</TD><TD>"+ExpectedValue+"</TD></TR>" & _
"<TR><TD>Expected Value</TD><TD>"+ActualValue+"</TD></TR>" & _
"<TR><TD>Checkpoint Status</TD><TD style='background-color:red'><b>Failed</b></TD></TR>" & _
"</TABLE>"
'判断状态
If testStatus 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
2.验证函数-调用第一个报告生成函数自动判读成功与失败
Function ValidateProperty (Object, PropertyName, ExpectedValue)
'判断预期是否与实际值相等
If Object.GetROProperty(PropertyName)=ExpectedValue Then
'成功
HReport ExpectedValue,Object.GetROProperty(PropertyName),true,_
"check "+Object.GetTOProperty("testObjName")+"<"+PropertyName+">属性"
ValidateProperty=True
Exit Function
Else
' 失败
HReport ExpectedValue,Object.GetROProperty(PropertyName),false,_
"check "+Object.GetTOProperty("testObjName")+"<"+PropertyName+">属性"
ValidateProperty=False
Exit Function
End If
End Function
Function ValidateProperty (Object, PropertyName, ExpectedValue)
'判断预期是否与实际值相等
If Object.GetROProperty(PropertyName)=ExpectedValue Then
'成功
HReport ExpectedValue,Object.GetROProperty(PropertyName),true,_
"check "+Object.GetTOProperty("testObjName")+"<"+PropertyName+">属性"
ValidateProperty=True
Exit Function
Else
' 失败
HReport ExpectedValue,Object.GetROProperty(PropertyName),false,_
"check "+Object.GetTOProperty("testObjName")+"<"+PropertyName+">属性"
ValidateProperty=False
Exit Function
End If
End Function
这里的验证函数使用了测试对象的抽离技术。调用时可以直接把对象传入,把以上两个函数都存放在函数库中,然后直接调用验证函数(ValidateProperty)即可:
set oWebEdit = Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd")
ValidateProperty oWebEdit,"name","wd"
ValidateProperty oWebEdit,"name","wd1"
0 0
- 自定义验证点——HTML模式
- 【软件测试自动化-QTP系列讲座 36】== 自定义验证点-HTML模式 ==
- HTML验证注意点
- HTML模式自定义reporter
- html用JQuery自定义表单验证。
- html——登录后台、验证码
- HTML表单javascript验证通用模式
- HTML表单javascript验证通用模式
- HTML表单javascript验证通用模式
- WPF数据验证(3)——自定义验证规则
- 实验14——自定义服务器端验证
- javaBean验证框架(4)—自定义约束
- Android——加载自定义html+JavaScript
- 设计模式—那点事儿
- 设计模式那点事—模板模式
- HTML——返回顶部和锚点
- HTML——a标签、锚点、路径
- Html表单javascript 验证通用模式(收藏)
- 笔记:harvesting discriminative meta objects with deep CNN features for scene classification
- Android防止内存泄露
- NOIP组模拟2016.2.18
- 《linux优化之需要开机启动的重点服务详解》
- OC 变量作用域
- 自定义验证点——HTML模式
- Java三大特性——继承,封装和多态
- JSP的自定义标签(一)
- fatal error LNK1120: 无法解析的外部命令解决办法
- SMART 原则
- 产品经理必读《结网》读书笔记
- 【JAVA知识】反射和注解(1)
- 【图像处理】空间变换
- 「深入Java」类型信息:RTTI和反射