Scribd
Upload
382 views6 pages

QTP Web & App Testing Guide

The document provides code samples for performing various actions using QuickTest Professional (QTP), including: 1. Counting and classifying objects on the Google homepage and a flight reservation window. 2. Verifying the launching of an application and registration/login on a deals website. 3. Checking that the login link exists before logging in and the logout link exists after logging in on the deals website.

Uploaded by

Ashok Reddy
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
382 views6 pages

QTP Web & App Testing Guide

The document provides code samples for performing various actions using QuickTest Professional (QTP), including: 1. Counting and classifying objects on the Google homepage and a flight reservation window. 2. Verifying the launching of an application and registration/login on a deals website. 3. Checking that the login link exists before logging in and the logout link exists after logging in on the deals website.

Uploaded by

Ashok Reddy
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 6

www.gcreddy.

com Visit:

www.gcreddy.com
for QTP Information ----------------------------------------------------------------

Web Testing using QTP

---------------------------------------------------------------------------'Count Total Objects from Google Home Page and return Class wise Objects count Dim oObject, Objects Set oObject=Description.Create() Set Objects=Browser("title:=Google").Page("title:=Google").ChildObjects( oObject) TotObjects=Objects.Count Msgbox TotObjects Links=0 EditBoxes=0 WebElements=0 Buttons=0 Others=0 Images=0 For i= 0 to TotObjects-1 Step 1 myObject=Objects(i).GetRoProperty("micclass") 'Msgbox myObject If myObject= "Link" Then Links=Links+1 ElseIf myObject="WebEdit" Then EditBoxes=EditBoxes+1 ElseIf myObject="WebElement" Then WebElements=WebElements+1

www.gcreddy.com

www.gcreddy.com
ElseIf myObject="WebButton" Then Buttons=Buttons+1 ElseIf myObject="Image" Then Images=Images+1 Else Others=Others+1 End If Next Msgbox Msgbox Msgbox Msgbox Msgbox Msgbox "Total Links: "&Links "Total Buttons: "&Buttons "Total Elements: "&WebElements "Images: "&Images "Total Edit Boxes: "&EditBoxes "Others: "&Others

Msgbox Links+Buttons+WebElements+Images+EditBoxes+Others -------------------------------------------------------------------'Count Total Objects from Flight Reservation Window and return Class wise Objects count Dim oObject, Objects Set oObject=Description.Create() Set Objects=Window("text:=Flight Reservation").ChildObjects(oObject) TotObjects=Objects.Count Msgbox TotObjects EditBoxes=0 RadioButtons=0 Buttons=0 Others=0 ComboBoxes=0 ListBoxes=0 For i= 0 to TotObjects-1 Step 1 myObject=Objects(i).GetRoProperty("Class Name") 'Msgbox myObject If myObject= "WinList" Then ListBoxes=ListBoxes+1 ElseIf myObject="WinEdit" Then EditBoxes=EditBoxes+1

www.gcreddy.com

www.gcreddy.com
ElseIf myObject="WinRadioButton" Then RadioButtons=RadioButtons+1 ElseIf myObject="WinButton" Then Buttons=Buttons+1 ElseIf myObject="WinComboBox" Then ComboBoxes=ComboBoxes+1 Else Others=Others+1 End If Next Msgbox Msgbox Msgbox Msgbox Msgbox Msgbox "Total List Boxes: "&ListBoxes "Total Buttons: "&Buttons "Total RadioButtons: "&RadioButtons "ComboBoxes: "&ComboBoxes "Total Edit Boxes: "&EditBoxes "Others: "& Others

Msgbox ListBoxes+Buttons+RadioButtons+ComboBoxes+EditBoxes+Others -----------------------------------------------------------------------------Verify the Application Launching Operation SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "http://www.dealsdirect.com.au/" Wait 8 Browser_Name = Browser("Online Shopping | Australia").GetROProperty("title") If Browser_Name = "Online Shopping | Australia Online Shopping | Deals Direct" Then Result="Application Launched Successfully" Msgbox Result Else Result="Application Not Launched " Msgbox Result End If Method 2:

www.gcreddy.com

