发一个我写的测试QTP自带例子的脚本

fpbaggio

小弟初学QTP，斗胆发一下自己刚写的测试QTP自带订票例子的测试脚本
主要是测试登陆是否正确

Reporter.ReportEvent micDone, "Login", "开始登陆操作"
Dialog("Login").Activate
Dialog("Login").Check CheckPoint("Login")
'RunAction "Action_help", oneIteration
Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserID", dtGlobalSheet)
Dialog("Login").WinEdit("Password:").SetSecure DataTable("Password", dtGlobalSheet)
Dialog("Login").WinButton("OK").Click
If  Dialog("Login").Dialog("Flight Reservations").Exist Then
        Dialog("Login").Dialog("Flight Reservations").Activate
        Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
        Reporter.ReportEvent micDone, "Login", "登陆失败"
        Dialog("Login").Activate
        Dialog("Login").Close
else
         Reporter.ReportEvent micDone, "Login", "完成登陆操作"
        If Window("Flight Reservation").Exist  Then
                 Window("Flight Reservation").Activate
                 Window("Flight Reservation").Close
                Reporter.ReportEvent micDone, "Login", "退出"
        End If
End If




希望可以得到各位高手的指导

rcpp

脚本应该是没什么问题
但是如果你要测试“登录”功能
这个用例仅能测正确的用户名和正确的密码是否能够登录
逻辑上还缺少登录错误的情况：用户名不存在，密码错误
另外日志登录成功失败都是done状态，文字区分用例的结束状态不明显

fpbaggio

登陆错误的情况：用户名不存在，密码错误
这些我考虑过，想写个函数，来用返回值得到错误信息


另外日志登录成功失败都是done状态，文字区分用例的结束状态不明显

这点不太清楚，望指教

rcpp

要有针对性的设计用例，比如：
用户名 密码 预期结果
正确 正确 登录成功
不存在 无所谓 用户名不存在
正确 错误 密码错误

这样来设计就不会有遗漏了，最好是datatable三行数据，预期结果也放入
日志里成功用micPass，失败用micFail

fpbaggio

恩
好的
一会我去改一下