How to check for a static text in a web page using desrciptive programming?

[jaykisan]

Hi Ankur,

Please let me know to check for an expected static text in a web page without using the text checkpoint concept.
Currently, I was trying to create a driver script which can drive though the test cases written in excel.Please have a look and let me know for any suggestions/improvements etc.
Here is the script:

Code:

DataTable.AddSheet "TestCases" DataTable.AddSheet "OR" DataTable.AddSheet "StepResults" DataTable.AddSheet"TestcaseResults" DataTable.AddSheet"CheckpointResults" DataTable.GetSheet ("StepResults").AddParameter "TestcaseName","" DataTable.GetSheet ("StepResults").AddParameter "Result","" DataTable.GetSheet ("TestcaseResults").AddParameter "TestcaseName","" DataTable.GetSheet ("TestcaseResults").AddParameter "Result","" DataTable.GetSheet ("CheckpointResults").AddParameter "TestcaseName","" DataTable.GetSheet ("CheckpointResults").AddParameter "CheckpointName","" DataTable.GetSheet ("CheckpointResults").AddParameter "Result","" Datatable.importSheet "D:\Temp_Official\Satya\Plz dont open FinalFramework\ExcelEngine\TestCases.xls","TestCases","TestCases" Datatable.importSheet "D:\Temp_Official\Satya\Plz dont open FinalFramework\ExcelEngine\AppMap.xls","OR","OR" temp=1 j=1 k=1 bool=0 'create_or("E:\Aruna Official\aruna framework\ExcelEngine\AppMap.xls") 'update_testcases("D:\Temp_Official\Satya\Plz dont open FinalFramework\ExcelEngine\TestCases.xls") Dim BrowserProperty,PageProperty,Object,ObjectProperty,i,x,BrowserName,ObjectName,PageName,z,temprc temprc= DataTable.GetSheet("TestCases").GetRowCount For i=1 to temprc Step 1 DataTable.GetSheet("TestCases").SetCurrentRow(i) If DataTable("TestcaseName","TestCases")<>"" Then temptc=DataTable("TestcaseName","TestCases") msgbox "Now about to run the test case :" &temptc End If 'To place final test case result and exit If DataTable("BrowserName","TestCases")="" Then DataTable.GetSheet("TestCases").SetCurrentRow(temp) DataTable.GetSheet("TestcaseResults").SetCurrentRow(j) If bool=1 Then DataTable("TestcaseName","TestcaseResults")=temptc DataTable("Result","TestcaseResults")="Fail" bool=0 Else DataTable("TestcaseName","TestcaseResults")=temptc DataTable("Result","TestcaseResults")="Pass" End If j=j+1 temp=i+1 Exit For End If 'For Check-Points Select Case DataTable("Action","TestCases") Case "check_link" check_link_save_delete() Case "check_error" check_error() Case "check_login" check_login() End Select 'For Object-Identification Select Case DataTable("Object","TestCases") set BrowserName=description.create BrowserName=DataTable("BrowserDescription","OR") set PageName=description.create PageName=DataTable("PageDescription","OR") set ObjectName=description.create ObjectName=DataTable("ObjectDescription","OR") Case "WebEdit" If DataTable("Action","TestCases")="InputText" Then Browser(BrowserName).Page(PageName).WebEdit(ObjectName).Set DataTable("Value","TestCases") End If Case "WebButton" If DataTable("Action","TestCases")="Click" Then set BrowserName=description.create BrowserName("title").value=DataTable("BrowserName","TestCases") set ObjectName=description.create ObjectName("value").value=DataTable("ObjectName","TestCases") set PageName=description.create PageName("title").value=DataTable("PageName","TestCases") Browser(BrowserName).Page(PageName).WebButton(ObjectName).Click End If Case "WinButton" If DataTable("Action","TestCases")="Click" Then set BrowserName=description.create BrowserName("name").value=DataTable("BrowserName","TestCases") set ObjectName=description.create ObjectName("text").value=DataTable("ObjectName","TestCases") 'regexpwndtitle set PageName=description.create PageName("text").value=DataTable("PageName","TestCases") Browser(BrowserName).Dialog(PageName).WinButton(ObjectName).Click 'Type micReturn End If Case "ImageButton" If DataTable("Action","TestCases")="Click" Then set BrowserName=description.create BrowserName("title").value=DataTable("BrowserName","TestCases") set PageName=description.create PageName("title").value=DataTable("PageName","TestCases") set ObjectName=description.create ObjectName("html id").value=".*"&DataTable("ObjectName","TestCases") Browser(BrowserName).Page(PageName).Image(ObjectName).Click End If Case "WebList" If DataTable("Action","TestCases")="Select" Then set BrowserName=description.create BrowserName("title").value=DataTable("BrowserName","TestCases") set PageName=description.create PageName("title").value=DataTable("PageName","TestCases") set ObjectName=description.create ObjectName("html id").value=".*"&DataTable("ObjectName","TestCases") Browser(BrowserName).Page(PageName).WebList(ObjectName).Select DataTable("Value","TestCases") End If Case "WebLink" If DataTable("Action","TestCases")="Click" Then set BrowserName=description.create BrowserName("title").value=DataTable("BrowserName","TestCases") set PageName=description.create PageName("title").value=DataTable("PageName","TestCases") set ObjectName=description.create ObjectName("name").value=".*"&DataTable("ObjectName","TestCases")&".*" Browser(BrowserName).Page(PageName).Link(ObjectName).Click End If End Select 'Step wise results stat="" Select Case Reporter.RunStatus Case 0 stat="Pass" Case 1 bool=1 stat="Fail" Case 2 stat="Done" Case 3 stat="Warning" End Select DataTable.GetSheet("StepResults").SetCurrentRow(i) DataTable("TestcaseName","StepResults")=DataTable("TestcaseName","TestCases") DataTable("Result","StepResults")=stat 'Check point wise results If mid((DataTable("Action","TestCases")),1,5)="check" Then DataTable.GetSheet("CheckpointResults").SetCurrentRow(k) DataTable("TestcaseName","CheckpointResults")=temptc DataTable("CheckpointName","CheckpointResults")=DataTable("Action","TestCases") DataTable("Result","CheckpointResults")=stat k=k+1 End If 'Test case wise results DataTable.GetSheet("TestCases").SetCurrentRow(i+1) If DataTable("TestcaseName","TestCases")<>"" Then DataTable.GetSheet("TestCases").SetCurrentRow(temp) DataTable.GetSheet("TestcaseResults").SetCurrentRow(j) If bool=1 Then DataTable("TestcaseName","TestcaseResults")=temptc DataTable("Result","TestcaseResults")="Fail" bool=0 Else DataTable("TestcaseName","TestcaseResults")=temptc DataTable("Result","TestcaseResults")="Pass" End If j=j+1 temp=i+1 End If Next Datatable.ExportSheet "D:\Temp_Official\Satya\Plz dont open FinalFramework\ExcelEngine\Results.xls","StepResults" Datatable.ExportSheet "D:\Temp_Official\Satya\Plz dont open FinalFramework\ExcelEngine\Results.xls","TestcaseResults" Datatable.ExportSheet "D:\Temp_Official\Satya\Plz dont open FinalFramework\ExcelEngine\Results.xls","CheckpointResults"

Thanks in Advance,
SatyaKiran Watts

[Ankur]

Could you please format the code first using "edit" option given below the post..it's difficult to go through the unformatted post.

[jaykisan]

Hi Ankur,

Please find the formatted Code.

Thanks & Regards,
SatyaKiran Watts

[upadhyay40]

Hi SatyaKiran/Ankur

I am new to QTP, i my self implement QTP in my organization, i did a lot, but i dint aware about the concept of datadriven testing (I have theoretical knowledge), can you please give me or send me the whole framework demo so i will look at into it and implement on my end, please take in consider this, hoping for your kind cooperation. My mail id upadhyay40@gmail.com

Thanks

Mahesh

---

Hi SatyaKiran,

You done a excellent job, please send me the framework so i can explore my knowledge, looking for kind response.

Thanks
Mahesh

[Saket]

Hi Mahesh,
always create a new thread for your query, don't divert a thread posting your query in between a thread which is not relevant to the orignal query.