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

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

软件测试工具QTP脚本例子汇总

发布: 2009-9-23 16:29 | 作者: 网络转载 | 来源: 领测软件测试网 | 查看: 573次 | 进入软件测试论坛讨论

领测软件测试网

 软件测试工具QTP脚本例子汇总

例一:

        以下语句指示 QuickTest 选中 Itinerary 网页上的所有复选框:

        Set MyDescrīption = Descrīption.Create()

        MyDescrīption("html tag").Value = "INPUT"

        MyDescrīption("type").Value = "checkbox"

        Set Checkboxes =

        Browser("Itinerary").Page("Itinerary").ChildObjects(MyDescrīption)

        NoOfChildObjs = Checkboxes.Count

        For Counter=0 to NoOfChildObjs-1

        Checkboxes(Counter).Set "ON"

        Next

        例二:(来自51testing)

        目标如下:

        1.

        [url=javascript:;][u][b]脚本[/b][/u][/url]

        需要处理成功和失败的用户的登陆

        2.

        数据驱动

        设计开发脚本如下:

        第一步录制脚本如下

        Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统

        4.0").WebEdit("txtLoginName").Set "吕巍"

        Browser("智能变电巡检仪系统

        4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""

        Browser("智能变电巡检仪系统

        4.0").Page("Page").Syn

        Browser("智能变电巡检仪系统 4.0").Close

        以上为录制的正确的用户名,下边录制错误的用户名

        Browser("智能变电巡检仪系统

        4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "xx"

        Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""

        出现错误提示“该用户不存在”

        第二步 增强脚本

        现在需要设计的是一套脚本驱动所有的测试数据,这样可以驱动所有的用例数据,qtp中提供了datatable。

        但是有数据驱动也要做一个事情就是如何处理错误的用户名和正确的用户名,如何结合起来呢?

        这里我把datatable看作存放测试用例的地方,里面放入测试数据,还放入测试的预期结果。这样我的设计已经出现雏形了。

        我把datatable设计为三列

        username  password

        status

        吕x

        xxx       xxxx

        该用户不存在

        第三列放入最后执行的结果,我设计的是空为成功登陆,如果有信息就用实际运行的结果和这一列对比.好了万事俱备只欠东风了

        修改脚本如下:

        Dim iStatus

        Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统

        4.0").WebEdit("txtLoginName").Set DataTable("username",

        dtLocalSheet)

        Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登

        录").set DataTable("password", dtLocalSheet)

        iStatus = DataTable("status",

        dtLocalSheet)

        If   iStatus=""  Then

        Browser("智能变电巡检仪系统 4.0").Close

        End If

        If   iStatus="该用户不存在"

        Then

             Reporter.ReportEvent micFail, "登陆", "登陆失败."

        End If

        Browser("智能变电巡检仪系统 4.0").Close

        第三步,设置脚本运行过程

        打开 tests-〉settings

        设置RUN TAB页面下 Datatable iterations中 Run On

        all rows

        这样就完成了整个脚本的设计

        [url=javascrīpt:;][u][b]工作[/b][/u][/url]

        ,以上通过一个简单

        [url=javascript:;][u][b]例子[/b][/u][/url]

        吧脚本的设计和软件的功能结合起来,达成脚本的设计效果。

延伸阅读

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

TAG: qtp QTP 工具 脚本 例子 软件测试


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

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