飞机订票系统登录测试脚本

Dim url
url="C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4b.exe"

If Dialog("Login").Exist(1) Then

OptionalStep.Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserName", dtGlobalSheet)
OptionalStep.Dialog("Login").WinEdit("Password:").Set DataTable("Passwd", dtGlobalSheet)
OptionalStep.Dialog("Login").WinButton("OK").Click

else
'如果QTP不能自己打开被测试程序就使用该功能打开
SystemUtil.Run url
OptionalStep.Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserName", dtGlobalSheet)
OptionalStep.Dialog("Login").WinEdit("Password:").Set DataTable("Passwd", dtGlobalSheet)
OptionalStep.Dialog("Login").WinButton("OK").Click

End If

'检查点

If Dialog("Login").Dialog("Flight Reservations").Exist(2)Then

Dim Errorinfor

'对错误提示信息做一个检查点,并根据实际情况进行参数化

Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").Check CheckPoint("Agent name must be at")

Errorinfor=Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").GetROProperty("text")

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


'学习一下Reporter方法的用法

Reporter.ReportEvent micPass, "用户名验证通过,提示信息如下",Errorinfor

OptionalStep.Dialog("Login").Close

else

'如果用户名和密码正确就进入订票页面

If Window("Flight Reservation").Exist (2) Then

Reporter.ReportEvent micPass, "登录验证通过","用户名密码正确"

Window("Flight Reservation").close

End If

End If

参数化内容
飞机订票系统登录测试脚本

你可能感兴趣的:(脚本)