记录阿里巴巴QA架构组成长点滴。2008年关键词为效率,技术,影响力!QA/测试架构师定义:开发和设计测试框架测试库;纵横全局的考虑产品的功能,设计复杂的测试系统;负责研发某一项特定的测试技术;为公司考虑如何提高测试效率。领导公司测试技术的发展和测试策略上的方向,关注整个公司的测试部门的问题,前瞻性的考虑未来的版本的测试策略和技术。测试架构师计划/设计测试平台,关注着产品的测试过程,提供咨询服务,影响到公司内的测试机构测试社区,以及开发机构等,对产品各个方面施加深远而正确的影响,最终提高整体软件质量。

批量点击链接(去重)

上一篇 / 下一篇  2008-09-24 19:26:45 / 个人分类:自动化测试框架与实现

by jack

日前忽然有人问我,想把一个页面上的搜索结果链接都点一遍分别检查,这个脚本怎么写

想想这个需求很简单,就顺手用descrīption对象写了,以口碑网搜索结果为例,脚本如下:

SystemUtil.Run "http://bendi.koubei.com/search/searchlocal.html?option.key=%D1%C5%CA%CB%D4%B7&option.cityname=%BA%BC%D6%DD&searchFlag=1&city=2595"


Set ōDesc = Descrīption.Create()

oDesc("micclass").Value="Link"
oDesc("url").Value="http://hangzhou.koubei.com/store/detail--storeId-.*"

Set Lists = Browser("title:=雅虎口碑.*").Page("title:=雅虎口碑.*").ChildObjects(oDesc)
NumberOfLists = Lists.Count()

For i = 0 To NumberOfLists - 1 
  Lists(i).click
  ……
Next

点击的都是http://hangzhou.koubei.com/store/detail--storeId-这种格式的链接,也就是结果链接的统一格式

这里有个点要注意:descrīption对象默认就是支持正则表达式的,可以用正则表达式作为属性值

但是很快就反馈回来一个问题:页面上有重复的链接,这样实际是存在重复点击的;在结果比对时出现了点问题

想了想,就再加入了一段去重的处理,修改脚本如下:

 

SystemUtil.Run "http://bendi.koubei.com/search/searchlocal.html?option.key=%D1%C5%CA%CB%D4%B7&option.cityname=%BA%BC%D6%DD&searchFlag=1&city=2595"


Dim arrClickedLink()
ReDim Preserve arrClickedLink(0)

Set ōDesc = Descrīption.Create()

oDesc("micclass").Value="Link"
oDesc("url").Value="http://hangzhou.koubei.com/store/detail--storeId-.*"

Set Lists = Browser("title:=雅虎口碑.*").Page("title:=雅虎口碑.*").ChildObjects(oDesc)
NumberOfLists = Lists.Count()

For i = 0 To NumberOfLists - 1
    sCurrentLink = Lists(i).getroproperty("url")
 If not isClickedLink(sCurrentLink) Then
  Lists(i).click
  ……
 End If
Next

Function isClickedLink(url)

 iClickedLinkLen = ubound(arrClickedLink)

 For n=0 to iClickedLinkLen
  If url = arrClickedLink(n) Then
   isClickedLink = True
   Exit Function
  End If
 Next

 ReDim Preserve arrClickedLink(iClickedLinkLen+1)
 arrClickedLink(iClickedLinkLen+1) = url
 isClickedLink = False

End Function

 

 


TAG: qtp 链接 重复 自动化测试框架与实现

 

评分:0

我来说两句

日历

« 2024-03-22  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 152995
  • 日志数: 163
  • 文件数: 1
  • 建立时间: 2008-02-26
  • 更新时间: 2008-12-10

RSS订阅

Open Toolbar