关闭

TC中等待测试对象的问题

发表于:2008-5-30 15:01

字体: | 上一篇 | 下一篇 | 我要投稿

 作者:陈能技    来源:陈能技的博客

#
TC

  在编写自动化测试脚本时,等待测试对象出现,然后针对该测试对象执行相关的操作,是一个常见的脚本设计问题。在TC中,有如下几种方法:

(1)Web页面的等待。
  在QTP中,可以使用Browser().page().sync 的方法来等待某个页面完成加载,而在TC中,可使用Page.ToUrl、Page.Wait 或 WaitPage 等方法,例如下面的例子用于等到指定URL地址所指的页面加载完成并出现指定的页面元素:
' Obtain the Page object
' We assume that the browser window belongs to the IExplore process, not Explorer
Set p1 = Sys.Process("iexplore")
Set w1 = p1.Window("IEFrame", "*", 1).Window("Shell DocObject View", "", 1).Window("Internet Explorer_Server", "", 1)
Set Pg = w1.Page("*")

' Opening the page
Pg.ToUrl "my url"

' Waiting for frames
waitFrm = true
While waitFrm
  For i = 0 To Pg.document.frames.ChildCount - 1
    Set Frame = Pg.document.frames.Child(i)
    If Frame.Exists Then
      waitFrm = waitFrm And (Frame.readyStateValue <> 4)
    End If
  Next
    
  If waitFrm Then
    BuiltIn.Delay(100)
  End If
WEnd
...

(2)等待进程。
  等待某个进程出现,可使用WaitProcess方法,例如下面的例子:
Set p = Sys.WaitProcess("winword", 2000)
If p.Exists Then' if the process exists ...
...

(3)等待窗口。
  等待窗口创建完毕,可以使用WaitWindow方法,例如下面的例子:
Set p = Sys.Process("Notepad")
' Waits 10 seconds for the window
Set w = p.WaitWindow("*", "Open*", -1, 10000)
If w.Exists Then
  w.Activate
  Log.Picture w, "Open dialog picture"
Else
  Log.Warning "Incorrect window"
End If

(4)等待对象属性。
  等待某个对象的属性等于指定的状态值,可使用WaitProperty方法,例如下面的例子:
Set btn = Sys.Process("MyApp").Window("TMainFrm","MyApplication *").Child(2)
If btn.WaitProperty("Enabled", True, 2000) Then
  ' Button is enabled
Else
  ' Button is disabled
WEnd

(5)等待某个儿子对象的出现。
  等待测试对象下的某个儿子对象的出现可用WaitChild方法,例如下面的例子:
If Obj.WaitChild(ChildObjectName, 0).Exists Then
  ' Child object exists
Else
  ' There is no such a child
End If

 

《2023软件测试行业现状调查报告》独家发布~

关注51Testing

联系我们

快捷面板 站点地图 联系我们 广告服务 关于我们 站长统计 发展历程

法律顾问:上海兰迪律师事务所 项棋律师
版权所有 上海博为峰软件技术股份有限公司 Copyright©51testing.com 2003-2024
投诉及意见反馈:webmaster@51testing.com; 业务联系:service@51testing.com 021-64471599-8017

沪ICP备05003035号

沪公网安备 31010102002173号