1. Count the no. of browsers opened and close them all?
Set Desc = Description.Create()
Desc(“micclass”).Value = “Browser”
Set Browsers =Desktop.ChildObjects (Desc)
NumberofBrowsers = Browsers.Count()
Reporter.ReportEvent 2,”Res”,”Number of Browsers are: “&NumberOfBrowsers
For Counter=0 to NumberofBrowsers-1
Browsers(Counter).Close
Next
Desc(“micclass”).Value = “Browser”
Set Browsers =Desktop.ChildObjects (Desc)
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 Desc = Description.Create()
Desc(“micclass”).Value = “Link”
Set Lists = Browser(“Welcome: Mercury”).Page(“Welcome: Mercury”).ChildObjects (Desc)
NumberOfLinks = Lists.Count()
Reporter.ReportEvent 2,”Res”,”Number of Links are: “&NumberOfLinks
Desc(“micclass”).Value = “Link”
Set Lists = Browser(“Welcome: Mercury”).Page(“Welcome: Mercury”).ChildObjects (Desc)
NumberOfLinks = Lists.Count()
Reporter.ReportEvent 2,”Res”,”Number of Links are: “&NumberOfLinks
3. Create an Excel file, enter some data and save the file through VB scripting?
Dim objexcel
Set objExcel = createobject(“Excel.application”)
objexcel.Visible = True
objexcel.Workbooks.add
objexcel.Cells(1, 1).Value = “Testing”
objexcel.ActiveWorkbook.SaveAs(“f:\exceltest.xls”)
objexcel.Quit
4. Data Driven Testing through an External Excel Sheet
Set myExcel=Createobject(“Excel.Application”)
Set myFile=myExcel.workbooks.open (“C:\Documents and Settings\admin\My Documents\gcreddy.xls”)
Set mySheet=myFile.worksheets(“Sheet1″)
Rows_Count=mySheet.usedrange.rows.count
For i= 1 to Rows_Count
Agent=mySheet.cells(i,”A”)
pwd=mySheet.Cells(i,”B”)
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 Agent
Dialog(“Login”).WinEdit(“Password:”).SetSecure pwd
Dialog(“Login”).WinEdit(“Password:”).Type micReturn
Window(“Flight Reservation”).Close
Next
Set myFile=myExcel.workbooks.open (“C:\Documents and Settings\admin\My Documents\gcreddy.xls”)
Set mySheet=myFile.worksheets(“Sheet1″)
Rows_Count=mySheet.usedrange.rows.count
For i= 1 to Rows_Count
Agent=mySheet.cells(i,”A”)
pwd=mySheet.Cells(i,”B”)
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 Agent
Dialog(“Login”).WinEdit(“Password:”).SetSecure pwd
Dialog(“Login”).WinEdit(“Password:”).Type micReturn
Window(“Flight Reservation”).Close
Next
5.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
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
6. 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
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
7. 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
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
8. Database Scripts
1) Get Test Data From a Database and use in Data Driven Testing (through Scripting)
Dim con,rs
Set con=createobject(“Adodb.connection”)
Set rs=createobject(“Adodb.recordset”)
con.provider=(“microsoft.jet.oledb.4.0”)
con.open “C:\Documents and Settings\Administrator\My Documents\Gcreddy.mdb”
rs.open “Select * From Login”,con
While rs.eof <>True
SystemUtil.Run “C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe”
Dialog(“Login”).Activate
Dialog(“Login”).WinEdit(“Agent Name:”).Set rs.fields (“Agent”)
Dialog(“Login”).WinEdit(“Password:”).Set rs.fields (“Password”)
Dialog(“Login”).WinButton(“OK”).Click
Window(“Flight Reservation”).Close
rs.movenext
Wend
Set con=createobject(“Adodb.connection”)
Set rs=createobject(“Adodb.recordset”)
con.provider=(“microsoft.jet.oledb.4.0”)
con.open “C:\Documents and Settings\Administrator\My Documents\Gcreddy.mdb”
rs.open “Select * From Login”,con
While rs.eof <>True
SystemUtil.Run “C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe”
Dialog(“Login”).Activate
Dialog(“Login”).WinEdit(“Agent Name:”).Set rs.fields (“Agent”)
Dialog(“Login”).WinEdit(“Password:”).Set rs.fields (“Password”)
Dialog(“Login”).WinButton(“OK”).Click
Window(“Flight Reservation”).Close
rs.movenext
Wend
2) Exporting Data from a Database to an Excel Sheet
Dim con,rs
Set con=createobject(“adodb.connection”)
Set rs=createobject(“adodb.recordset”)
con.provider=”microsoft.jet.oledb.4.0″
con.open”C:\Documents and Settings\admin\My Documents\Gcreddy.mdb”
rs.open”select*from Login”,con
Set ex=createobject(“Excel.Application”)
Set a=ex.workbooks.open(“C:\Documents and Settings\admin\My Documents\Gcreddy.xls”)
Set b=a.worksheets(“sheet1”)
i=1
Do While Not rs.EOF
b.cells (i,1).value=rs.fields(“agent”)
b.cells(i,2).value=rs.fields(“password”)
rs.movenext
i=i+1
Loop
a.save
a.close
Set con=createobject(“adodb.connection”)
Set rs=createobject(“adodb.recordset”)
con.provider=”microsoft.jet.oledb.4.0″
con.open”C:\Documents and Settings\admin\My Documents\Gcreddy.mdb”
rs.open”select*from Login”,con
Set ex=createobject(“Excel.Application”)
Set a=ex.workbooks.open(“C:\Documents and Settings\admin\My Documents\Gcreddy.xls”)
Set b=a.worksheets(“sheet1”)
i=1
Do While Not rs.EOF
b.cells (i,1).value=rs.fields(“agent”)
b.cells(i,2).value=rs.fields(“password”)
rs.movenext
i=i+1
Loop
a.save
a.close
Create a Folder
Option Explicit
Dim objFSO, objFolder, strDirectory
strDirectory = “D:\Gcreddy”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFolder = objFSO.CreateFolder(strDirectory)
Dim objFSO, objFolder, strDirectory
strDirectory = “D:\Gcreddy”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFolder = objFSO.CreateFolder(strDirectory)
Delete a Folder
Set oFSO = CreateObject(“Scripting.FileSystemObject”)
oFSO.DeleteFolder(“E:\Gcreddy”)
oFSO.DeleteFolder(“E:\Gcreddy”)
Copying Folders
Set oFSO=createobject(“Scripting.Filesystemobject”)
oFSO.CopyFolder “E:\gcr”, “C:\jvr”, True
oFSO.CopyFolder “E:\gcr”, “C:\jvr”, True
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)
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)
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
Set colDrives = oFSO.Drives
For Each oDrive in colDrives
MsgBox “Drive letter: ” & oDrive.DriveLetter
Next
Getting available space on a Disk Drive
Set oFSO = CreateObject(“Scripting.FileSystemObject”)
Set oDrive = oFSO.GetDrive(“C:”)
MsgBox “Available space: ” & oDrive.AvailableSpace
Set oDrive = oFSO.GetDrive(“C:”)
MsgBox “Available space: ” & oDrive.AvailableSpace
Flat File Scripts
Creating a Flat File
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFile = objFSO.CreateTextFile(“E:\Gcreddy.txt”)
Set objFile = objFSO.CreateTextFile(“E:\Gcreddy.txt”)
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
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
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
Set objFile = objFSO.OpenTextFile(“E:\Gcreddy.txt”, 1)
Do Until objFile.AtEndOfStream
strCharacters = objFile.Read(1)
msgbox strCharacters
Loop
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
Set objFile = objFSO.OpenTextFile(“E:\Gcreddy.txt”, 1)
Do Until objFile.AtEndOfStream
strCharacters = objFile.Readline
msgbox strCharacters
Loop
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, “,”)
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
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
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
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
Delete a text file
Set objFSO=createobject(“Scripting.filesystemobject”)
Set txtFilepath = objFSO.GetFile(“E:\gcr.txt”)
txtFilepath.Delete()
Set txtFilepath = objFSO.GetFile(“E:\gcr.txt”)
txtFilepath.Delete()
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
strFile=”gcr.txt”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
If objFSO.FileExists(strDirectory & strFile) Then
Set objFile = objFSO.Getfile(strDirectory & strFile)
objFile.delete ()
End if
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
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
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
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) 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
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
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
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
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
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
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
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
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
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)
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
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
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
Comments
Post a Comment