QTP - Descriptive Programming - Working with Any Web App

QTP - Descriptive Programming - Working with Any Web App

OneTestingCenter @ QTP @ Dynamic Descriptive Programming @ Any Web App Testing

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'Working with any app - Part 1

'Click on Link

'Set Text On Edit Box

'Click on Button 

‘ Select a list item

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oPage=Browser("name:=.*").Page("title:=.*")

AnyWebAppTesting oPage,"WebEdit","email","GAReddy"

AnyWebAppTesting oPage,"WebEdit","passwd","GAReddy"

AnyWebAppTesting oPage,"WebButton","Sign In",""

Function AnyWebAppTesting(oPage,ObjectType,ObjectName,TestData)

   Select Case ObjectType

   Case "WebEdit"

   Set oWebEdit=Description.Create()

   oWebEdit("micClass").value="WebEdit"

   oWebEdit("name").value=ObjectName

   oPage.WebEdit(oWebEdit).Set TestData

     Case "WebButton"

   Set oWebButton=Description.Create()

   oWebButton("micClass").value="WebButton"

   oWebButton("name").value=ObjectName

   oPage.WebButton(oWebButton).Click

     Case "Link"

   Set oLink=Description.Create()

   oLink("micClass").value="Link"

   oLink("name").value=ObjectName

   oPage.Link(oLink).Click

   End Select

End Function

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'Working with any app - Part 2

'Click

'Set Text

'Click on Button 

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Set oPage=Browser("name:=.*").Page("title:=.*")

SetTextOnEdit oPage,"login","OneTestingCenter"

SetTextOnEdit oPage,"passwd","OneTestingCenter"

ClickOnButton oPage,"Sign in"

Function SetTextOnEdit(oPage,ObjectName,TestData)

Set oWebEdit=Description.Create()

   oWebEdit("micClass").value="WebEdit"

   oWebEdit("name").value=ObjectName

   oPage.WebEdit(oWebEdit).Set TestData

End Function

Function ClickOnButton(oPage,ObjectName)

Set oWebButton=Description.Create()

   oWebButton("micClass").value="WebButton"

   oWebButton("name").value=ObjectName

   oPage.WebButton(oWebButton).Click

End Function

Function ClickOnLink(oPage,ObjectName)

Set oLink=Description.Create()

   oLink("micClass").value="Link"

   oLink("name").value=ObjectName

   oPage.Link(oLink).Click

End Function

 

Posted in: QTP - Descriptive Programming - Working with Any Web App