使用QTP检查页面中的基本异常

发表于：2010-1-19 11:34

字体：大中小 | 上一篇 | 下一篇 | 我要投稿

作者：danmy 来源：51Testing软件测试博客

　　具体实现上，在准备数据文件时，提供两种数据：

　　1. 每个字段的默认输入值，即正确值。也是自动化程序执行时默认输入的数据。

　　2. 异常值，针对每个字段，提供该字段可能需要的异常策略，对所有异常进行遍历。

　　第一行为默认值，第二行为字段对应的异常策略。

　　分三个函数来处理：

　　1. 执行函数

Public Sub excep_OpUser()
              routingname = "企业用户输入－异常测试"
              ' 载入数据表数据的第2行
                     GE_SetCurRow OppDataFile,"企业用户",2
              Dim objStr,oScript,i
              set objStr = CreateObject("Scripting.Dictionary")
              set oScript = CreateObject("Scripting.Dictionary")

              ‘ 根据数据表字段设置每个字段的QTP执行语句
              for i = 1 to DataTable.GetSheet("UserData").GetParameterCount
                     if DataTable.GetSheet("UserData").GetParameter(i)="企业名称" Then _
                             objStr.add DataTable.value(i,"UserData"),".WebEdit("opername").set "
                     ...
              Next

              ‘ 调用异常数据生成函数，返回值保存在dictionary对象oScript中
              Gen_excepData(objStr,oScript)

              ‘ 依次对含异常策略的字段进行异常测试
              For i = 0 to oScript.Count-1
                     Call OpUserSet(1,oScript(i))
              Next

              set objStr = Nothing
              set oScript = Nothing
       End Sub

32/3<123 >