Web测试

登录功能自动化测试

上一篇 / 下一篇  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






TAG: QTP 登录功能 自动化测试

 

评分:0

我来说两句

jing17

jing17

有梦想 有激情 ~@! 放飞无限青春 像鹰一样翱翔 ~#@

日历

« 2021-12-07  
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

  • 访问量: 10846
  • 日志数: 19
  • 建立时间: 2012-05-19
  • 更新时间: 2013-08-18

RSS订阅

Open Toolbar