qtp flight登录描述性编程.doc

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