‘###################################################################################
‘UTILITY OBJECTS – R E P O R T E R
‘###################################################################################
‘--------------------------------------------------------------------------------------------------------------------------------------------------------
Method: ReportEvent
Description:
Syntax:
Reporter.ReportEvent EventStatus, ReportStepName, Details [, ImageFilePath]
Example:
If Browser("title:=Gmail: Email from Google").Exist Then
Reporter.ReportEvent micPass,"Verify Gmail Window", "Gmail Window Exists as Expected"
Else
Reporter.ReportEvent micFail,"Verify Gmail Window", "Gmail Window NOT Exists as Expected"
End If
‘--------------------------------------------------------------------------------------------------------------------------------------------------------
‘--------------------------------------------------------------------------------------------------------------------------------------------------------
Method: Filter
Description:
Filters the Reporting Types to Results
Syntax:
Reporter.Filter = FilterType
FilterType will be one of the following
rfEnableAll - Reporter enables for all type of Reports
rfEnableErrorsAndWarnings - Reporter enables only for Errors and Warnings
rfEnableErrorsOnly - Reporter enables only for Errors
Example:
1. Reporter.Filter = rfEnableAll
2. Reporter.Filter = rfEnableErrorsAndWarnings
3. Reporter.Filter = rfEnableErrorsOnly
‘--------------------------------------------------------------------------------------------------------------------------------------------------------
‘--------------------------------------------------------------------------------------------------------------------------------------------------------
Method: RunStatus
Description:
Retrieves the Current Execution Status either Pass or Fail
Syntax:
Reporter.RunStatus
Example:
If Reporter.RunStatus = micPass Then
MsgBox “Current Execution Status is Pass”
Else
MsgBox “Current Execution Status is Fail”
End If
‘--------------------------------------------------------------------------------------------------------------------------------------------------------
‘--------------------------------------------------------------------------------------------------------------------------------------------------------
Method: ReportPath
Description:
Retrieves the Current Results Location
Syntax:
Reporter. ReportPath
Example:
MsgBox (Reporter.ReportPath)
‘--------------------------------------------------------------------------------------------------------------------------------------------------------
‘###################################################################################
No comments:
Post a Comment