what is descriptive programming in QTP and what is
environment variable in QTP? where we store and what is its use?

Answers were Sorted based on User's Feedback



what is descriptive programming in QTP and what is environment variable in QTP? where we store and ..

Answer / manyam.muralireddy

descriptive programming: with out using object repository
to execute the test script.main purpose test execution is
faster.enviroment variable are two types: user
defined,system defined.

Is This Answer Correct ?    3 Yes 1 No

what is descriptive programming in QTP and what is environment variable in QTP? where we store and ..

Answer / nandhu

Following is taken from: sqaforums:
Link:
http://www.sqaforums.com/showflat.php?
Cat=0&Number=220886&an=0&page=0#Post220886

Descriptive programming is nothing but a technique using
which operations can be performed on the AUT object which
are not present in

the OR. For more details refer to
http://bondofus.tripod.com/QTP/DP_in_QTP.doc

Is This Answer Correct ?    2 Yes 2 No

what is descriptive programming in QTP and what is environment variable in QTP? where we store and ..

Answer / guest

Expert view (VB)
Data table

Is This Answer Correct ?    1 Yes 2 No

what is descriptive programming in QTP and what is environment variable in QTP? where we store and ..

Answer / hari

'************************************************
LOCATE *****************************************

Environment.LoadFromFile "[QualityCenter] Subject\WSOP8012-
SEP 08 CL\WSOP Automation Framework\Library
Function\Environment.ini"

GUILocate=Environment("GUILocate")
LocateSheet=Environment("LocateSheet")
RateSheet=Environment("RateSheet")
ZipCode=Environment("ZipCode")


'************************************************Locate
Object Creation*********************************************

CheckStatus(GUILocate)
Set Main=CreateruntimeObject(LocateSheet,"Main")

If Window(Main).Exist(0) Then
Else
Set Main=Alternateobject
(LocateSheet, "Main")
End If
Set Text1=CreateruntimeObject(LocateSheet,"Text1")
Set Locate=CreateruntimeObject(LocateSheet,"Locate")
Set UCMain=CreateruntimeObject(LocateSheet,"UCMain")
Set Dialogbutton=CreateruntimeObject
(LocateSheet,"Dialogbutton")
Set Clearf =CreateruntimeObject(LocateSheet,"Clearf ")
Set LocTable =CreateruntimeObject(LocateSheet,"LocTable ")
Set DialogBox=CreateruntimeObject(LocateSheet,"DialogBox")
Set btnLoc=CreateruntimeObject(LocateSheet,"btnLoc")
Set Pg=CreateruntimeObject(LocateSheet,"Pg")
Set RateTab=CreateruntimeObject(RateSheet,"RateTab")
Set btnHelp=CreateruntimeObject(LocateSheet,"lblHelp")
Set HelpMain=CreateruntimeObject(LocateSheet,"HelpMain")
Set HelpPage=CreateruntimeObject(LocateSheet,"HelpPage")
Set lblHelpClose=CreateruntimeObject
(LocateSheet,"lblHelpClose")
Set Web=CreateruntimeObject(LocateSheet,"Web")
Set HelpWin=CreateruntimeObject(LocateSheet,"HelpWin")


Window(Main).Activate
var=Window(Main).Page(Pg).ActiveX
(UCMain).SwfButton(btnLoc).Exist
If var Then
Window(Main).Page
(Pg).ActiveX(UCMain).SwfButton(btnLoc).Click'click on the
Locate tab
else
Msgbox "Locate Screen is not opened for
GUI Testing"

ExitTest
End If


' //////////////////////////////////////////////////////////
///////////////////////// code starts
here ///////////////////////////////////////////////
////////////////////////////////

'-----------------------------------------------------------
------ Connection Database -------------------------------
-----------------------------------------------

Set conn= fgGetConnection

set recset=createobject
("ADODB.RECORDSET")

recset.CursorType = 3

qry="Select
ObjectType,Objval,Objroproperty,Expected from
[Locate_GUI$] where ObjectType is not null and
TestStatus='Y' "

recset.Open qry, conn

cntre=recset.RecordCount


'------------------------------------------------------
Function Calls ---------------------------------------------
-----------------------------------------------
Call LocateMenu()
Call TestSet()
Call FontCheck()
Call BusinessValidation()
Call LocateTable()
Call HelpWindowChecking()

