二维数组在QTP中的应用--用户名密码检测

上一篇 / 下一篇  2010-12-10 09:57:47 / 个人分类:QTP学习

'QTP自带售票系统
Dim shuzu(4,2),i
''定义一个数组,数组的第一个值由用例数量决定,这里的4代表5个用例,数组是从0开始计算的,数组的第二''个数由输入的条件以及预计结果构成。
''这里是登录为例子我们需要输入用户名,密码,并得到一个预期的结果。我们有至少5种组合——
''用户名正确,密码错误。相关报错信息。
''用户名错误,密码正确。相关报错信息。
''用户名为空,密码正确。相关报错信息。
''用户名正确,密码为空。相关报错信息。
''用户名为空,密码为空。相关报错信息。
''那么我们至少有5个类似于上面的用例。
shuzu(0,0)="admin"
shuzu(0,1)="testpsd"
shuzu(0,2)="Incorrect password. Please try again"

shuzu(1,0)="asd"
shuzu(1,1)="mercury"
shuzu(1,2)="Agent name must be at least 4 characters long."

shuzu(2,0)=""
shuzu(2,1)="mercury"
shuzu(2,2)="Please enter agent name"

shuzu(3,0)="admin"
shuzu(3,1)=""
shuzu(3,2)="Please enter password"

shuzu(4,0)=""
shuzu(4,1)=""
shuzu(4,2)="Please enter agent name"
For i = 0 To 4 Step 1

Dialog("Login").WinEdit("Agent Name:").Set shuzu(i,0)
Dialog("Login").WinEdit("Password:").SetSecure shuzu(i,1)
Dialog("Login").WinButton("OK").Click

shijishuchu = Dialog("Login").Dialog("Flight Reservations").Static("Incorrect password. Please").GetROProperty("text")
yujishuchu = shuzu(i,2)

If shijishuchu=yujishuchu Then
Reporter.ReportEvent micPass,"结果比较","实际输出:"&shijishuchu&",预计输出:"&yujishuchu
else
Reporter.ReportEvent micFail,"结果比较","实际输出:"&shijishuchu&",预计输出:"&yujishuchu
End If

Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click

Next

TAG:

Live for Fighting 引用 删除 fly_away   /   2010-12-13 13:46:10
想法不错。不过,维护的时候需要改源代码,如果组合种类较多时(比如20种,200种……@_@!)。可以考虑把测试数据从QTP代码中分离出来.
 

评分:0

我来说两句

Open Toolbar