51Testing软件测试论坛

标题: QTP检测页面所有链接是否包括“HTTP Status500-” [打印本页]

作者: Raymondzfy 时间: 2009-11-22 16:25
标题: QTP检测页面所有链接是否包括“HTTP Status500-”
功能说明：登录系统后，检查noTestLink以外所有链接是否可能正常打开，主要是通过判断所打开页面是否包含“HTTP Status500-”，如果页面包含“HTTP Status500-”，表示页面打开失败，通过Report函数将结果输出到Excel中

Browser("直放站综合网管系统").Page("直放站综合网管系统").WebButton("登录").Click
'不需要检查的链接
noTestLink="注销,添加网元,修改网元,网元删除,网元详细信息,性能详细信息,系统管理,系统监控,配置管理,轮询管理,故障管理,拓扑管理,工单管理,报表管理,代维管理,日志管理,系统帮助,定时任务管理,轮询成功率统计,告警前转管理,短信发送平台,上报报表"

Dim pageCount,frameCount,webElementCount
Dim linkIndex,frameIndex

Set linkObj=Description.Create()
Set frameObj=Description.Create()
Set webElementObj=Description.Create()

linkObj("micclass").value="Link"
frameObj("micclass").value="Frame"
webElementObj("micclass").value="WebElement"

Set all_link=Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002").ChildObjects(linkObj)
linkCount=all_link.Count()

For linkIndex = 0 To linkCount -1
link_text=all_link(linkIndex).GetROProperty("text")
If 0=instr(1,noTestLink,link_text,1) Then
Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002").Link("text:="&link_text).Click
Set all_frame=Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002").ChildObjects(frameObj)
frameCount=all_frame.Count()
frameName=all_frame(frameCount-1).GetROProperty("name")

isOpen=Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002_4").Frame("name:="&frameName)WebElement("name:=HTTP Status 500 -").Exist(5)

If false=isOpen Then
Report link_text,"PASS",link_text&"打开成功"
else
Report link_text,"FAIL",link_text&"打开失败"
End If
Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002_2").Image("关闭").Click
End If
Next

结果代码运行到isOpen=Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002_4").Frame("name:="&frameName)WebElement("name:=HTTP Status 500 -").Exist(5)时，isOpen的值始终为false，对于真正打不开的页面，在报告中也显示打开成功，请教高手如何处理啊？有没有其他办法解决呢？

作者: yawenhui 时间: 2009-11-23 11:20
isOpen=Browser("直放站综合网管系统").Page("直放站综合网管系统V5.3.02.0002_4").Frame("name:="&frameName)WebElement("name:=HTTP Status 500 -").Exist(5)
中

Frame("name:="&frameName)WebElement应为“”Frame("name:="&frameName).WebElement ;
If false=isOpen Then
                     Report link_text,"PASS",link_text&"打开成功"
            else
                     Report link_text,"FAIL",link_text&"打开失败"
            End If 的条件句写反了吧

作者: deting 时间: 2009-11-23 11:30
If false=isOpen Then
=> If isOpen Then

作者: Raymondzfy 时间: 2009-11-23 22:01
问题已经解决了，通过Text checkpoint就可以了

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