51Testing软件测试论坛

标题: QTP自动化测试-登录测试脚本 [打印本页]

作者: cherrytester 时间: 2016-6-12 11:19
标题: QTP自动化测试-登录测试脚本
本人最近在自学QTP自动化测试。根据QTP自带的测试登录例子编写了一个针对B/S应用的登录部分的测试脚本。以下是修改后的测试脚本。请大家多提宝贵的意见。谢谢！
Option Explicit

Dim url
url = "http://newtours.demoaut.com"

SystemUtil.Run "iexplore.exe",  url

Dim homeTitle
homeTitle = "Welcome: Mercury Tours"

Dim  excelUtil
Dim fileName,sheetName
Dim rowCount,rowNo
Dim userName,password,status

'读取Excel文件中的数据
fileName = "e:\login.xls"
sheetName="Global"
setExcelUtil excelUtil
rowCount = excelUtil.BuildRowHeading(fileName,sheetName)

For rowNo=0 To rowCount-1
  userName =  excelUtil.getCellData (rowNo,"Agent Name")
  password = excelUtil.getCellData (rowNo,"Password")
  status = excelUtil.getCellData (rowNo,"Status")

  With  Browser("title:="&homeTitle).Page("title:="&homeTitle)
   .WebEdit("name:=userName").Set userName
   .WebEdit("name:=password").Set password
   .Image("name:=login").Click
  End With

  If  Browser("title:=Sign-on: Mercury Tours").Exist(10) and status="Fail" Then
   Reporter.ReportEvent  micFail,"登录失败: ","登录失败，用户名:"&userName&",密码:"&password
   Browser("title:=Sign-on: Mercury Tours").Link("name:=Home").Click
  Elseif  Browser("title:=Find a Flight: Mercury Tours:").Exist(10)  and status="Pass" Then
   Reporter.ReportEvent PASS,"登录成功: ","成功"
   Browser("title:=Find a Flight: Mercury Tours:").Link("name:=Home").Click
  Else
   Reporter.ReportEvent Fail,"Login: ","Combination #  was not according to Excel file"
  End If

Next

作者: jingzizx 时间: 2016-6-12 15:59
感觉自动化思路是通用的，但是一般脚本都是要变得，
支持分享

作者: 茄子树上结苹果 时间: 2016-6-12 16:47
感觉好像惠普培训的内容

作者: cherrytester 时间: 2016-6-13 08:21

jingzizx 发表于 2016-6-12 15:59
感觉自动化思路是通用的，但是一般脚本都是要变得，
支持分享

非常感谢jingzizx的回复。感觉自动化测试的思路应该是一样的，只是在实现时使用的工具不同，脚本要发生相应的变化。
好的测试脚本的一个特征应该是可重用。对于任何一个web系统来说，登录应该是差不多的。测试脚本应该有很大的通用性。但是上面的脚本，感觉可用性较差（和被测系统绑定了），不知道怎么修改脚本，才能让它适用在不同的系统中。这些都是我个人的一些观点，不当之处，敬请指正。谢谢！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)