For QTP Scripts & Documents Visit: www.gcreddy.

com

A Sample QTP Real-time Test Script

########################################################
########################################################
####################

'### Test Name: 2Step_1orMoreAcres_Attribute_145_100orMoreAcres

'# ## Created by: Sam Harris

'### Purpose: Verify the 145 Lot Size is 100 or More Acres atttribute in the 1 or More
Acres Scenario

'### Creation Date: 1/11/2010

'#######################################################
########################################################
##################### 
 

'=======================

'                   SETUP 

'======================= 
 

'_______________________________________________________________________
_____________________________________________________________ 

Dim objNet

Dim strInfo                           

'_______________________________________________________________________
_____________________________________________________________

'Set the initial value of the variables 

i=1

msgnum = 0

strFail = 1

strTestName = "2Step_1orMoreAcres_Attribute_145_100orMoreAcres"                          

'_______________________________________________________________________
_____________________________________________________________
For Software Testing Documents visit: ww.gcreddy.net 1
 For QTP Scripts & Documents Visit: www.gcreddy.com
'Function to open a brower and go to a specified URL 

Function OpenBrowser (browser, URL)

    systemUtil.Run browser, URL

End Function

'_______________________________________________________________________
_____________________________________________________________

'Get Computer Name 

set wshnetwork=createobject("wscript.network")

scomputername=wshnetwork.computername

set wshnetwork=nothing

strServ = scomputername

'msgbox strServ 

'_______________________________________________________________________
_____________________________________________________________

'Turn off the report filter  

CurrentMode = Reporter.Filter

Reporter.Filter = rfDisableAll

'_______________________________________________________________________
_____________________________________________________________

'Get username from the local box 

Set objNet = CreateObject("WScript.NetWork")

strInfo =  objNet.UserName

'msgbox strInfo

'_______________________________________________________________________
_____________________________________________________________

'Create a unique name for the results file each time the test is executed. 

For Software Testing Documents visit: ww.gcreddy.net 2

 For QTP Scripts & Documents Visit: www.gcreddy.com
mypath =
"\\taz02mon901\Mercury\QTP_Test_Results\2Step_1orMoreAcres_Attribute_145_100orMo
reAcres.html" 

      Call CreateFiles() 

'_______________________________________________________________________
_____________________________________________________________

' Set Excel File to be appenced 

strDataSheet = "\\taz02mon901\Mercury\Mercury_QTP_Test\Realtor\2-
Step\2STEP_ATTRIBUTES_FAILURE_LOG_QA.xls"

'_______________________________________________________________________
_____________________________________________________________

'Clear the cookies and temp files 

'Call  ClearCookies

'_______________________________________________________________________
_____________________________________________________________ 
 

'=======================

'                    MAIN   

'======================= 
 

'_______________________________________________________________________
_____________________________________________________________

'Database query 

' Connect to the Realtor database

Set dbconn = CreateObject("ADODB.Connection")

Set recordset = CreateObject("ADODB.recordset")

'MS SQL Server DSNless connection

'dbconn.Open("Driver={SQL Server};Server=TAZ02SQL832 ;Database=XProperty

;Uid=admin;Pwd=admin")

dbconn.Open("Driver={SQL Server};Server=TAZ02SQL832;Database=XProperty")

For Software Testing Documents visit: ww.gcreddy.net 3

 For QTP Scripts & Documents Visit: www.gcreddy.com
dbconn.commandTimeout = 300

' Specify the query

sql = "select top 1

l.listingid,l.postalcode,l.marketingtypeid,l.listingtypeid,l.bedrooms,l.bathrooms,l.listingsqft,
l.price,l.address,l.city,l.state,l.createdate,l.geoapproximation from xproperty.dbo.listing
(nolock) l join xproperty.dbo.LISTING_ATTRIBUTE (nolock) la1 on l.listingid = la1.listingid
left join xproperty.dbo.LISTING_ATTRIBUTE (nolock) la2 on l.listingid = la2.listingid and
la2.attributeid in (144,146,147,150,152,154,159,161,166) where l.status = 'a' and
l.agentid is not null and l.postalcode is not null and l.postalcode <> '' and l.country = 'usa'
and la1.attributeid = 145 and l.geoapproximation = 1 and l.DataSourceID not in (select
datasourceid from xproperty.dbo.DATA_SOURCE_ATTRIBUTE where attributeid in (27,31))
and la2.ListingID is null and l.createdate < getdate() - 2 order by l.createdate desc"

