Flight Reservation Application Testing Examples using QTP (Quick Test Professional)

1. Record and PlayBack (Login to Flight Reservation ,Book one ticket ,Insert Order , Send Fax Order and close) systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" Dialog("Login").Activate Dialog("Login").WinEdit("Agent Name:").Set "venkatesh" Dialog("Login").WinEdit("Agent Name:").Type micTab Dialog("Login").WinEdit("Password:").SetSecure "4c639147ce17debfa9a680adf3fb0a1f7b766d39" Dialog("Login").WinButton("OK").Click Window("Flight Reservation").ActiveX("MaskEdBox").Type "081310" Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt" Window("Flight Reservation").WinComboBox("Fly To:").Select "London" Window("Flight Reservation").WinEdit("Name:").Set "venkat" Window("Flight Reservation").WinButton("FLIGHT").Click Window("Flight Reservation").Dialog("Flights Table").WinList("From").Activate "13536 FRA 08:00 AM LON 08:45 AM SR $163.00" Window("Flight Reservation").WinEdit("Name:").Set "venkat" Window("Flight Reservation").WinButton("Insert Order").Click Window("Flight Reservation").WinMenu("Menu").Select "File;Fax Order..." ' used regular expression at the below Fax Order.Rht Click on Dialog and make it Fax Order No.* .And check the regular expression Window("Flight Reservation").Dialog("Fax Order No. 12").ActiveX("MaskEdBox").Type "0809972129" Window("Flight Reservation").Dialog("Fax Order No. 12").WinCheckBox("Send Signature with order").Set "ON" Window("Flight Reservation").Dialog("Fax Order No. 12").WinButton("Send").Click Window("Flight Reservation").Close 2 Descriptive Programming (Login to Flight Reservation) systemutil.run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set "venkatesh" Dialog("text:=Login").WinEdit("attached text:=Password:").SetSecure "4c63941e33c84ad39b70103970c7fe0f8e429f0f" Dialog("text:=Login").WinButton("text:=OK").Click Window("text:=Flight Reservation").Close 3.Capture Screen Shot (using CaptureBitmap) Login failed at Flight Reservation Application SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" Dialog("Login").WinEdit("Agent Name:").Set "venkatesh" 'Desktop.CaptureBitmap "d:\login4.png" Dialog("Login").WinEdit("Password:").SetSecure "4c0616cda83a5c9f88633cdaff4c044c" Dialog("Login").WinButton("OK").Click

dialog("Login").Dialog("Flight Reservations").CaptureBitmap "d:\login.bmp" bexists=Dialog("Login").Dialog("Flight Reservations").Exist(2) If bexists Then smsg=Dialog("Login").Dialog("Flight Reservations").GetVisibleText reporter.ReportEvent micFail,"Login",smsg Dialog("Login").Dialog("Flight Reservations").WinButton("OK").Click Dialog("Login").WinButton("Cancel").Click exittest End If 4. Reusable Action (Flight Reservation Example) Action1: (Login with incorrect password and cacel) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","open" Dialog("Login").WinEdit("Agent Name:").Set "venkatesh" Dialog("Login").WinEdit("Password:").SetSecure "4c0616cda83a5c9f88633cdaff4c044c" Dialog("Login").WinButton("OK").Click bexists=Dialog("Login").Dialog("Flight Reservations").Exist(2) If bexists Then smsg=Dialog("Login").Dialog("Flight Reservations").GetVisibleText reporter.ReportEvent micFail,"Login",smsg Dialog("Login").Dialog("Flight Reservations").WinButton("OK").Click Dialog("Login").WinButton("Cancel").Click End If runaction "Action3",oneiteration Action2:
msgbox "welcome to action2"

