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>
</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..
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..
![Cool Cool](https://www.learnqtp.com/forums/images/smilies/cool.gif)