www.gcreddy.com
--------SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "http://www.dealsdirect.com.au/" If Browser("Online Shopping | Australia").Exist (10) Then Result="Application Launched Successfully" Msgbox Result Else Result="Application Not Launched " Msgbox Result End If 'Verify Customer Registration in www.dealsdirect.com.au Web Portal SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "http://www.dealsdirect.com.au/" Browser("Online Shopping | Australia").Page("Online Shopping | Australia").Link("Register").Click Browser("Online Shopping | Australia").Page("DealsDirect.com.au Secure").WebEdit("cEmail2").Set "[email protected]" Browser("Online Shopping | Australia").Page("DealsDirect.com.au Secure").WebEdit("cEmail3").Set "[email protected]" Browser("Online Shopping | Australia").Page("DealsDirect.com.au Secure").WebEdit("cPass2").SetSecure "4e6d76187221a6b2585d672f1be203f7ef777f20e255" Browser("Online Shopping | Australia").Page("DealsDirect.com.au Secure").Image("image-register-and-continue-bu").Click 204,19 If Browser("Online Shopping | Australia").Dialog("Security Alert").Exist(3) Then Browser("Online Shopping | Australia").Dialog("Security Alert").WinButton("Yes").Click End If Message = Browser("Online Shopping | Australia").Page("Your Shopping Cart - DealsDire").WebElement("Welcome Back").GetROProperty("innertext") If Message = "Welcome Back " Then Res="Customer Registerd Successfully" Msgbox Res Else

www.gcreddy.com

www.gcreddy.com
Res="Registration Failed" Msgbox Res End If

'Verify Login Operation in www.dealsdirect.com.au Web Portal SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "http://www.dealsdirect.com.au/" Browser("DealsDirect.com.au Secure").Page("DealsDirect.com.au Secure").Link("Login").Click Browser("DealsDirect.com.au Secure").Page("DealsDirect.com.au Secure_2").WebEdit("cEmail1").Set "[email protected]" Browser("DealsDirect.com.au Secure").Page("DealsDirect.com.au Secure_2").WebEdit("cPass1").SetSecure "4e6d78c21597a67d10442192132f29f589ade0eb9021" Browser("DealsDirect.com.au Secure").Page("DealsDirect.com.au Secure_2").Image("image-login-and-continue-butto").Click 151,17 'Browser("DealsDirect.com.au Secure").Dialog("AutoComplete").WinCheckBox("Don't offer to remember").Set "ON" 'Browser("DealsDirect.com.au Secure").Dialog("AutoComplete").WinButton("Yes").Click If Browser("DealsDirect.com.au Secure").Page("Online Shopping | Australia").Link("Logout").Exist(10) Then Res="Login Successful" Else Res ="Login Failed" End If Msgbox Res 'Verify Login and LogOut Links in www.dealsdirect.com.au Web Portal 'Before Login Login Link only Exists, After Login Logout Link only exists SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "http://www.dealsdirect.com.au/"

www.gcreddy.com

www.gcreddy.com
If Browser("DealsDirect.com.au Secure").Page("DealsDirect.com.au Secure").Link("Login").Exist Then If Not Browser("title:=DealsDirect.com.au Secure").Page("title:=DealsDirect.com.au Secure").Link("text:=Logout").Exist(5) Then Msgbox "Login Link Only Exists" End If End If Browser("DealsDirect.com.au Secure").Page("DealsDirect.com.au Secure").Link("Login").Click Browser("DealsDirect.com.au Secure").Page("DealsDirect.com.au Secure_2").WebEdit("cEmail1").Set "[email protected]" Browser("DealsDirect.com.au Secure").Page("DealsDirect.com.au Secure_2").WebEdit("cPass1").SetSecure "4e6d78c21597a67d10442192132f29f589ade0eb9021" Browser("DealsDirect.com.au Secure").Page("DealsDirect.com.au Secure_2").Image("image-login-and-continue-butto").Click 151,17 'Browser("DealsDirect.com.au Secure").Dialog("AutoComplete").WinCheckBox("Don't offer to remember").Set "ON" 'Browser("DealsDirect.com.au Secure").Dialog("AutoComplete").WinButton("Yes").Click If Browser("DealsDirect.com.au Secure").Page("Online Shopping | Australia").Link("Logout").Exist(10) Then If Not Browser("title:=DealsDirect.com.au Secure").Page("title:=Online Shopping | Australia").Link("text:=Login").Exist(10) Then Msgbox "Logout Link Only Exist" End If End If

www.gcreddy.com

You might also like