Action3: (Reusable Action) used in Action1 : (Login with correct password) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","open" Dialog("Login").WinEdit("Agent Name:").Set "venkatesh" Dialog("Login").WinEdit("Password:").SetSecure "4c06513879e8c9aae96f878ebd40924cb403de52" Dialog("Login").WinEdit("Password:").Type micReturn Window("Flight Reservation").Close 5. Regular Expression and Parameterization (Login to Flight Reservation application, insert order and send fax information) (need to create fax_no in global sheet with fax numbers) ' Use of Regular Expressions and Parameterization ' Insert Order and Send Fax systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" Dialog("Login").Activate

Dialog("Login").WinEdit("Agent Name:").Set "venkatesh" Dialog("Login").WinEdit("Password:").SetSecure "4c63b0b0656069024c0d34dd2f5745a7b3780b8a" Dialog("Login").WinButton("OK").Click Window("Flight Reservation").ActiveX("MaskEdBox").Type "081410" Window("Flight Reservation").WinComboBox("Fly From:").Select "London" Window("Flight Reservation").WinComboBox("Fly To:").Select "Los Angeles" Window("Flight Reservation").WinButton("FLIGHT").Click Window("Flight Reservation").Dialog("Flights Table").WinList("From").Activate "19138 LON 08:00 AM LAX 08:45 AM AA $102.00" Window("Flight Reservation").WinEdit("Name:").Set "venky" Window("Flight Reservation").WinButton("Insert Order").Click Window("Flight Reservation").WinMenu("Menu").Select "File;Fax Order..." ' Rht click on the dialog below and make .* and check the regular expression Window("Flight Reservation").Dialog("Fax Order No. 21").ActiveX("MaskEdBox").Type DataTable("fax_no", dtGlobalSheet) Window("Flight Reservation").Dialog("Fax Order No. 21").WinButton("Send").Click Window("Flight Reservation").Close 6.Shared Object Repository a.(Record Login to Flight Reservation. Goto--Resouces--Object Repository(File--Export Local Objects).It will save as .tsr file) systemuti.run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" Dialog("Login").WinEdit("Agent Name:").Set "venkatesh" Dialog("Login").WinEdit("Password:").SetSecure "4c63bd987f7ea31db67d4ec3760e762a901d3161" Dialog("Login").WinButton("OK").Click Window("Flight Reservation").Close
How to use it : Goto--Resources--Associate Repositories--Browse the .tsr file and add it.We can't edit this shared O.R. b. Goto--Resources--Object Repository Manager--(Objects--Add Objects).File--Save As.It will save as .tsr file 7. How to use Library Functions a. addition.vbs Function add a=20 b=30 c=a+b msgbox "The addition of a and b is : "&c End Function b. multiplication.vbs Function mul a=4 b=5 c=a*b msgbox "The multiplication of a and b is :"&c end function (File--Settings--Resources--Browse files)

8.Give different keywords at google and search (used descriptive programming and parameterization) Set ie=createobject("internetexplorer.application") ie.navigate("http://www.google.co.in/") ie.visible=true Browser("title:=Google").Page("title:=Google").WebEdit("name:=q").Set DataTable("search_keywords",dtGlobalSheet) Browser("title:=Google").Page("title:=Google").WebButton("value:=Google Search").Click Browser("opentitle:=Google").Close

9.Store Results in Excel Set xl= CreateObject("Excel.application") set wb=xl.workbooks.open("d:/sample2.xls") Set ws=wb.worksheets(1) a=15 b=20 If a>b Then ws.Cells(1,1).Value ="a is bigger" ws.Cells(1,2).value="PASS" Reporter.ReportEvent micDone,"a is bigger", a Else ws.Cells(1,1).Value = "b is bigger" ws.Cells(1,2).value = "FAIL" ws.cells(1,2).font.bold=true ws.cells(1,2).font.size=12 ws.Cells(1,2).font.colorindex=50 Reporter.ReportEvent micFail ,"b is bigger" , b End If wb.save wb.close Set ws=nothing Set wb=nothing Set xl=nothing