' Set the recordset cursor type

recordset.CursorType = 0

' Execute the query

recordset.Open sql, dbconn 

        listingid = recordset.Fields("listingid")&""

        listingid = Trim(listingid)'

        'msgbox listingid

        postalcode = recordset.Fields("postalcode")&""

        'msgbox postalcode

        marketingtypeid = recordset.Fields("marketingtypeid")&""

        'msgbox marketingtypeid

        listingtypeid = recordset.Fields("listingtypeid")&""

        'msgbox listingtypeid

        bedrooms = recordset.Fields("bedrooms")&""

        'msgbox bedrooms

        bathrooms = recordset.Fields("bathrooms")&""

        'msgbox bathrooms

        listingsqft = recordset.Fields("listingsqft")&""

For Software Testing Documents visit: ww.gcreddy.net 4
 For QTP Scripts & Documents Visit: www.gcreddy.com
        'msgbox listingsqft

        price = recordset.Fields("price")&""

        'msgbox price

        address = recordset.Fields("address")&""

        'msgbox address

        city = recordset.Fields("city")&""

        'msgbox city

        state = recordset.Fields("state")&""

        'msgbox state

        createdate = recordset.Fields("createdate")&""

        'msgbox createdate 

If bedrooms = "" Then

      'Do Nothing

            Else

                  If  bedrooms >5 Then

                        bedrooms = 5

                  End If

End If 

bathrooms = fix(bathrooms)

If bathrooms = "" Then

      'Do Nothing

            Else

                  If  bedrooms >5 Then

                        bedrooms = 5

                  End If

For Software Testing Documents visit: ww.gcreddy.net 5

 For QTP Scripts & Documents Visit: www.gcreddy.com
End If 

If  listingtypeid = 6 Then

      bedrooms = ""

      bathrooms = ""

End If

'_______________________________________________________________________
_____________________________________________________________

' Date and Start Time of the test run 

strDate = date

strStartTime = time

'_______________________________________________________________________
_____________________________________________________________

'Open a browser to the REALTOR.com homepage 

OpenBrowser "iexplore.exe", "http://qap.www.realtor.com/"

wait (3)

'_______________________________________________________________________
_____________________________________________________________

'Find the listing 

'Browser("Real Estate Listings,").WinEdit("Edit").Check CheckPoint("Edit_8")

Browser("Real Estate Listings,").Navigate ("http://qap.www.realtor.com/prop/"&listingid)

Browser("Real Estate Listings,").Sync

strView = "LDP"

'_______________________________________________________________________
_____________________________________________________________

'Check for the text office on the LDP 

'Browser("Real Estate Listings,_5").Page("2275 Youngman Ave

Unit:").WebElement("Property Information for").Check CheckPoint("Property Information
for 2275 Youngman Ave Unit: 108W Save Listing Property FeaturesCondo/Townhome/Row
Home/Co-OpStatus: Active Area: SP-Highland Area County: RAMSEYYear Built: 1980 1
For Software Testing Documents visit: ww.gcreddy.net 6
 For QTP Scripts & Documents Visit: www.gcreddy.com
total bedroom(s) 2 total bath(s) Approximately 1130 sq. ft.Style: High Rise (4+ Levels)
Office 1 car garage School District: St. Paul Exterior FeaturesHeated garage Listing
InformationRefreshed at 9:35 AM PT (19 days ago)Added on Jun 29, 2004 (1940 days
ago) To access this page directly, usehttp://qap.www.realtor.com/realestateandhomes-
detail/2275-Youngman-Ave-Unit-108W_St-Paul_MN_55116_1038274619 This listing is
brokered byEdina Realty, Inc.Office: (651)698-2434")

strPropInfo = Browser("Real Estate Listings,_5").Page("2275 Youngman Ave

Unit:").WebElement("Property Information for").GetROProperty("innertext")

'msgbox strPropInfo 

strGarageCheck = Instr(strPropInfo, "Lot size is 100 or more acres")

'msgbox strGarageCheck 

If  strGarageCheck <> 0 Then

      'msgbox "Pass"

            Else

                  'msgbox "Fail"

            strEndTime = time

                  Call AppendXL

                  msgnum = msgnum+1

                        Browser("Real Estate Listings,_5").Page("2275 Youngman Ave

Unit:").Sync

                        Browser("Real Estate Listings,_5").Close

                        Call SendMail

            ExitTest

End If

'_______________________________________________________________________
_____________________________________________________________

'Close the browser 

Browser("Real Estate Listings,_5").Page("2275 Youngman Ave Unit:").Sync

Browser("Real Estate Listings,_5").Close

For Software Testing Documents visit: ww.gcreddy.net 7

 For QTP Scripts & Documents Visit: www.gcreddy.com
'_______________________________________________________________________
_____________________________________________________________

'Open a browser to the REALTOR.com homepage 

OpenBrowser "iexplore.exe", "http://qap.www.realtor.com/"

wait (3)

'_______________________________________________________________________
____________________________________________________________ 

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebEdit("srchHomeLocation").Set postalcode

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebRadioGroup("ctl00$cphC$MainSearch$ccBuyRen").Select marketingtypeid 

Browser("Real Estate Listings,_5").Page("Real Estate Listings,").WebElement("More

Search Options").FireEvent "onmouseover"

Browser("Real Estate Listings,_5").Page("Real Estate Listings,").WebElement("More

Search Options").Click 

Browser("Real Estate Listings,_5").Page("Real Estate Listings,").WebEdit("tbMinPrice").Set

price

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebEdit("tbMaxPrice").Set price

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebList("ctl00$cphC$AdvancedSearchPage$_2").Select bedrooms&"+"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebList("ctl00$cphC$AdvancedSearchPage$_3").Select bathrooms&"+" 

If  marketingtypeid = 2 Then

'Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebElement("WebElement").FireEvent "onmouseover"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebRadioGroup("ctl00$cphC$AdvancedSearchPage$").FireEvent
"onmouseover"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebRadioGroup("ctl00$cphC$AdvancedSearchPage$").Select "2"

wait (3)

For Software Testing Documents visit: ww.gcreddy.net 8

 For QTP Scripts & Documents Visit: www.gcreddy.com
End If 

If listingtypeid = 1 Then

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$").Set "ON"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_2").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_4").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_5").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_6").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_7").Set "OFF"

ElseIf listingtypeid = 2 Then

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_2").Set "ON"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_4").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_5").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_6").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_7").Set "OFF"

ElseIf listingtypeid = 4 Then

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_2").Set "OFF"

For Software Testing Documents visit: ww.gcreddy.net 9

 For QTP Scripts & Documents Visit: www.gcreddy.com
Browser("Real Estate Listings,_5").Page("Real Estate
Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_4").Set "ON"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_5").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_6").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_7").Set "OFF"

ElseIf listingtypeid = 3 Then

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_2").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_4").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_5").Set "ON"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_6").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_7").Set "OFF"

ElseIf listingtypeid = 5 Then

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_2").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_4").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_5").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_6").Set "ON"

For Software Testing Documents visit: ww.gcreddy.net 10

 For QTP Scripts & Documents Visit: www.gcreddy.com
Browser("Real Estate Listings,_5").Page("Real Estate
Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_7").Set "OFF"

ElseIf listingtypeid = 6 Then

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_2").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_4").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_5").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_6").Set "OFF"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebCheckBox("ctl00$cphC$AdvancedSearchPage$_7").Set "ON"

End If 

