QTP 的学习1023
上一篇 /
下一篇 2009-10-23 11:35:10
Reporter.ReportEvent使用
Reporter.ReportEvent 有四个参数
第一个参数是状态,状态有四种 micPass 通过
micFail 失败
micDone 完成
micWarning 警告
第二个参数是步骤名称
第三个参数是内容描述
第四个参数可有可无 我也没有用过第四个参数呵呵
Msgbox "XXXXXXX"
print "XXXXXXX"
分页功能的测试:
With Browser("Browser").Page("Building List")
If .Link("class:=nextpage").Exist(2) Then
print "next page exists!"
' Reporter.ReportEvent micpass, "next page exists!","Next"
'else
End If
.Link("class:=nextpage").Click
.Sync
wait 2
If .Link("class:=prepage").Exist(2) Then
'Reporter.ReportEvent micpass , "pre page exists!","Pre"
print "next page exists!"
'Else
End If
End With
分页功能测试2
Public Sub Pagination ()
Reporter.ReportEvent micDone ,"调用 Pagination ()","Start"
intTotal_Page=Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).WebElement("html id:=total_page").GetROProperty("innertext")
msgbox intTotal_Page
intCur_Page=Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).WebElement("html id:=cur_page").GetROProperty("innertext")
msgbox intCur_Page
If (intTotal_Page=0and intCur_Page=0)or (intTotal_Page=1and intCur_Page=1) Then
Reporter.ReportEvent micpass ,"分页","没有分页"
End If
if (intCur_Page<intTotal_Page) then
Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).Image("file name:=pages_go.gif").Click
end if
If (intTotal_Page= intCur_Page) then
Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).Image("file name:=pages_back.gif").Click
end if
Reporter.ReportEvent micDone ,"调用 Pagination ()","End"
End Sub
收藏
举报
TAG: