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 SettingsgcreddyDesktopgcreddy.txt”)
myFile.SkipLine
Do Until myFile.AtEndOfStream=True
        myLine=myFile.ReadLine
        myField=Split(myLine,”,”)
SystemUtil.Run “C:Program FilesHPQuickTest Professionalsamplesflightappflight4a.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 SettingsgcreddyDesktopgcreddy.xls”)
Set mySheet=myFile.Worksheets(“Sheet1″)
Rows_Count=mySheet.usedrange.rows.count
For i= 2 to Rows_Count step 1
SystemUtil.Run “C:Program FilesHPQuickTest Professionalsamplesflightappflight4a.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 SettingsgcreddyDesktopgcreddy.mdb”
objRs.Open “Select * from Login”,objCon
Do While objRs.EOF=False
SystemUtil.Run “C:Program FilesHPQuickTest Professionalsamplesflightappflight4a.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

 

Comments