Data Driven Testing

Data Driven Testing

 *********************************************************
''Test Requirement: Data Driven Testing for Login Operation by fetching Test data directly from a text file

'Pre-requisites:

'Test data file

'Test Flow:

'Create an Automation Object

'open the Test Data file using Automation Object

'Read test data and pass values

'Launch the Application

'Generate Statements for Login Operation

'Form Loop for multiple iterations

'**************************************************

Option Explicit

Dim objFso, myFile, myLine, myField

Set objFso=CreateObject("Scripting.FileSystemObject")

Set myFile=objFso.OpenTextFile("C:\Documents and Settings\gcreddy\Desktop\gcreddy.txt")

myFile.SkipLine

Do Until myFile.AtEndOfStream=True

        myLine=myFile.ReadLine

        myField=Split(myLine,",")

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("text:=Login").Activate

Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set myField(0)

Dialog("text:=Login").WinEdit("attached text:=Password:").Set myField(1)

Wait (2)

Dialog("text:=Login").WinButton("text:=OK").Click

Window("text:=Flight Reservation").Close

Loop

myFile.Close

Set objFso=Nothing
**************************************************************

2) 'Data Driven Testing for Login Operation by fetching from an excel file

Dim objExcel, myFile, mySheet

Set objExcel=CreateObject("Excel.Application")

Set myFile=objExcel.Workbooks.Open("C:\Documents and Settings\gcreddy\Desktop\gcreddy.xls")

Set mySheet=myFile.Worksheets("Sheet1")

Rows_Count=mySheet.usedrange.rows.count

For i= 2 to Rows_Count step 1

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("text:=Login").Activate

Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set mySheet.Cells(i,"A")

Dialog("text:=Login").WinEdit("attached text:=Password:").Set mySheet.Cells(i,"B")

Wait (2)

Dialog("text:=Login").WinButton("text:=OK").Click

Window("text:=Flight Reservation").Close

Next

myFile.Close

objExcel.Quit

Set objExcel=Nothing

************************************************

3) Data Driven Testing by fetching Test data from a Database

Dim objCon, objRs

'Creating an Automation object in Database Connection Class, that can be used to connect to Databases

Set objCon=CreateObject("Adodb.Connection")

'Creating an Automation object in Database Record set class that can be used to perform operations on DB tables(Records)

Set objRs=CreateObject("Adodb.RecordSet")

objCon.Provider=("Microsoft.Jet.OLEDB.4.0")' Generating Connection string for MS Access Database

objCon.Open "C:\Documents and Settings\gcreddy\Desktop\gcreddy.mdb"

objRs.Open "Select * from Login",objCon

Do While objRs.EOF=False

SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("text:=Login").Activate

Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set objRs.Fields("Agent")

Dialog("text:=Login").WinEdit("attached text:=Password:").Set objRs.Fields("Password")

Wait (2)

Dialog("text:=Login").WinButton("text:=OK").Click

Window("text:=Flight Reservation").Close

objRs.MoveNext

Loop

objRs.Close

objCon.Close

Set objRs=Nothing

Set objCon=Nothing

*******************************************************

Data Driven Testing-2