QTP Scripting
WWW.gcreddy.com
Web Scripts
1) Count all opened Browsers on desktop and close them all? Set oDesc = Description.Create() oDesc("micclass").Value = "Browser" Set Browsers =Desktop.ChildObjects (oDesc) NumberofBrowsers = Browsers.Count() Reporter.ReportEvent 2,"Res","Number of Browsers are: "&NumberOfBrowsers For Counter=0 to NumberofBrowsers-1 Browsers(Counter).Close Next 2) Count, how many links available in Mercury Tours Home Page. Set oDesc = Description.Create() oDesc("micclass").Value = "Link" Set Lists = Browser("Welcome: Mercury").Page("Welcome: Mercury").ChildObjects (oDesc) NumberOfLinks = Lists.Count() Reporter.ReportEvent 2,"Res","Number of Links are: "&NumberOfLinks
Excel Scripts
1) Create an Excel file, enter some data and save the file through VB scripting? 1) Dim objexcel 2) Set objExcel = createobject("Excel.application") 3) objexcel.Visible = True 4) objexcel.Workbooks.add 5) objexcel.Cells(1, 1).Value = "Testing" 6) objexcel.ActiveWorkbook.SaveAs("f:\exceltest.xls") 7) objexcel.Quit 2) Data Driven Testing through an External Excel Sheet 1) Set myExcel=Createobject("Excel.Application") 2) Set myFile=myExcel.workbooks.open ("C:\Documents and Settings\admin\My Documents\gcreddy.xls") 3) Set mySheet=myFile.worksheets("Sheet1") 4) Rows_Count=mySheet.usedrange.rows.count 5) For i= 1 to Rows_Count 6) Agent=mySheet.cells(i,"A") 7) pwd=mySheet.Cells(i,"B") 8) 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" 9) Dialog("Login").Activate 10) Dialog("Login").WinEdit("Agent Name:").Set Agent 11) Dialog("Login").WinEdit("Password:").SetSecure pwd 12) Dialog("Login").WinEdit("Password:").Type micReturn 13) Window("Flight Reservation").Close 14) Next 3) Compare two excel files Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook1= objExcel.Workbooks.Open("E:\gcreddy1.xls") Set objWorkbook2= objExcel.Workbooks.Open("E:\gcreddy2.xls") Set objWorksheet1= objWorkbook1.Worksheets(1) Set objWorksheet2= objWorkbook2.Worksheets(1) For Each cell In objWorksheet1.UsedRange If cell.Value <> objWorksheet2.Range(cell.Address).Value Then msgbox "value is different" Else msgbox "value is same" End If Next objWorkbook1.close objWorkbook2.close objExcel.quit set objExcel=nothing 4) Data Driven Testing using Data Table methods Datatable.AddSheet "gcreddy" Datatable.ImportSheet "C:\Documents and Settings\Administrator\Desktop\gcreddy.xls",1,3 n=datatable.GetSheet (3).GetRowCount For i= 1 to n Datatable.SetCurrentRow(i) Invokeapplication "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe" Dialog("Login").Activate Dialog("Login").WinEdit("Agent Name:").Set datatable("agent",3) Dialog("Login").WinEdit("Password:").Set datatable("pwd",3) Dialog("Login").WinButton("OK").Click Window("Flight Reservation").Close Next Example 2): Datatable.AddSheet "gcreddy" Datatable.ImportSheet "C:\Documents and Settings\Administrator\Desktop\gcreddy.xls",1,3 n=datatable.GetSheet (3).GetRowCount For i= 1 to n Datatable.SetCurrentRow(i) VbWindow("Form1").Activate VbWindow("Form1").VbEdit("val1").Set datatable("V1",3) VbWindow("Form1").VbEdit("val2").Set datatable("V2",3) VbWindow("Form1").VbButton("ADD").Click eres= Datatable.Value ("res",3) ares=VbWindow("Form1").VbEdit("res").GetROProperty ("text") If eres=ares Then datatable("res",3)=pass else datatable("res",3)=fail End If Next
Database Scripts
1) Get Test Data From a Database and use in Data Driven Testing (through Scripting) 1) Dim con,rs 2) Set con=createobject("Adodb.connection") 3) Set rs=createobject("Adodb.recordset") 4) con.provider=("microsoft.jet.oledb.4.0") 5) con.open "C:\Documents and Settings\Administrator\My Documents\Gcreddy.mdb" 6) rs.open "Select * From Login",con 7) While rs.eof <>True 8) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 9) Dialog("Login").Activate 10) Dialog("Login").WinEdit("Agent Name:").Set rs.fields ("Agent") 11) Dialog("Login").WinEdit("Password:").Set rs.fields ("Password") 12) Dialog("Login").WinButton("OK").Click 13) Window("Flight Reservation").Close 14) rs.movenext 15) Wend 2) Exporting Data from a Database to an Excel Sheet 1) Dim con,rs 2) Set con=createobject("adodb.connection") 3) Set rs=createobject("adodb.recordset") 4) con.provider="microsoft.jet.oledb.4.0" 5) con.open"C:\Documents and Settings\admin\My Documents\Gcreddy.mdb" 6) rs.open"select*from Login",con 7) Set ex=createobject("Excel.Application") 8) Set a=ex.workbooks.open("C:\Documents and Settings\admin\My Documents\Gcreddy.xls") 9) Set b=a.worksheets("sheet1") 10) i=1 11) Do While Not rs.EOF 12) b.cells (i,1).value=rs.fields("agent") 13) b.cells(i,2).value=rs.fields("password") 14) rs.movenext 15) i=i+1 16) Loop 17) a.save 18) a.close
File System Scripts
1) Create a Folder Option Explicit Dim objFSO, objFolder, strDirectory strDirectory = "D:\Gcreddy" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(strDirectory) 2) Delete a Folder Set oFSO = CreateObject("Scripting.FileSystemObject") oFSO.DeleteFolder("E:\Gcreddy") 3) Copying Folders Set oFSO=createobject("Scripting.Filesystemobject") oFSO.CopyFolder "E:\gcr", "C:\jvr", True 4) Checking weather the folder available or not, if not creating the folder Option Explicit Dim objFSO, objFolder, strDirectory strDirectory = "D:\Gcreddy" Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strDirectory) Then Set objFolder = objFSO.GetFolder(strDirectory) msgbox strDirectory & " already created " else Set objFolder = objFSO.CreateFolder(strDirectory) end if 5) Returning a collection of Disk Drives Set oFSO = CreateObject("Scripting.FileSystemObject") Set colDrives = oFSO.Drives For Each oDrive in colDrives MsgBox "Drive letter: " & oDrive.DriveLetter Next 6) Getting available space on a Disk Drive Set oFSO = CreateObject("Scripting.FileSystemObject") Set oDrive = oFSO.GetDrive("C:") MsgBox "Available space: " & oDrive.AvailableSpace
Flat File Scripts
1) Creating a Flat File Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("E:\Gcreddy.txt") 2) Checking weather the File is available or not, if not creating the File strDirectory="E:\" strFile="Gcreddy.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strDirectory & strFile) Then Set objFolder = objFSO.GetFolder(strDirectory) Else Set objFile = objFSO.CreateTextFile("E:\Gcreddy.txt") End if 3) Reading Data character by character from a Flat File Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("E:\Gcreddy.txt", 1) Do Until objFile.AtEndOfStream strCharacters = objFile.Read(1) msgbox strCharacters Loop 4) Reading Data line by line from a Flat File Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("E:\Gcreddy.txt", 1) Do Until objFile.AtEndOfStream strCharacters = objFile.Readline msgbox strCharacters Loop 5) Reading data from a flat file and using in data driven testing Dim fso,myfile Set fso=createobject("scripting.filesystemobject") Set myfile= fso.opentextfile ("F:\Gcreddy.txt",1) myfile.skipline While myfile.atendofline <> True x=myfile.readline s=split (x, ",") 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").Activate Dialog("Login").WinEdit("Agent Name:").Set s(0) Dialog("Login").WinEdit("Password:").SetSecure s(1) Dialog("Login").WinButton("OK").Click Window("Flight Reservation").Close Wend 6) Writing data to a text file Dim Stuff, myFSO, WriteStuff, dateStamp dateStamp = Date() Stuff = "I am Preparing this script: " &dateStamp Set myFSO = CreateObject("Scripting.FileSystemObject") Set WriteStuff = myFSO.OpenTextFile("e:\Gcreddy.txt", 8, True) WriteStuff.WriteLine(Stuff) WriteStuff.Close SET WriteStuff = NOTHING SET myFSO = NOTHING 7) Delete a text file Set objFSO=createobject("Scripting.filesystemobject") Set txtFilepath = objFSO.GetFile("E:\gcr.txt") txtFilepath.Delete() 8) Checking weather the File is available or not, if available delete the File strDirectory="E:\" strFile="gcr.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strDirectory & strFile) Then Set objFile = objFSO.Getfile(strDirectory & strFile) objFile.delete () End if 9) Comparing two text files Dim f1, f2 f1="e:\Gcreddy1.txt" f2="e:\Gcreddy2.txt" Public Function CompareFiles (FilePath1, FilePath2) Dim FS, File1, File2 Set FS = CreateObject("Scripting.FileSystemObject") If FS.GetFile(FilePath1).Size <> FS.GetFile(FilePath2).Size Then CompareFiles = True Exit Function End If Set File1 = FS.GetFile(FilePath1).OpenAsTextStream(1, 0) Set File2 = FS.GetFile(FilePath2).OpenAsTextStream(1, 0) CompareFiles = False Do While File1.AtEndOfStream = False Str1 = File1.Read Str2 = File2.Read CompareFiles = StrComp(Str1, Str2, 0) If CompareFiles <> 0 Then CompareFiles = True Exit Do End If Loop File1.Close() File2.Close() End Function Call Comparefiles(f1,f2) If CompareFiles(f1, f2) = False Then MsgBox "Files are identical." Else MsgBox "Files are different." End If 10) Counting the number of times a word appears in a file sFileName="E:\gcr.txt" sString="gcreddy" Const FOR_READING = 1 Dim oFso, oTxtFile, sReadTxt, oRegEx, oMatches Set oFso = CreateObject("Scripting.FileSystemObject") Set oTxtFile = oFso.OpenTextFile(sFileName, FOR_READING) sReadTxt = oTxtFile.ReadAll Set oRegEx = New RegExp oRegEx.Pattern = sString oRegEx.IgnoreCase = bIgnoreCase oRegEx.Global = True Set oMatches = oRegEx.Execute(sReadTxt) MatchesFound = oMatches.Count Set oTxtFile = Nothing : Set oFso = Nothing : Set oRegEx = Nothing msgbox MatchesFound
Windows Scripts
1) Verify Login Boundary (Check all the boundary conditions of the Login dialog box. Checks to see if the correct message appears in the error window (Flight Reservation Message) 1) ApplicationDir = Environment("ProductDir") 2) ApplicationPath = "\samples\flight\app\flight4a.exe" 3) If Window("Flight Reservation").Exist(2) Then 4) Window("Flight Reservation").Close 5) SystemUtil.Run ApplicationDir & ApplicationPath 6) Elseif Not Dialog("Login").Exist(1) Then 7) SystemUtil.Run ApplicationDir & ApplicationPath 8) End If 9) Dialog("Login").WinEdit("Agent Name:").Set Datatable.Value ("AgentName",dtGlobalSheet) 10) Dialog("Login").WinEdit("Password:").Set Datatable.Value ("Password",dtGlobalSheet) 11) Dialog("Login").WinButton("OK").Click 12) If Dialog("Login").Dialog("Flight Reservations").Exist(1) and Datatable.Value ("Status",dtGlobalSheet)="Fail" Then 13) Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").Check CheckPoint("Agent name must be at least 4 characters long.") 14) Dialog("Login").Dialog("Flight Reservations").WinButton("OK").Click 15) Elseif Window("Flight Reservation").Exist(10) and Datatable.Value ("Status",dtGlobalSheet)="Pass" Then 16) Reporter.ReportEvent PASS,"Login: ","Succeeded" 17) Else 18) Reporter.ReportEvent Fail,"Login: ","Combination #" & Datatable.GetCurrentRow & " was not according to Excel file" 19) End If 2) Verify Cancel Operation (in Login Dialog box, if user selects cancel button, before enter any data after enter data dialog box should be disappeared.) 1) Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 2) Dialog("Login").Activate 3) Dialog("Login").WinButton("Cancel").Click 4) If Dialog("Login").Exist (2) =True Then 5) Reporter.ReportEvent 1,"sd","Fail" 6) Else 7) Reporter.ReportEvent 0,"sd","Pass" 8) Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 9) End If 10) Dialog("Login").Activate 11) Dialog("Login").WinEdit("Agent Name:").Set "asdf" 12) Dialog("Login").WinButton("Cancel").Click 13) If Dialog("Login").Exist (2) =True Then 14) Reporter.ReportEvent 1,"sd","Fail" 15) Else 16) Reporter.ReportEvent 0,"sd","Pass" 17) Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 18) End If 19) Dialog("Login").Activate 20) Dialog("Login").WinEdit("Agent Name:").Set "asdf" 21) Dialog("Login").WinEdit("Password:").SetSecure "4a993af45dcbd506c8451b274d2da07b38ff5531" 22) Dialog("Login").WinButton("Cancel").Click 23) If Dialog("Login").Exist (2)=True Then 24) Reporter.ReportEvent 1,"sd","Fail" 25) Else 26) Reporter.ReportEvent 0,"sd","Pass" 27) Invokeapplication "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 28) End If 29) Dialog("Login").Activate 30) Dialog("Login").WinEdit("Agent Name:").Set "asdf" 31) Dialog("Login").WinEdit("Password:").SetSecure "4a993af45dcbd506c8451b274d2da07b38ff5531" 32) Dialog("Login").WinButton("OK").Click 3) Verify Addition, Subtraction, Multiplication and Division Operations in Calculator Application. 1) Dim aRes,sRes,dRes,mRes 2) VbWindow("VbWindow").Activate 3) VbWindow("VbWindow").VbEdit("VbEdit").Set "10" 4) VbWindow("VbWindow").VbEdit("VbEdit_2").Set "20" 5) v1=VbWindow("VbWindow").VbEdit("VbEdit").GetROProperty ("text") 6) v2=VbWindow("VbWindow").VbEdit("VbEdit_2").GetROProperty ("text") 7) VbWindow("VbWindow").VbButton("ADD").Click 8) aRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText 9) VbWindow("VbWindow").VbButton("SUB").Click 10) sRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText 11) VbWindow("VbWindow").VbButton("MUL").Click 12) mRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText 13) VbWindow("VbWindow").VbButton("DIV").Click 14) dRes=VbWindow("VbWindow").VbEdit("VbEdit_3").GetVisibleText 15) v1=cdbl(v1) 16) v2=cdbl(v2) 17) aRes=cdbl (aRes) 18) sRes=cdbl (sRes) 19) mRes=cdbl (mRes) 20) dRes=cdbl (dRes) 21) If aRes=v1+v2 Then 22) Reporter.ReportEvent 0,"Res","Addition Passed" 23) else 24) Reporter.ReportEvent 1,"Res","Addition Failed" 25) End If 26) If sRes=v1-v2 Then 27) Reporter.ReportEvent 0,"Res","Subtraction Passed" 28) else 29) Reporter.ReportEvent 1,"Res","Subtraction Failed" 30) End If 31) If mRes=v1*v2 Then 32) Reporter.ReportEvent 0,"Res","Multiplecation Passed" 33) else 34) Reporter.ReportEvent 1,"Res","Multiplecation Failed" 35) End If 36) If dRes=v1/v2 Then 37) Reporter.ReportEvent 0,"Res","Division Passed" 38) else 39) Reporter.ReportEvent 1,"Res","Division Failed" 40) End If 4) Verify state of Update Order Button, before open an Order and after open an Order (in Flight Reservation before opening an order Update Order button should be disabled after opening an order enabled.) 1) Option explicit 2) Dim bo,ao 3) If Not window("Flight Reservation").Exist (2) Then 4) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 5) Dialog("Login").Activate 6) Dialog("Login").WinEdit("Agent Name:").Set "Gcreddy" 7) Dialog("Login").WinEdit("Password:").SetSecure "4aa8bce9984f1a15ea187a2da5b18c545abb01cf" 8) Dialog("Login").WinButton("OK").Click 9) End If 10) Window("Flight Reservation").Activate 11) bo=Window("Flight Reservation").WinButton("Update Order").GetROProperty ("Enabled") 12) Window("Flight Reservation").WinButton("Button").Click 13) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" 14) Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "1" 15) Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click 16) ao=Window("Flight Reservation").WinButton("Update Order").GetROProperty ("Enabled") 17) If bo=False Then 18) Reporter.ReportEvent 0,"Res","Update Order Button Disabled" 19) else 20) Reporter.ReportEvent 1,"Res","Update Order Button Enabled" 21) End If 22) If ao=True Then 23) Reporter.ReportEvent 0,"Res","Update Order Button Enabled" 24) else 25) Reporter.ReportEvent 1,"Res","Update Order Button Disabled" 26) End If 5) Price Consistency, In Flight Reservation (In Flight Reservation, First class price=3*Economy class price and Business class price=2*Economy class price) 1) Option explicit 2) Dim n,f,b,e 3) If Not window("Flight Reservation").Exist (2) Then 4) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 5) Dialog("Login").Activate 6) Dialog("Login").WinEdit("Agent Name:").Set "asdf" 7) Dialog("Login").WinEdit("Password:").SetSecure "4aa8b7b7c5823680cfcb24d30714c9bbf0dff1eb" 8) Dialog("Login").WinButton("OK").Click 9) End If 10) For n= 1 to 10 step 1 11) Window("Flight Reservation").Activate 12) Window("Flight Reservation").WinButton("Button").Click 13) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" 14) Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set n 15) Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click 16) Window("Flight Reservation").WinRadioButton("First").Set 17) f=Window("Flight Reservation").WinEdit("Price:").GetVisibleText 18) Window("Flight Reservation").WinRadioButton("Business").Set 19) b=Window("Flight Reservation").WinEdit("Price:").GetVisibleText 20) Window("Flight Reservation").WinRadioButton("Economy").Set 21) e=Window("Flight Reservation").WinEdit("Price:").GetVisibleText 22) f=cdbl(mid(f,2,len (f-1))) 23) b=cdbl(mid(b,2,len (b-1))) 24) e=cdbl(mid(e,2,len (e-1))) 25) If f=3*e and b=2*e Then 26) Reporter.ReportEvent 0,"Res","Pricy Consistancy is there" 27) else 28) Reporter.ReportEvent 1,"Res","Pricy Consistancy is NOT there" 29) End If 30) Window("Flight Reservation").WinButton("Button_2").Click 31) Window("Flight Reservation").Dialog("Flight Reservations").WinButton("No").Click 32) Next 6) Verify Total, In Flight Reservation (In Flight Reservation, Total = Tickets * Price) 1) Option Explicit 2) Dim t,p,tot,n 3) For n= 1 to 10 step 1 4) If Not window("Flight Reservation").Exist (2) Then 5) 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" 6) Dialog("Login").Activate 7) Dialog("Login").WinEdit("Agent Name:").Set "Gcreddy" 8) Dialog("Login").WinEdit("Password:").SetSecure "4aa892d62c529f1c23298175ad78c58f43da8e34" 9) Dialog("Login").WinButton("OK").Click 10) End If 11) Window("Flight Reservation").Activate 12) Window("Flight Reservation").WinButton("Button").Click 13) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" 14) Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set n 15) Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click 16) t=Window("Flight Reservation").WinEdit("Tickets:").GetVisibleText 17) p=Window("Flight Reservation").WinEdit("Price:").GetVisibleText 18) tot=Window("Flight Reservation").WinEdit("Total:").GetVisibleText 19) t=cdbl (t) 20) p=Cdbl(mid(p,2,len (p-1))) 21) tot=Cdbl(mid(tot,2,len (tot-1))) 22) If tot=t*p Then 23) Reporter.ReportEvent 0,"Res","Calculation Passed" 24) else 25) Reporter.ReportEvent 1,"Res","Calculation Failed" 26) End If 27) Next 7) Verify Flight From & Flight To Combo Boxes (In Flight reservation, select an item from Fly From: combo box and verify weather that item available or not in Fly To: combo box, like this select all items one by one in Fly From and verify weather selected items available or not in Fly To.) 1) Option explicit 2) Dim qtp,flight_app,f,t,i,j,x,y 3) If Not Window("text:=Flight Reservation").Exist (7)= True Then 4) QTP=Environment("ProductDir") 5) Flight_app="\samples\flight\app\flight4a.exe" 6) SystemUtil.Run QTP & Flight_app 7) Dialog("text:=Login").Activate 8) Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set "asdf" 9) Dialog("text:=Login").WinEdit("attached text:=Password:").SetSecure "4aa5ed3daf680e7a759bee1c541939d3a54a5b65" 10) Dialog("text:=Login").WinButton("text:=OK").Click 11) End If 12) Window("text:=Flight Reservation").Activate 13) Window("text:=Flight Reservation").WinButton("window id:=6").Click 14) Window("text:=Flight Reservation").ActiveX("acx_name:=MaskEdBox","window id:=0").Type "090910" 15) f=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly From:").GetItemsCount 16) For i= 0 to f-1 step 1 17) Window("text:=Flight Reservation").WinComboBox("attached text:=Fly From:").Select (i) 18) x=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly From:").GetROProperty ("text") 19) t=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly To:","x:=244","y:=147").GetItemsCount 20) For j= 0 to t-1 step 1 21) Window("text:=Flight Reservation").WinComboBox("attached text:=Fly To:","x:=244","y:=147").Select (j) 22) y=Window("text:=Flight Reservation").WinComboBox("attached text:=Fly To:","x:=244","y:=147").GetROProperty ("text") 23) If x <> y Then 24) Reporter.ReportEvent 0,"Res","Test Passed" 25) Else 26) Reporter.ReportEvent 1,"Res","Test Failed" 27) End If 28) Next 29) Next 8) Verify Order No Entry in Flight Reservation. (In Open Order dialog box, Order No object accepts numeric values only.) 1) If Not window("Flight Reservation").Exist (2) Then 2) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 3) Dialog("Login").Activate 4) Dialog("Login").WinEdit("Agent Name:").Set "asdf" 5) Dialog("Login").WinEdit("Password:").SetSecure "4aa9ccae3bb00962b47ff7fb0ce3524c1d88cb43" 6) Dialog("Login").WinButton("OK").Click 7) End If 8) Window("Flight Reservation").Activate 9) Window("Flight Reservation").WinButton("Button").Click 10) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" 11) Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "a" 12) ord=Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").GetVisibleText 13) If ord= "a" Then 14) Reporter.ReportEvent 1,"Res","Order No Object is taking invalid data" 15) else 16) Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set "1" 17) Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click 18) End If 9) Get Test Data from a Flat file and use in Data Driven Testing (through Scripting) 1) Dim fso,myfile 2) Set fso=createobject("scripting.filesystemobject") 3) Set myfile= fso.opentextfile ("F:\gcr.txt",1) 4) myfile.skipline 5) While myfile.atendofline <> True 6) x=myfile.readline 7) s=split (x, ",") 8) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 9) Dialog("Login").Activate 10) Dialog("Login").WinEdit("Agent Name:").Set s(0) 11) Dialog("Login").WinEdit("Password:").SetSecure s(1) 12) Dialog("Login").WinButton("OK").Click 13) Window("Flight Reservation").Close 14) Wend 10) Count, how many Buttons and Edit boxes available in Flight Reservation main window. 1) If Not window("Flight Reservation").Exist (2) Then 2) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 3) Dialog("Login").Activate 4) Dialog("Login").WinEdit("Agent Name:").Set "Gcreddy" 5) Dialog("Login").WinEdit("Password:").Set "mercury" 6) Dialog("Login").WinButton("OK").Click 7) End If 8) Set oDesc = Description.Create() 9) oDesc("micclass").Value = "WinButton" 10) Set Buttons = Window("text:=Flight Reservation").ChildObjects (oDesc) 11) Num_Buttons = Buttons.Count() 12) Set oDesc1=Description.Create() 13) oDesc1("micclass").Value="WinEdit" 14) Set Editboxes=Window("text:=Flight Reservation").ChildObjects (oDesc1) 15) Num_Editboxes= editboxes.count () 16) sum= Num_Buttons+Num_Editboxes 17) Reporter.ReportEvent 2, "Res","Total Buttons: "& Num_Buttons &"Total Edit boxes: "& Num_Editboxes 11) Verify search options in Open Order Dialog box (After selecting open order, 3 search options should be enabled and not checked, After selecting Order No option, other options should be disabled, After selecting Customer Name, Flight date option enabled and Order No disabled After selecting Flight date option, Customer Name enabled and Order No disabled) 1) If Not window("Flight Reservation").Exist (2) Then 2) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 3) Dialog("Login").Activate 4) Dialog("Login").WinEdit("Agent Name:").Set "Gcreddy" 5) Dialog("Login").WinEdit("Password:").SetSecure "4aa9ed25bc0ebde66ed726ad87d7e991347d8b9c" 6) Dialog("Login").WinButton("OK").Click 7) End If 8) Window("Flight Reservation").Activate 9) Window("Flight Reservation").WinButton("Button").Click 10) Window("Flight Reservation").Dialog("Open Order").Activate 11) oe=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").GetROProperty ("Enabled") 12) ce=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").GetROProperty ("Enabled") 13) fe=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").GetROProperty("Enabled") 14) oc=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").GetROProperty ("Checked") 15) cc=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").GetROProperty ("Checked") 16) fc=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").GetROProperty("Checked") 17) If (oe=true and ce=true and fe=true) and (oc="OFF" and cc="OFF" and fc="OFF") Then 18) Reporter.ReportEvent 0,"Res","Pass" 19) else 20) Reporter.ReportEvent 1,"Res","Fail" 21) End If 22) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" 23) ono=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").GetROProperty ("Checked") 24) If ono="ON" Then 25) fd=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").GetROProperty ("Enabled") 26) ono=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").GetROProperty ("Enabled") 27) fd=false 28) ono=false 29) Reporter.ReportEvent 0,"Res","Pass" 30) else 31) Reporter.ReportEvent 1,"Res","Fail" 32) End If 33) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "OFF" 34) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").Set "ON" 35) cn=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").GetROProperty ("Checked") 36) If cn="ON" Then 37) ono=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").GetROProperty ("Enabled") 38) fd=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").GetROProperty ("Enabled") 39) fd=True 40) ono=false 41) Reporter.ReportEvent 0,"Res","Pass" 42) else 43) Reporter.ReportEvent 1,"Res","Fail" 44) End If 45) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").Set "OFF" 46) Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").Set "ON" 47) fd=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Flight Date").GetROProperty ("Checked") 48) If fd="ON" Then 49) ono=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").GetROProperty ("Enabled") 50) cn=Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Customer Name").GetROProperty ("Enabled") 51) cn=True 52) ono=false 53) Reporter.ReportEvent 0,"Res","Pass" 54) else 55) Reporter.ReportEvent 1,"Res","Fail" 56) End If 12) In Login Dialog box, Verify Help message (The message is ‘The password is 'MERCURY') 1) If Not Dialog("Login").Exist (2) Then 2) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe" 3) End If 4) Dialog("Login").Activate 5) Dialog("Login").WinButton("Help").Click 6) message=Dialog("Login").Dialog("Flight Reservations").Static("The password is 'MERCURY'").GetROProperty("text") 7) If message="The password is 'MERCURY'" Then 8) Reporter.ReportEvent 0,"Res","Correct message "&message 9) else 10) Reporter.ReportEvent 1,"Res","Worng message " 11) End If
For QTP Scripts & QTP Documents visit: www.gcreddy.com
1
For QTP Scripts & QTP Documents visit: www.gcreddy.com