HTML模式自定义reporter
来源:互联网 发布:大淘客cms网站搭建 编辑:程序博客网 时间:2024/05/21 06:34
Option explicit
private function Hreport(expectedValue, ActualValue, testStatus, nodename)
Dim oEventDesc, newEventContext
Set oEventDesc = CreateObject("scripting.Dictionary")
oEventDesc("Status") = micFail
oEventDesc("EnableFilter") = False
oEventDesc("NodeName") = nodename
oEventDesc("StepHtmlInfo") = "<table border='1'>" &"<tr><td>Expected Value</td><td>"+expectedValue+"</td></tr>" & _
"<tr><td>Actual 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
Function VaildateProperty(object, PropertyName, ExpectedValue)
If object.GetROProperty(PropertyName) = ExpectedValue Then
Hreport ExpectedValue, object.GetROProperty(PropertyName), true, "检查 "+object.GetTOProperty("testObjName")+"<"+propertyName+"> 属性"
VaildateProperty = true
Exit function
else
Hreport ExpectedValue, object.GetROProperty(PropertyName), false, "检查 "+object.GetTOProperty("testObjName")+"<"+propertyName+"> 属性"
VaildateProperty = false
Exit function
End If
End Function
private function Hreport(expectedValue, ActualValue, testStatus, nodename)
Dim oEventDesc, newEventContext
Set oEventDesc = CreateObject("scripting.Dictionary")
oEventDesc("Status") = micFail
oEventDesc("EnableFilter") = False
oEventDesc("NodeName") = nodename
oEventDesc("StepHtmlInfo") = "<table border='1'>" &"<tr><td>Expected Value</td><td>"+expectedValue+"</td></tr>" & _
"<tr><td>Actual 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
Function VaildateProperty(object, PropertyName, ExpectedValue)
If object.GetROProperty(PropertyName) = ExpectedValue Then
Hreport ExpectedValue, object.GetROProperty(PropertyName), true, "检查 "+object.GetTOProperty("testObjName")+"<"+propertyName+"> 属性"
VaildateProperty = true
Exit function
else
Hreport ExpectedValue, object.GetROProperty(PropertyName), false, "检查 "+object.GetTOProperty("testObjName")+"<"+propertyName+"> 属性"
VaildateProperty = false
Exit function
End If
End Function
- HTML模式自定义reporter
- 关于Jenkins Publish HTML Reporter
- 自定义验证点——HTML模式
- port reporter
- ET Reporter
- QTP10的Reporter对象
- Bug reporter 开发目的
- System Activity Reporter (sar)
- [C++]sales-reporter
- Hadoop:MapReduce Reporter参数
- 《揭秘QTP之Reporter对象》
- 重写QTP的Reporter方法
- crystal reporter along with QT
- 调用reporter文件进行操作
- 揭秘QTP之Reporter对象
- 【软件测试自动化-QTP系列讲座 36】== 自定义验证点-HTML模式 ==
- 自定义HTML标签属性
- HTML 标签自定义属性
- 使用AIDL和远程服务实现进程通信
- 基于HBASE的并行计算架构之rowkey设计篇
- 你好,2013
- extjs 开发注意事项
- Unity3d 动态读取外部文件
- HTML模式自定义reporter
- 《Java编程思想》学习笔记1——面向对象和JVM基础
- C# windows服务的创建与调试
- asp.net 截屏 截取web页面 源代码
- failed to start daemon 最新解决方法,非豌豆荚
- Unity3d 截取窗体图片并保存
- Linux磁盘坏道的检测及修复
- Android环境搭建及HelloWorld
- iOS中使用Core Plot绘制统计图入门