登录功能自动化测试

上一篇 / 下一篇 2013-01-05 16:02:07 / 个人分类：测试总结

最近学习QTP，自己根据公司的软件，写了登录功能的自动化测试。希望各位给予意见和建议！

脚本代码如下：

Dim hint

Dim hint_msg1

Browser("PollChief - Login").Page("PollChief - Login").WebEdit("txtUsername").Set Datatable("username",dtGlobalsheet)

Browser("PollChief - Login").Page("PollChief - Login").WebEdit("txtPassword").Set datatable("password",dtGlobalsheet)

Browser("PollChief - Login").Page("PollChief - Login").WebButton("Login").Click

hint=Datatable("hint",dtGlobalsheet)

If trim(hint="") Then

Browser("PollChief - Login").Page("Location Management System-").Frame("top").WebButton("Logout").CheckProperty "type","submit"

ExitTest

end if

hint_msg1=Browser("PollChief - Login").Page("PollChief - Login").WebElement("Please enter your Username").GetROProperty("innertext")

if trim(hint)=trim(hint_msg1) then

Reporter.ReportEvent micPass,"登录错误提示","提示语句正确！"

else

Reporter.ReportEvent micPass,"登录错误提示","提示语句错误！"

End If

Globaltable数据如下：

username password hint

admin 空 Please enter your Username and Password.

空 111111 Please enter your Username and Password.

asdgf 111111 You entered a wrong username or password. Please re-enter.

admin 111111