Hi All,

Using parameterization concepts m trying to check the log in page,
below is the script


datatable.AddSheet "Login page parameterization-DMX"
datatable.ImportSheet "D:\Rag's\DMX\Automation testing scripts
\Automation test plan.xls",2,3
Datatable.ImportSheet "D:\Rag's\DMX\Automation testing scripts
\Automation test plan.xls",1,4
Datatable.ImportSheet "D:\Rag's\DMX\Automation testing scripts
\Automation test plan.xls",3,5
rc=datatable.GetSheet(3).GetRowCount
'msgbox rc

For i=1 to rc
    datatable.GetSheet(3).SetCurrentRow(i)
        systemutil.Run ""

        wait(20)

        Browser("DMX Admin").Page("Login page").WebEdit("txtUserName").Set
datatable("UN",3)
        Browser("DMX Admin").Page("Login page").WebEdit("txtPassword").Set
datatable("PASSWORD",3)
        Browser("DMX Admin").Page("Login page").Image("Login").Click

        wait(10)

    If Browser("DMX Admin").Page("Control panel").Image("User
Manager").exist  Then
                Datatable("ACTUALRESULT",3)="Pass"
        else
                Datatable("ACTUALRESULT",3)="Fail"
        End If

     If Datatable("ACTUALRESULT",3)="Pass" Then
                                  Datatable("STATUS",3)="Pass"
        else
                                  Datatable("STATUS",3)="Fail"
        End If


   If Browser("DMX Admin").Exist Then
           Browser("DMX Admin").Close
  End If

Next

Datatable.ExportSheet "D:\Rag's\DMX\Automation testing scripts
\Automation test plan-result.xls",3
datatable.ExportSheet "D:\Rag's\DMX\Automation testing scripts
\Automation test plan-result.xls",4
datatable.ExportSheet "D:\Rag's\DMX\Automation testing scripts
\Automation test plan-result.xls",5


Here i need script to count the total number of Test cases passes &
Failed ?
How to fill color for a cell  Ex: if TC is passed then fill cell with
green color & fail with Red color ?

-- 
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en

Reply via email to