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
*******************************************************

0 comments:

Post a Comment