light example

[Amit Singh Chauhan]

[b]Hi I have written the below shown code in seprate function library file so that I can remove the use of Object repository.

'##################################
'#Dialog
'##################################

Code:

Public Sub DPDialog(strlnDialogName,strnProp) objDialog = strlnDialogName Set obj_Dialog = Description.Create obj_Dialog ("Class Name").value = "Dialog" obj_Dialog ("regexpwndtitle").value= strlnDialogName If strnProp = "Click" Then ' Click Property Dialog(strlnDialogName).Click End If End Sub

'####################################
'# WinEdit
'####################################

Code:

Public sub DBWinEdit(strenWinEdit,strlnValue,strnProp) Set obj_WinEdit = Description.Create obj_WinEdit ("Class Name").value = "WinEdit" obj_WinEdit ("attached text").value= strenWinEdit If strnProp = "Set" Then ' Set Property Dialog(obj_Dialog).WinEdit(obj_WinEdit).Set strlnValue End If End Sub

'######################################
'# WinButton
'######################################

Code:

Public Sub DPWinButton(strWInButton,strnProp) Set obj_WinButton= Description.Create obj_WinButton ("Class Name").value = "WinButton" obj_WinButton ("regexpwndtitle").value= strWInButton If strnProp ="Click" Then ' Click Property Dialog(obj_Dialog).WinEdit(obj_WinButton).Click End If End Sub

'##############################################
Now I have written the below code to use the above functions and taking the object's name and its property from Excel sheet.

Code:

Call OpenExcel(sFileName, vSheet) 'Open Data File object = ReadExcelDataSingle(sFileName, Row, "Object", vSheet) Call CloseExcel(sFileName) 'Close Data File If object = "Dialog" Then Call OpenExcel(sFileName, vSheet) 'Open Data File winName = ReadExcelDataSingle(sFileName, Row, "ObjectName", vSheet) objProperty = ReadExcelDataSingle(sFileName, Row, "Property", vSheet) Call CloseExcel(sFileName) 'Close Data File Call DPDialog(winName,objProperty) End If If object = "WinEdit" Then Call OpenExcel(sFileName, vSheet) 'Open Data File objName = ReadExcelDataSingle(sFileName, Row, "ObjectName", vSheet) objProperty = ReadExcelDataSingle(sFileName, Row, "Property", vSheet) objVal = ReadExcelDataSingle(sFileName, Row, "Value", vSheet) Call CloseExcel(sFileName) 'Close Data File Call DBWinEdit(objName,objVal,objProperty) End If If object = "WinButton" Then Call OpenExcel(sFileName, vSheet) 'Open Data File objName = ReadExcelDataSingle(sFileName, Row, "ObjectName", vSheet) objProperty = ReadExcelDataSingle(sFileName, Row, "Property", vSheet) Call CloseExcel(sFileName) 'Close Data File Call DPWinButton(objName,objProperty) End If

##############################################

When I remove Object Repository refrence the code doesnot work.
Can Anyone tell what is wrong in above code.

[somisays]

Hi,
Have you associated this function library with the test where you are call these functions ?

Regards
Sridhar

[Anshoo Arora]

You are using one object reference in your script and using that object reference to point to the object under test.

It should be like this:

Code:

Public Sub DPDialog(strlnDialogName,strnProp) Set obj_Dialog = Description.Create obj_Dialog ("micclass").value = "Dialog" obj_Dialog ("regexpwndtitle").value= strlnDialogName If strnProp = "Click" Then ' Click Property Dialog(obj_Dialog).Click End If End Sub

For WinEdit and WinButton: You have not defined what 'obj_Dialog' is. The description for Dialog is pointing to an illegal description. Remember that you are not transferring the description of the Dialog Box to these two Subs. This is one way it can be done:

Code:

Public sub DPWinEdit(strenWinEdit,strlnDialogName,strlnValue,strnProp) Set obj_WinEdit = Description.Create obj_WinEdit ("Class Name").value = "WinEdit" obj_WinEdit ("attached text").value= strenWinEdit Set obj_Dialog = Description.Create obj_Dialog ("Class Name").value = "Dialog" obj_Dialog ("regexpwndtitle").value= strlnDialogName If strnProp = "Set" Then ' Set Property Dialog(obj_Dialog).WinEdit(obj_WinEdit).Set strlnValue End If End Sub

[Amit Singh Chauhan]

Yes I have associated this function library with the test. The second piece of code is in my test.

Scenerio is like this:
I have an Excel sheet in which I provide following columns
TestPurpose Object ObjectName Property Value
Login Dialog Login Click WinEdit Agent Name: Set ABCD
WinEdit Password: Set mercury
WinButton OK Click
Verification Window Flight Reservation Exist


Now I have made a Function Library in which I have written the code as DPWindow,DPDialog,DPWinEdit,DPWinButton.

And in my test after retrieving values from excel sheet row by row I am calling the above functions. Code for these two conditions I have pasted earlier.

I want to make my function library generic so that My excel sheet format remains same as above for each test case and Object Repository is not needed in it.

[Anshoo Arora]

Amit,

I think you have the correct concept, but you would need to correct your DP subroutines for them to be able to utilize the values retrieved from Excel. Please see my previous post for the same.

I would also suggest you read more about Descriptive Programming. Dani of AdvancedQTP.com has written a book (Scripting QTP) which you can download for free and is a very good source of understanding different ways of working with QTP Scripting.