QTP场景恢复

 

在调试QTP脚本过程中发现，无论是Qtp自带的运行报告还是TD提供的运行报告，都无法为错误定位提供很确切、直观的参考。比如，有时错误发生在点击“订单填写”的步骤，而运行报告给出的结果是无法找到点击“订单填写”步骤之后的订单填写界面对象的缺失。因此为了更好地保留“现场”，我们在场景恢复关闭进程函数之前，先调用桌面截图函数保留“案发现场”。desktop.CaptureBitmap  filename,Ture。

通常一个测试集中包含很多个测试用例，为了方便用例和截图的对应，要对截图的命名区分处理。麦兜兜想到两种方式：

一、返回错误发生时系统当前时间，如下所示：

 Dim FileName ,TimeNow, ResPath

 ResPath = "D:\TestsResult"

 TimeNow = DotNetFactory.CreateInstance( "System.DateTime" ).Now.ToString( "ddMMyyHHmmss" )

 FileName = ResPath & "" & TimeNow & ".bmp"

 desktop.CaptureBitmap  filename,True

 

二、从环境变量获取当前测试脚本的名称，如下所示：

 Dim FileName ,ResPath

 ResPath = "D:\TestsResult"

 TestNameNow=environment.Value("TestName")  

 FileName = ResPath & "" & TestNameNow & ".bmp"

 desktop.CaptureBitmap  filename,True

当然也可将二者结合。

******************************************************************************

有博友留言想了解整体函数，下面提供：

public Function RecoveryFunction1(Object, Method, Arguments, retVal)

Dim FileName ,TimeNow, ResPath

ResPath = "D:\TestsResult"

TimeNow = DotNetFactory.CreateInstance( "System.DateTime" ).Now.ToString( "ddMMyyHHmmss" )

TestNameNow=environment.Value("TestName") 

FileName = ResPath & ""&TestNameNow & TimeNow & ".bmp"

desktop.CaptureBitmap  filename,True

systemutil.closedescendentprocesses
    End Function

******************************************************************************