Automate Spiratest mgt tool to add testcases

[basanth27]

Malini -
I regret opening a pandora's box here. Virtual Objects are supposed to be very unstable and ineffective and should be used only in rare case.
You were correct in creating it. Open the OR manager, click on Open, navigate to c:\program files\Mercury Interactive\QuickTest Proffesional\dat\VoTemplate and open the file. You will get the objects added to the Repository.
Use them in your script, It may look like,
Browser().Page().VirtualButton("nameofthebutton").click

PS : I would advise you give up this method if it does not work because persistence with this method kills time and nothing else. This does not signify a hope-less situation.

[Malini]

Hi Basanth,

I will try both methods:
1. first Now I tried to recognize the object just outside the webelement before the click which is a webtable and its recognized...Now, I am trying to extract the cells in the webtable(which are nothing but the webelements).
****till here its working now..
Once I capture the cells, I will check if the cells exist before i perform a click->if exists then click it...after clicking change the properties and then perform the action of copying and pasting the steps and expected results into the cells.
click save...
once this works, I will try te second method of VO..

Thanks,
Malini

---

I am able to open the virtual object file...and now its got converted to .tsr..

[Malini]

Hi Basanth,
The code is working perfect, I just tested out for 25 test cases..Thanks a ton for your valuable suggestion and such a quick help...

<p>

Code:

For i=50 to 77 datatable.SetCurrentRow(i) tcname=datatable("testname",dtGlobalsheet) row1=datatable("steps",dtGlobalsheet) expres=datatable("expected",dtGlobalsheet) blank="" 'msgbox(row1) If Browser("name:=SpiraTest.*").Page("title:=SpiraTest.*").WebEdit("html id:=ctl00_cplMainContent_txtName").Exist Then msgbox("testcase name field exists") Reporter.ReportEvent micPass,"webedit Check", "webedit Exists" Browser("name:=SpiraTest.*").Page("title:=SpiraTest.*").WebEdit("html id:=ctl00_cplMainContent_txtName").Set blank wait 2 Browser("name:=SpiraTest.*").Page("title:=SpiraTest.*").WebEdit("html id:=ctl00_cplMainContent_txtName").Set tcname wait 1 Else Reporter.ReportEvent micFail,"webedit Check", "webedit does Not Exist" End If wait 1 If Browser("SpiraTest | Test Case").Page("SpiraTest | Test Case").WebElement("WebElement1").Exist Then wait 1 msgbox "webelement exists" Browser("SpiraTest | Test Case").Page("SpiraTest | Test Case").WebElement("WebElement1").FireEvent "onmouseover" Browser("SpiraTest | Test Case").Page("SpiraTest | Test Case").WebElement("WebElement1").FireEvent "click" wait 3 else msgbox("webelement not exist") wait 2 end if If browser("SpiraTest | Test Case1").Page("SpiraTest | Test Case1").Frame("Frame").WebElement("WebElement2").Exist Then msgbox("After click webelement exists") Set oEdit=browser("SpiraTest | Test Case1").Page("SpiraTest | Test Case1").Frame("Frame").WebElement("WebElement2") oEdit.object.innertext = row1 wait 3 else msgbox("After click webelement does not exist") End If browser("SpiraTest | Test Case").Page("SpiraTest | Test Case").Image("Save and create a new").Click wait 8 DataTable.SetNextRow Next

</p>
-------------------------------------------------------------------
Right now the coding is done for the test case entry, the same logic holds for the expected result, which I will implement soon..