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.

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

Answer / guest

Expert view (VB)
Data table

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

How will you get a subset of a array in vbscript?

0 Answers  

---

What are the differences between sub procedures and function procedures?

0 Answers  

---

Which object is used to work with the database in the vbscript language and what statement is used to create this object?

0 Answers  

---

Which data type/types are supported by vbscript language and what are their specialties?

0 Answers  

---

Explain the arrays in vb script?

0 Answers  

---

Mention what is vbscript procedures?

0 Answers  

---

Hellow friends, I am learning QTP,but here problem is VB script. please guide me how to learn VB script w.r.t QTP and if you know any books tell me or if you have any materials or any use full material or any else w.r.t QTP please post me p.p.sekhar

0 Answers  

---

about vb scripting programs this type of all question& answers

0 Answers  

---

What is the technology used by vb script?

0 Answers  

---

i created script for login in QTP,i parametirized that using global sheet,problem i am facing is first i want to login with first values provided in excelsheet and want to perform some operation,second time if call same action it should login with second values in excelsheet

2 Answers   TCS,

---

How regexp.execute method works?

0 Answers  

---

Which event is triggered when mouse focus comes out of an element in the vbscript language?

0 Answers  

---