'-----------------------------------------------------------
------ Fetch GUI Datas from Database ----------------------
--------------------------------------------------------
Public function LocateMenu()

var=Window(Main).Page(Pg).ActiveX(UCMain).SwfButton
(btnLoc).Exist

If var Then

Window(Main).Page(Pg).ActiveX
(UCMain).SwfButton(btnLoc).Click

Window(Main).ActiveX
(UCMain).SwfLabel(Clearf).Click'click on thed Rate button
of the menu

Call UpdateResult
("Locate_Menu","Passed")



else

Call UpdateResult
("Locate_Menu","Failed")

Window(Main).Page(Pg).ActiveX
(UCMain).SwfButton(btnLoc).Click

End If
End Function

Public function TestSet()

'-------------------
--------------------------------- Checking whether the
webelements are in the window ---------------------------
--------------------------------------------------------
For i=1 to cntre

objecttype= recset.Fields(0)

objeval= recset.Fields(1)

objpty= recset.Fields(2)

Expected= recset.Fields(3)

Select Case objecttype


Case "SwfEdit"


Actual= Window(Main).Page(Pg).ActiveX
(UCMain).SwfEdit("swfname:="&objeval).Getroproperty(objpty)


Case "SwfButton"


Actual= Window(Main).Page
(Pg).ActiveX(UCMain).SwfButton("swfname
path:="&objeval).Getroproperty(objpty)

Case "SwfLabel"


Actual= Window(Main).Page(Pg).ActiveX
(UCMain).SwfLabel("swfname:="&objeval).Getroproperty(objpty)


Case "SwfTable"


Actual= Window(Main).Page(Pg).ActiveX
(UCMain).swftable("swfname path:="&objeval).Exist

End Select


Call Compare(Expected,
Actual,objeval,objpty)

recset.movenext
Next

End Function
'-----------------------------------------------------------
---------- Comparison Function -------------------------
------------------------------------------------------------
---------------------------
'comparing the expected result & Acutal result

Function Compare(Expected,Actual,ObjectVal,Pty)

If Trim(Expected)=Trim
(Actual) Then


Call ResultupdateGUI
(conn,GUILocate,"Locate_Screen","Passed","Executed",ObjectVa
l,Pty)
Else


Call ResultupdateGUI
(conn,GUILocate,"Locate_Screen","Failed","Executed",ObjectVa
l,Pty)
end if
End Function



'-----------------------------------------------------------
--- Compare Tab Font Function -------------------------
----------------------------------------------------
'Clicking on other tab and clicking the Locate tab again
for checking the font validation
Function FontCheck()



wdth=Window(Main).Page(Pg).ActiveX(UCMain).SwfButton
(btnLoc).GetROProperty("Width")


var= Window(Main).Page(Pg).ActiveX(UCMain).SwfButton
(RateTab).Exist

If var Then

Window(Main).Page(Pg).ActiveX
(UCMain).SwfButton(RateTab).Click



var1=Window(Main).Page(Pg).ActiveX
(UCMain).SwfButton(btnLoc).Exist

If var1 Then


Window(Main).Page(Pg).ActiveX(UCMain).SwfButton
(btnLoc).Click


wdth1=Window(Main).Page(Pg).ActiveX
(UCMain).SwfButton(btnLoc).GetROProperty("Width")

If
wdth=wdth1 Then


call UpdateResult
("Locate_Tab_Font","Passed")

else


call UpdateResult
("Locate_Tab_Font","Failed")

End
If

End IF


End
IF
End Function


'-----------------------------------------------------------
------------- Result update on excel sheets ------------
--------------------------------------------------
'Update the excel sheet for functional related GUI
testcases.

public Function UpdateResult(Testset,Result)
Call Resultupdate
(conn,GUILocate,Testset,1,Result,"Executed")
END Function


'-----------------------------------------------------------
------------- Business Validation --------------------
------------------------------------------

Function BusinessValidation()
Window
(Main).ActiveX(UCMain).SwfEdit(Text1).Set ""
Window
(Main).ActiveX(UCMain).SwfButton(Locate).Click
wait(1)

var = Window(Main).Dialog(DialogBox).exist(0)
If var Then

Window(Main).Dialog(DialogBox).WinButton
(Dialogbutton).Click

Call UpdateResult
("Locate_Business_Validation","Passed")

Else

Call UpdateResult
("Locate_Business_Validation","Failed")
End
IF
End Function

'-----------------------------------------------------------
------------- Textbox Validation & web service ----------
----------------------------------------------------
'checking for the textbox setting value & webservice error
message

Function LocateTable()

i=1
'ZipCode=fgGetData
(conn, "L_Zipcode", GUILocate,i, "Locate_TestData") ' can
use the environment variable for this.
Window(Main).ActiveX(UCMain).SwfEdit
(Text1).Set ZipCode

val=Window(Main).ActiveX
(UCMain).SwfEdit(Text1).GetROProperty("Text")
If val=ZipCode Then

Call UpdateResult("Locate_Textbox_Set","Passed")
else

Call UpdateResult("Locate_Textbox_Set","Failed")
End If
Window(Main).ActiveX(UCMain).SwfButton
(Locate).Click
wait
(1)

var = Window(Main).Dialog(DialogBox).exist(0)

If var Then

Window(Main).Dialog
(DialogBox).WinButton(Dialogbutton).Click

Call UpdateResult
("Locate_WebService_Error","Passed")

else

Call
LocateCountRows()

' Call
TableHeader() 'need to complete

End IF
End Function



'**********************Count the Rows Displayed After
Entering the Zip Code on Find Location
Screen****'**************

Public Function LocateCountRows()
var=Window(Main).ActiveX
(UCMain).swftable(LocTable).RowCount
If var<4 Then
Call UpdateResult
("Locate_Table_Values","Passed")
else
Call UpdateResult
("Locate_Table_Values","Passed")
End If
End Function


'-----------------------------------------------------------
------------- Table values ----------------------------
----------------------------------
'checking for the Table header values.
Function TableHeader()
var=Window(Main).ActiveX(UCMain).swftable
(LocTable).GetCellData(0,0)

MsgBox var
End Function

'-----------------------------------------------------------
------------- Help Window ----------------------------
----------------------------------

Function HelpWindowChecking()
Window
(Main).Page(Pg).ActiveX(UCMain).SwfButton(btnLoc).Click
Window
(Main).Page(Pg).ActiveX(UCMain).SwfLabel(btnHelp).Click
var=Window
(Main).SwfWindow(HelpMain).Exist(1)
If var Then

Call UpdateResult
("Locate_HelpWindow_Exist","Passed")
else

Call UpdateResult
("Locate_HelpWindow_Exist","Failed")
End If

valText=Window
(Main).Window(HelpWin).WebElement(Web).Object.innertext
HelpText=fgGetData
(conn, "L_Text", GUILocate,1, "Locate_Help_Text_Data")
If Trim(valText)
=trim(HelpText) Then
Call
UpdateResult("Locate_Help_Text","Passed")
else
Call
UpdateResult("Locate_Help_Text","Failed")
End If

Window(Main).SwfWindow
(HelpMain).SwfLabel(lblHelpClose).Click
var1=Window(Main).SwfWindow
(HelpMain).Exist(1)
If var1 Then

Call UpdateResult
("Locate_Help_Close","Failed")
else

Call UpdateResult
("Locate_Help_Close","Passed")
End If
End Function

Is This Answer Correct ?    1 Yes 2 No

Post New Answer

More VB Script Interview Questions

Explain about arrays in vb script?

0 Answers  


who will create the object?

0 Answers   Estuate,


Why do we use Option Explicit?

6 Answers  


What are the different types of operators and their order of precedence?

0 Answers  


Description.Create

0 Answers   IBM,


Write a code to print numbers from 5 to 0?

0 Answers  


What is wrong with the following code: <%afname="header.asp"%><!?#include file ="<%=afname%>"?>

1 Answers  


When inserting strings into a SQL table in ASP what is the risk and how can you prevent it?

1 Answers  


There is a web Table where You will find Two Columns First Column consist of Check box and Second column consist of Test cases ID(Viz T1,T2,T3....Etc); If You select any Test case ID, respective Check boxes to be checked write a VBSCRIPT for this scenario?

1 Answers   eMids,


What are the 2 ways in which a variable can be declared in the vbscript language?

0 Answers  


What is the purpose of the err object in the vbscript language?

0 Answers  


How will you convert a given number to long in vbscript?

0 Answers  


Categories