Sunday 6 September 2015

QTP Script Examples


QTP Script Examples

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)
ApplicationDir = Environment(“ProductDir”)
ApplicationPath = “samplesflightappflight4a.exe”
If  Window(“Flight Reservation”).Exist(2) Then
Window(“Flight Reservation”).Close
SystemUtil.Run ApplicationDir & ApplicationPath
Elseif Not Dialog(“Login”).Exist(1) Then
SystemUtil.Run ApplicationDir & ApplicationPath
End If
Dialog(“Login”).WinEdit(“Agent Name:”).Set Datatable.Value (“AgentName”,dtGlobalSheet)
Dialog(“Login”).WinEdit(“Password:”).Set Datatable.Value (“Password”,dtGlobalSheet)
Dialog(“Login”).WinButton(“OK”).Click
If  Dialog(“Login”).Dialog(“Flight Reservations”).Exist(1) and Datatable.Value (“Status”,dtGlobalSheet)=”Fail” Then
Dialog(“Login”).Dialog(“Flight Reservations”).Static(“Agent name must be at”).Check CheckPoint(“Agent name must be at least 4 characters long.”)
Dialog(“Login”).Dialog(“Flight Reservations”).WinButton(“OK”).Click
Elseif  Window(“Flight Reservation”).Exist(10) and Datatable.Value (“Status”,dtGlobalSheet)=”Pass” Then
Reporter.ReportEvent PASS,”Login: “,”Succeeded”
Else
Reporter.ReportEvent Fail,”Login: “,”Combination #” & Datatable.GetCurrentRow  & ” was not according to Excel file”
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 FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.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 FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.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 FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.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 FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.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 FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.exe”
5)     Dialog(“Login”).Activate
6)     Dialog(“Login”).WinEdit(“Agent Name:”).Set “Naseer”
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 FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.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 FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.exe”,””,”C:Program FilesMercury InteractiveQuickTest Professionalsamplesflightapp”,”open”
6)     Dialog(“Login”).Activate
7)     Dialog(“Login”).WinEdit(“Agent Name:”).Set “Naseer”
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=”samplesflightappflight4a.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
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 FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.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 FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.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) 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 SettingsAdministratorMy DocumentsGcr.mdb”
6)     rs.open “Select * From Login”,con
7)     While rs.eof <>True
8)     SystemUtil.Run “C:Program FilesMercury InteractiveQuickTest Professionalsamplesflightappflight4a.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

0 comments:

Post a Comment

Note: only a member of this blog may post a comment.

Blog Archive