• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

透析QTP自动化测试框架SAFFRON

发布: 2009-5-25 19:09 | 作者: 网络转载 | 来源: 测试时代采编 | 查看: 391次 | 进入软件测试论坛讨论

领测软件测试网

4.10选择列表中的一项

在SAFFRON中,可以使用SelectFromList函数从下拉框列表(WebList对象)中选择指定的一项。SelectFromList的定义如下所示:
     ' Selects a specific value from a listbox, or combobox
     ' objname - name of the control -- use Object Spy if you don't know the name property
     ' text    - the item in the combobox to select
     Public Function SelectFromList (objname, text)
      localDesc = ""
      rv = ""
      rval = false
      If thirdlevel <> "" Then
       localDesc = GenerateDescription(level(2))
      Else
       localDesc = GenerateDescription(level(1))
      End If
     
      AutoSync() 
     
      localDesc = localdesc & GenerateObjectDescription("WebList", "name:=" & objname)
     
      Execute "cnt = " & localDesc & "GetROProperty(" & Quote("items count") & ")"
      For i = 1 to cnt
       Execute "rv = " & localDesc & "GetItem (" & i & ")"
       If rv = text Then
        rval = true
       End If
      Next
     
      If rval Then
       Execute localDesc & "Select " & Quote(text)
      End If
      If rval Then
       Report micPass, "WebList Selection", "The WebList item " & Quote(text) & " was selected."
      Else
       Report micFail, "WebList Selection", "The WebList item " & Quote(text) & " was NOT found."
      End If
     
      SelectFromList = rval
     End Function

假设我们需要从如图所示的界面中的“Departure City”的下拉框中选择其中一项,则可使用SelectFromList函数来实现。

测试脚本可以这样写:
     ' 选择航班起始城市为"San Francisco"
     SelectFromList  "depart","San Francisco"

4.11 关闭浏览器

Web页面测试的最后一个步骤一般都是关闭浏览器,在SAFFRON中,也把这个过程封装成了一个名为“CloseBrowsers”的函数,该函数的定义如下:
     ' close all opened browsers
     Public Function CloseBrowsers
      If Browser("micclass:=Browser").Exist (0) Then
       Browser("micclass:=Browser").Close
      End If
      While Browser("micclass:=Browser", "index:=1").Exist (0)
       Browser("index:=1").Close
      Wend
      If Browser("micclass:=Browser").Exist (0) Then
       Browser("micclass:=Browser").Close
      End If
     End Function

CloseBrowsers函数会把当前所有打开的浏览器都关闭,脚本中采用描述性编程的方式获取所有对象类型为“Browser”的测试对象,然后循环逐个关闭所有这种类型的测试对象。

5、对SAFFRON框架进行扩展

SAFFRON是一个基本的框架,它封装了浏览器的相关测试操作、封装了一些基本对象的测试操作,例如Link、WebButton、WebEdit、WebList等控件,可用于基本的WEB页面的测试,并且简化了测试脚本的编写,可以让代码的可读性和可维护性得到增强。

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/

54/5<12345>

关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备2023014753号-2
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网