好记性不如烂笔头,日志中记录了本人学习时遇到的知识点,方便自己回顾所学,也给有需要的童孩提供参考。欢迎大家阅读,并提出宝贵意见。

QTP:在报告中输出屏幕截图

上一篇 / 下一篇  2013-04-10 16:25:21

 本人测试查询功能的时候都是等脚本运行完之后,通过查看测试过程中的截图来判断测试是否通过的,屏幕截图就简单使用一句话
Desktop.CaptureBitmap “D:/截图...”,True

测试过程中不可避免地会有无数个截图,因此在最后检查图片的时候还要很详细地看那个图对应哪一步测试等,非常麻烦。
   今天有幸看到一个场景恢复的方法,本人根据里面的函数做了一点改进,可以使得截图在测试报告中对应每一步测试显示出来,并且图片都是直接存在测试报告文件夹中,不用另外新建文件夹,非常方便。废话不多说,先把方法贴上来先:
=============================================
'名称:QTP_Capture
'作用:截图
'参数:TestFor 要测试的内容
'函数调用实例:QTP_Capture("测试查询功能")
'=============================================
Public Sub QTP_Capture(TestFor)
   wait(1)
    Dim datestamp,filename,ResPath
    ResPath = Environment("ResultDir")'获取测试环境
    datestamp = Now()
    filename = Environment("TestName")&"_"&datestamp&".png"'获取当前测试名称和时间作为图片名称,例如输出为:MinnovEMS_2013410 154751.png
    filename = Replace(filename,"/","")
    filename = Replace(filename,":","")
    filename = ResPath + "\" + ""&filename
    Desktop.CaptureBitmap filename,True
    Reporter.ReportEvent micWarning,TestFor,"测试截屏",filename'使用警告标志,提醒测试员查询结果
End Sub
以下为测试报告中的显示的截图




TAG:

 

评分:0

我来说两句

Open Toolbar