QTP飞机订票系统描述性编程
本文主要是针对登录模块进行操作，
●测试数据
针对登录模块的输入条件：用户名和密码，有以下几种情况：
1.当用户什么也没输入，直接点OK按钮，是否提示请输入用户名；
2.当用户输入正确的用户名，没输入密码，直接点击OK按钮，是否提示请
输入密码；
3.对密码进行验证看是否设置输入密码的长度；
4.当输入正确的用户名和密码时，点击ＯＫ按钮是否进入操作界面；
对登陆模块进行测试时，尽可能全面的测试登陆功能的正常和异常情况：只
要用户名大于或等于4个字符，密码是“mercury”，即可登陆。为了测试异常登
陆，准备了异常登陆的测试数据，系统会弹出如下表（2-1-1）所示的提示信息。
测试用例
根据测试数据的分析进行测试用例的设计
根据登录是否成功进行等价类划分
测试对象
Agent Name:
Agent Name:
Password:
Password:
测试数据
大于等于四个字符
小于四个字符
mercury
非mercury
有效类
T
F
T
F
无效类
F
T
F
T
根据登录失败弹出消息框进行边界值分析
测试对象
Agent Name:
Agent Name:
Password:
Password:
测试数据
大于等于4个字符
小于4个字符
大于于等于4个字符
小于4个字符
消息框内容
T
F
T
F
得出如下的用例
测试数据
用户名
空
空
空
as
as
as
密码
空
错误
Mercury
应用程序弹出的异常提示
空
Mercury
错误
mercury空
Mercury 123
正常登陆，启动Flight Reservation应用程序
mercury错误
mercury mercury
测试用例如下：
ID 输入条件
用户名 密码
001
002
003
004
005
006
007
008
009
010
空
空
空
1
123
123
1234
1234
1234
1234
空
asdff
mercury
空
Adder
Mercury
空
1
Merc
Mercury
预期输出
提示：输入用户名
提示：输入用户名
提示：输入用户名
提示：用户名长度少于4位
提示：用户名长度少于4位
提示：用户名长度少于4位
提示：输入密码
提示：密码长度少于4位
提示：密码错误
登录成功
虽然用例是最完整的，发现会有些冗余
归结为：
ID 输入条件
用户名 密码
001
002
003
004
005
006
预期输出
空
123
1234
1234
1234
1234
空
1
空
1
Merc
Mercury
提示：输入用户名
提示：用户名长度少于4位
提示：输入密码
提示：密码长度少于4位
提示：密码错误
登录成功， WindowFlight Reservation
开始编码：
Dim url
url="C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"
If Dialog("text:=Login").Exist(1) Then
OptionalStep.Dialog("text:=Login").WinEdit("attached
DataTable("UserName", dtGlobalSheet)
OptionalStep.Dialog("text:=Login").WinEdit("attached
DataTable("Passwd",dtGlobalSheet)
text:=Password:").set
text:=Agent Name:").Set
OptionalStep.Dialog("text:=Login").WinButton("regexpwndtitle:=OK").Click
else
''如果QTP不能自己打开被测试程序就使用该功能打开
SystemUtil.Run url
OptionalStep.Dialog("text:=Login").WinEdit("attached
DataTable("UserName", dtGlobalSheet)
OptionalStep.Dialog("text:=Login").WinEdit("attached
DataTable("Passwd", dtGlobalSheet)
OptionalStep.Dialog("text:=Login").WinButton("regexpwndtitle:=OK").Click
End If
''检查点
If Dialog("text:=Login").Dialog("text:=Flight Reservations").Exist(2)Then
Dim Errorinfor,oDesc
Set oDesc=Description.Create
oDesc("text").Value=DataTable("Hint",dtGlobalSheet)
Errorinfor=Dialog("text:=Login").Dialog("text:=Flight
Reservations").Static(oDesc).GetROProperty("text")
Dialog("text:=Login").Dialog("text:=Flight Reservations").WinButton("text:=确定").Click
''学习一下Reporter方法的用法
Reporter.ReportEvent micDone, "登陆验证失败，提示信息如下",Errorinfor
OptionalStep.Dialog("text:=Login").Close
text:=Agent Name:").Set
text:=Password:").Set
else
''如果用户名和密码正确就进入订票页面
If Window("text:=Flight Reservation").Exist (10) Then
Reporter.ReportEvent micPass, "登录验证通过","用户名密码正确"
Window("text:=Flight Reservation").close
Set oDesc=Nothing
End If
End If
参数化：
|
|
