Parameterization

Parameterization


Parameterization is nothing but giving multiple Input/Test data to the test script

Different ways to Parameterize the values

Input the Test data from External files

Input the Test data through Datatable

Input Test data through loop statements

Input Test data dynamically through interactive submission

Input the Test data from External files

Set myexcel = createobject("excel.application")

'Make sure that you have created an excel file before executing the script
'Use the path of excel file in the below code
'Also make sure that your excel file is in Closed state

myexcel 

.Workbooks.Open "C:\parameter.xls"

myexcel 

.Application.Visible = true

'"Sheet1" is the name of Sheet in Excel file "qtp.xls" where data needs to be entered .
set mysheet = myxl.ActiveWorkbook.Worksheets("Sheet1")

'contents of sheet1
'Uname              Pwd
-----------     ------------
'qtpworld.com       qtp
'admin                  qtp
'admin                  qtp

'abcd                 abcd

'Launch Gmail
Systemutil.Run "iexplore.exe","http:\\www.gmail.com"

Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").Sync

'Get the max row occupied in the excel file
Row=mysheet.UsedRange.Rows.Count

'To read the data from the entire Excel file
For i= 2 to Row

Username=mysheet.cells(i,1).value
Password=mysheet.cells(i,2).value

' Enter Email id in Username Field
Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").WebEdit("name:=Email").Set Username

'Enter password in Passowrd Field
Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").WebEdit("name:= Passwd").Set Password

wait 1

Next
'Close the Workbook

myexcel 

.ActiveWorkbook.Close

'Close Excel

myexcel 

.Application.Quit

'Release the objects
Set mysheet =nothing
Set

myexcel 

= nothing

Input the Test data through Datatable

'Insert  username and Password in the datatable sheet "Global"   under column  "Username" and "Password"

'contents of  Global Sheet
'Username         Password
'-------------   ------------
'qtpworld.com    qtp
'admin                qtp
'admin                qtp
'abcd                  abcd

'Get the max used range of the datasheet "Global"
row=datatable.GetSheet("Global").GetRowCount

'Launch gmail.com
Systemutil.Run  "iexplore.exe","http:\\www.gmail.com"

Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").Sync

'Make sure whenever you parameterize through datatable you do the following ,
'1. go to File ->Settings ->Run
'2.On the right side panel , Under  "Data Table iterations"   select the first option that is  "Run one iteration only"

'Loop to read all the data in the datasheet "Global"
For   Drow= 1 to row

datatable.GetSheet("Global").SetCurrentRow(Drow)
Username=datatable.Value("Username","Global")
Password=datatable.Value("Password","Global")

' Enter  Email id in Username Field
Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").WebEdit("name:=Email").Set Username

'Enter password in Passowrd Field
Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").WebEdit("name:= Passwd").Set  Password

Wait 1

Next

Input Test data through loop statements

'parameterize using loop value
For orderno=1 to 10

'Login to sample Qtp flight application and keep the main window open.
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"

'Parameterize orderno using the loop value
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set orderno
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click

Next

Input Test data dynamically through interactive submission
'Launch gmail.com
Systemutil.Run  "iexplore.exe","http:\\www.gmail.com"

Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").Sync

'Allowing user to enter  User name and  Password  three times during run time

For  i = 1 to 3

'Allowing user to enter  User name and  Password
Username=Inputbox("Enter username")
Password=InputBox("Enter Password")

' Enter  Email id in Username Field
Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").WebEdit("name:=Email").Set Username

'Enter password in Passowrd Field
Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").WebEdit("name:= Passwd").Set  Password

Next