【软件自动化测试-QTP实战技能 14】== 自动化测试思想之QTP登录脚本

本文为小孩原创,转载请注明出处:http://www.51testing.com/?117535

遇到过很多测试界的朋友,做了几年手工测试现在想转过来做自动化测试,
可是无从下手,比如一个登录的测试脚本,都搞得不知所措,老觉得自动化
跟手工的区别很大,其实非也,什么是自动化,自动化测试只不过是使用工具或脚本
代替我们对被测系统操作,然后通过工具的检查点或是通过我们自己编写的比较语句
来验证系统输出的实际结果预期结果是不是一致得。
接下来我们就来看这个脚本,希望大家从脚本中能得到一些体会,如果有疑问可以给我留言

'***********************************************************************************
'                       脚本说明:登录测试脚本
'                       编 写 者:小孩
'                       编写时间:2008/09/03
'                       修 改 者:
'                       修改时间:
'                       修改内容:
'***********************************************************************************

Option explicit
on error resume next

Dimoie
Setōie=CreateObject("InternetExplorer.Application")      '创建IE 对象
oie.Visible=true                                          'IE 显示模式是显示的(False)
oie.Navigate"http://www.poco.cn"                         '打开www.poco.cn网站
Browser("POCO首页").Page("POCO首页").Sync
Browser("POCO首页").Page("POCO首页").Image("selector_icon").Click
IfDataTable("Accounts_Type",dtGlobalsheet)="用户名"Then'判断输入的数据是用户名还是POCOID
    Browser("POCO首页").Page("POCO首页").Link("用户名").Click
 else
    Browser("POCO首页").Page("POCO首页").Link("POCO号码").Click
End If
Browser("POCO首页").Page("POCO首页").WebEdit("UserName").SetDataTable("username",dtGlobalsheet) '输入用户名或POCOID
Browser("POCO首页").Page("POCO首页").WebEdit("PassWord").SetSecure DataTable("password",dtGlobalsheet) '输入密码
Browser("POCO首页").Page("POCO首页").Image("login_0418").Click 26,13 '点击登陆按钮
IfBrowser("POCO首页").Dialog("msgbox").Exist (3)Then'用3秒判断提示对话是否存在,也可以作为系统的一个标准,如果是异常登陆3秒种不出现提示对话框属于的BUG的话这个也可以覆盖到了这点
   DataTable("Actual_Result",dtGlobalsheet)=Browser("POCO首页").Dialog("msgbox").Static("info").GetROProperty("text") '获得提示对话框里面的内容
  IfDataTable("Expect_Result",dtGlobalsheet)=DataTable("Actual_Result",dtGlobalsheet)Then'判断预期结果和实际结果是否一致
      Reporter.ReportEvent micPass,"异常登记","预期结果"& DataTable("Expect_Result",dtGlobalsheet)_  
  &"实际结果"& DataTable("Actual_Result",dtGlobalsheet)                                                                                             '输出异常登录pass报告
  else
  Reporter.ReportEvent micFail,"异常登陆","预期结果"& DataTable("Expect_Result",dtGlobalsheet)_    
   &"实际结果"& DataTable("Actual_Result",dtGlobalsheet)                                                                                             '输出异常登录fail报告
 End If
 Browser("POCO首页").Dialog("msgbox").WinButton("确定").Click                                                                       '点击提示对话框的确定按钮
 oie.Quit                                                                                                                                                                                      '  退出IE
 Setōie=nothing                                                                                                                                                                     '释放资源 
 ExitTestIteration                                                                                                                                                                     '跳出本次运行
End If
 DataTable("Actual_Result",dtGlobalsheet)=Browser("POCO首页").Page("个人空间").Link("个人域名").GetROProperty("text")      '捕获实际结果
 If  DataTable("Expect_Result",dtGlobalsheet)=DataTable("Actual_Result",dtGlobalsheet)Then' 判断预期结果和实际结果是否一致
  Reporter.ReportEvent micPass,"正常登陆","预期结果"& DataTable("Expect_Result",dtGlobalsheet)_ 
   &"实际结果"&DataTable("Actual_Result",dtGlobalsheet)                                                                                          '输出正常登录pass报告
 else
  Reporter.ReportEvent micFail,"正常登陆","预期结果"& DataTable("Expect_Result",dtGlobalsheet)_   
  &"实际结果"& DataTable("Actual_Result",dtGlobalsheet)                                                                                            ' 输出异常登录FAIL报告
 oie.Quit                                                                                                                                                                              '退出IE
    Setōie=nothing                                                                                                                                                           '释放资源  
    ExitTestIteration                                                                                                                                                            '跳出本次运行
 End If

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值