03-18-2009, 07:38 PM
Actually, I created a test project in Expert View not using Record-Play. Its a wizard kind of application. Goes to page by page. Every page is handled by a function. For each page I have one VBS file. I want to make sure if a current page is successfully submitted and the next page is shown is the right page. For this I want to use some assert statement like a Checkpoint. But I dont know how to create a checkpoint in Expert View if I do not have an object in Keyword View.
Code:
Option Explicit
'*******************************************************
' Rating Inputs Page
' Farhan Alam On 06-Mar-2009
'*******************************************************
Code:
Code:
'Calling functions in Function Library
Do_AccountSearch
View_AccountFileSummary
Do_NewSubmission
Add_Coverables(COV_TYPE_DWELLING)
RatingInputs
Add_Coverages
Option Explicit
'*******************************************************
' Rating Inputs Page
' Farhan Alam On 06-Mar-2009
'*******************************************************
Code:
Function Add_RatingInputs
Dim frame
Set frame = Browser("PCB").Page("RI_Page").Frame("Button Frame")
frame.WebElement("Next").WaitProperty "visible",true, 100000
frame.WebElement("Next Button").Click
End Function