Checkpoints in Expert View

[farhanalam]

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:

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