软件测试工具QTP中运行错误的捕捉和记录

发表于:2010-02-01来源:作者:点击数: 标签:软件测试工具qtpQTP记录
软件测试工具 QTP 中运行错误的捕捉和记录 在自动化程序的运行过程中,经常因为环境问题或者代码本身不完善而出现流程不能顺利进行下去的情况,或者会有一些“随机”的提示框(如“操作太快,页面不能及时处理”),这时QTP会产生错误提示,对于这些提示,完

软件测试工具QTP中运行错误的捕捉和记录  

在自动化程序的运行过程中,经常因为环境问题或者代码本身不完善而出现流程不能顺利进行下去的情况,或者会有一些“随机”的提示框(如“操作太快,页面不能及时处理”),这时QTP会产生错误提示,对于这些提示,完全忽略不可取,最好的是及时记录当前错误内容,重复当前操作,当错误提示累计到一定数量,中止当前流程。

  本文提供一种QTP运行错误的捕捉和记录方法,结合QTP本身的场景恢复机制,可以很好的解决该问题。

  首先在恢复场景中定义场景恢复策略,选择需要捕捉的错误种类,定义捕捉错误后的处理,此处定义一个异常处理函数。

  函数定义如下:


‘ Object-出错对象;Method-对象当前的方法;Argu-对象当前方法的参数;retval-当前错误的返回值(errCode)
Function RecordErr(Object, Method, Arguments, retVal)
       wait 3
       Dim ErrCode,ErrDesc,ArgCount,WrongInfo,ArgList
       Dim i,blankStr,ErrCount,CurRow
      
       ‘ 在Globaltable中记录累计错误数
       CurRow = DataTable.GlobalSheet.GetcurrentRow
       DataTable.GlobalSheet.SetcurrentRow 1  
   
    If Environment ("ActionName")<> datatable.Value("CurAction",dtGlobalSheet) Then
              datatable.Value("CurAction",dtGlobalSheet) = Environment ("ActionName")
              datatable.Value("ErrCount",dtGlobalSheet) = 0
       End If
   
       ErrCount = CInt (datatable.Value("ErrCount",dtGlobalSheet))
       blankStr = "                                  "
   
       ErrCode = retVal
       If ErrCode = 0 Then
              ErrDesc = "不明错误!"
       Else
              ErrDesc = DescribeResult(ErrCode)
       End If
 
       ArgCount = UBound(Arguments)
       For i = 0 to ArgCount
        ArgList = ArgList & CStr(i) & "--" & CStr(Arguments(i)) & "/"
       Next
      
       On Error Resume Next
       ‘ 获取对象错误具体描述,此处使用了对象较通用的name属性,部分对象没有该属性可能出错
       WrongInfo = "Object Name: " & Object.GetTOProperty("name") & vbCrLf _
                   & blankStr & "Current Method: " & Method & vbCrLf _
                   & blankStr & "ArgList: " & ArgList & vbCrLf _
                   & blankStr & "ErrDesc: " & ErrDesc
 
       On Error GoTo 0   
    GE_logError "对象运行中出现错误--" & WrongInfo,micFail   
   
    Err.Clear
   
ErrCount = ErrCount + 1
 
    ‘ 累计错误达5次后退出当前流程
    If ErrCount >= 5 Then
              ErrCount = 0
              datatable.Value("ErrCount",dtGlobalSheet) = ErrCount
              DataTable.GlobalSheet.SetcurrentRow CurRow
              routingname = ""
              GE_logError "*****运行过程错误过多,退出本Aciton Iteration,请运行完成后检查环境和脚本!*****",micFail
              ExitActionIteration
       End If
 
       datatable.Value("ErrCount",dtGlobalSheet) = ErrCount
       DataTable.GlobalSheet.SetcurrentRow CurRow
      
End Function

原文转自:http://www.ltesting.net