Browser("Real Estate Listings,").Page("Real Estate Listings,_3").Link("Lot &

Community").FireEvent "onmouseover"

Browser("Real Estate Listings,").Page("Real Estate Listings,_3").Link("Lot &

Community").Click

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebList("ctl00$cphC$AdvancedSearchPage$_5").FireEvent "onmouseover"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebList("ctl00$cphC$AdvancedSearchPage$_5").Click

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebList("ctl00$cphC$AdvancedSearchPage$_5").Select "1 or More Acres"

Browser("Real Estate Listings,_5").Page("Real Estate Listings,").Link("Search").Click

Browser("Real Estate Listings,_5").Sync

'_______________________________________________________________________
____________________________________________________________

'Select Listview 

For Software Testing Documents visit: ww.gcreddy.net 11

 For QTP Scripts & Documents Visit: www.gcreddy.com
Browser("Real Estate Listings,_5").Page("55116 real estate &
55116").WebElement("WebElement_2").Click

strView = "List" 

Set odesc=description.Create()

odesc("micclass").value="WebElement"

odesc("html tag").value="DIV"

odesc("class").value="listingData"

Set childObjs= Browser("Real Estate Listings,").Page("55116 real estate &

55116").ChildObjects(odesc)

strResults = childObjs.count

'msgbox strResults 

If  strResults <> 0 Then

      Call Listcheck

            Else

                  strFail = 1

End If 

If strFail= 0 Then

      'Do Nothing

            Else

            strEndTime = time

                  Call AppendXL

                  msgnum = msgnum+1

End If

'_______________________________________________________________________
____________________________________________________________

'Select Galleryview 

For Software Testing Documents visit: ww.gcreddy.net 12

 For QTP Scripts & Documents Visit: www.gcreddy.com
Browser("Real Estate Listings,_5").Page("55116 real estate &
55116").WebElement("WebElement_4").Click

strView = "Gallery" 

Set odesc=description.Create()

odesc("micclass").value="WebElement"

odesc("html tag").value="DIV"

odesc("class").value="listingData"

Set childObjs= Browser("Real Estate Listings,").Page("55116 real estate &

55116").ChildObjects(odesc)

strResults = childObjs.count

'msgbox strResults 

If  strResults <> 0 Then

      Call Gallerycheck

            Else

                  strFail = 1

End If 

If strFail= 0 Then

      'Do Nothing

            Else

            strEndTime = time

                  Call AppendXL

                  msgnum = msgnum+1

End If

'_______________________________________________________________________
____________________________________________________________

'Select Mapview 

For Software Testing Documents visit: ww.gcreddy.net 13

 For QTP Scripts & Documents Visit: www.gcreddy.com
Browser("Real Estate Listings,").Page("55116 real estate &
55116").Image("REALTOR.com® - Official").Click

Browser("Real Estate Listings,").Sync 

Browser("Real Estate Listings,").Page("Real Estate Listings,_3").WebElement("More

Search Options").Click 

If  marketingtypeid = 2 Then

'Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebElement("WebElement").FireEvent "onmouseover"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebRadioGroup("ctl00$cphC$AdvancedSearchPage$").FireEvent
"onmouseover"

Browser("Real Estate Listings,_5").Page("Real Estate

Listings,").WebRadioGroup("ctl00$cphC$AdvancedSearchPage$").Select "2"

wait (3)

End If 

Browser("Real Estate Listings,").Page("Real Estate Listings,_3").Link("Display

Options").Click

Browser("Real Estate Listings,").Page("Real Estate

Listings,_3").WebRadioGroup("ccViewResults").Select "map"

Browser("Real Estate Listings,").Page("Real Estate Listings,_3").Link("Search").Click

Browser("Real Estate Listings,").Sync

wait (10)

strView = "Map" 

'Browser("Real Estate Listings,").Page("55116 real estate &

55116").WebElement("WebElement_3").Check CheckPoint("WebElement_2")

Set odesc=description.Create()

odesc("micclass").value="WebElement"

odesc("html tag").value="DIV"

odesc("class").value="listingData"

For Software Testing Documents visit: ww.gcreddy.net 14

 For QTP Scripts & Documents Visit: www.gcreddy.com
Set childObjs= Browser("Real Estate Listings,").Page("55116 real estate &
55116").ChildObjects(odesc)

strResults = childObjs.count

'msgbox strResults 

If  strResults <> 0 Then

      Call Mapcheck

            Else

                  strFail = 1

End If 

If strFail= 0 Then

      'Do Nothing

            Else

            strEndTime = time

                  Call AppendXL

                  msgnum = msgnum+1

End If

'_______________________________________________________________________
_____________________________________________________________

'Close the browser 

Browser("Real Estate Listings,_5").Page("2275 Youngman Ave Unit:").Sync

Browser("Real Estate Listings,_5").Close

'_______________________________________________________________________
_____________________________________________________________ 

               If msgnum = 0 Then

                         intRunStatusID = 1

                               else

For Software Testing Documents visit: ww.gcreddy.net 15

 For QTP Scripts & Documents Visit: www.gcreddy.com
                                    intRunStatusID = 0

                  End If

'_______________________________________________________________________
_____________________________________________________________

'Test Run End Time 

strEndTime = time

'_______________________________________________________________________
_____________________________________________________________  

'Call UpdateRun

'_______________________________________________________________________
_____________________________________________________________ 

'Determine which email sub to use based on Pass or Fail

If intRunStatusID = 1 Then

      Call SendMail

            else

                  Call SendMail

End If

For QTP Information:

www.gcreddy.com
For Manual Testing:

www.gcreddy.net

For Software Testing Documents visit: ww.gcreddy.net 16