使用QTP检查页面中的基本异常-自动化测试

　　页面异常输入测试是系统测试的一个重要方面，但是因为比较繁杂，人工测试时往往难以完全覆盖，此时采用自动化测试，就有相当的优势了。

　　其中就包括很多异常输入测试点：

　　名称不能包含特殊字符，固定的电话格式，固定的手机格式，银行账号(必须全为数字)，付费号码长度限制，手机号码格式、长度限制，Email格式限制等

　　其实异常策略是有通用性的，现总结如下：

　　1.exp@@SpecialChar(e_chr) 包含特殊字符，e_chr为指定的特殊字符

　　2.exp@@StringLenMax(e_len) 字符串超过最大长度，e_len为最大长度值

　　3.exp@@StringLenMin(e_len) 字符串不足最小长度，e_len为最小长度值

　　4.exp@@String 字符串包含数字(要求全字符)

　　5.exp@@Num 字符串包含字符(要求全数字)

　　6.exp@@NumMax(e_max) 输入超过指定最大值，e_max，最大值

　　6.exp@@NumMin(e_min) 输入不足指定最大值，e_mmin，最小值

　　7.exp@@NumLenMax(e_len) 数值长度超限，e_len，长度最大值

　　8.exp@@NumLenMin(e_len) 数值长度不足，e_len，长度最小值

　　9.exp@@StringPre(e_pre) 字符串不为指定前缀，e_pre，前缀值

　　10.exp@@NumPre(e_pre) 数值不使用指定前缀，e_pre，前缀值

　　11.exp@@Email 数值不为标准Email格式

　　12.exp@@Need 必输入项，提供空字符串

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

　　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

　　以上内容为大家介绍了自动化测试中的使用QTP检查页面中的基本异常，本文由多测师亲自撰写，希望对大家有所帮助。了解更多自动化测试相关知识：https://www.aichudan.com/xwzx/