How to verify object property using UFT

We have to verify object property using UFT in almost every automation script we create while working on any test automation project. Here we have written a ready-to-use code block for verifying object property using UFT.

This function takes the object, expected property name, expected property value, and test case id as an argument.

This function removes the line change from expected and actual values before comparing them to remove any discrepancy generated because of different types of newline characters in rendering.

This function can also verify object property if the expected property value is Blank.

Function to verify object property using UFT

Function VerifyObjectProperty(objweb,expPropertyName,expPropValue,TC)
    
    If IsObject(objweb) Then
        
        sActProp = Replace(objWeb.getROProperty(expPropertyName),vbCrLf,"")
        expPropValue = Replace(expPropValue,Chr(10),"")
        
        Select Case expPropValue
            Case "Blank","BLANK"
            If Len(Trim(sActProp)) = 0 Then
                reporter.ReportEvent micPass, TC & "- Validation of " & expPropertyName & "- property in  " & objweb.ToString , "Application Value= Blank" & vbCrLf & "Expected Value = Blank"
                VerifyObjectProperty = True
            Else
                reporter.ReportEvent micFail, TC & "- Validation of " & expPropertyName & "- property in  " & objweb.ToString , "Application Value= " & sActProp & vbCrLf & "Expected Value = " & expPropValue
                VerifyObjectProperty = False
            End If
            
            Case Else
            If IsDate(expPropValue) Then
                
                If  CDate(sActProp) = CDate(expPropValue) Then
                    
                    reporter.ReportEvent micPass, TC & "- Validation of " & expPropertyName & "- property in  " & objweb.ToString , "Application Value= " & sActProp & vbCrLf & "Expected Value = " & expPropValue
                    VerifyObjectProperty = True
                    CaptureScreenShot(TC)
                Else
                    reporter.ReportEvent micFail, TC & "- Validation of " & expPropertyName & "- property in  " & objweb.ToString , "Application Value= " & sActProp & vbCrLf & "Expected Value = " & expPropValue
                    VerifyObjectProperty = False
                    CaptureScreenShot(TC)
                End If
                
            Else
                
                Select Case TC
                    Case "Equal","EQUAL"
                    If StrComp(Trim(sActProp),Trim(expPropValue)) = 0 Then
                        
                        reporter.ReportEvent micPass, TC & "- Validation of " & expPropertyName & "- property in  " & objweb.ToString , "Application Value= " & sActProp & vbCrLf & "Expected Value = " & expPropValue
                        VerifyObjectProperty = True
                        CaptureScreenShot(TC)
                    Else
                        reporter.ReportEvent micFail, TC & "- Validation of " & expPropertyName & "- property in  " & objweb.ToString , "Application Value= " & sActProp & vbCrLf & "Expected Value = " & expPropValue
                        VerifyObjectProperty = False
                        CaptureScreenShot(TC)
                    End If
                    
                    Case "Contain"
                    If InStr(Trim(sActProp),Trim(expPropValue)) > 0 Then
                        
                        reporter.ReportEvent micPass, TC & "- Validation of " & expPropertyName & "- property in  " & objweb.ToString , "Application Value= " & sActProp & vbCrLf & "Expected Value = " & expPropValue
                        VerifyObjectProperty = True
                        CaptureScreenShot(TC)
                    Else
                        reporter.ReportEvent micFail, TC & "- Validation of " & expPropertyName & "- property in  " & objweb.ToString , "Application Value= " & sActProp & vbCrLf & "Expected Value = " & expPropValue
                        VerifyObjectProperty = False
                        CaptureScreenShot(TC)
                    End If
                    Case Else
                    
                    If InStr(Trim(sActProp),Trim(expPropValue)) > 0 Or StrComp(Trim(sActProp),Trim(expPropValue)) = 0 Then
                        
                        reporter.ReportEvent micPass, TC & "- Validation of " & expPropertyName & "- property in  " & objweb.ToString , "Application Value= " & sActProp & vbCrLf & "Expected Value = " & expPropValue
                        VerifyObjectProperty = True
                        CaptureScreenShot(TC)
                    Else
                        reporter.ReportEvent micFail, TC & "- Validation of " & expPropertyName & "- property in  " & objweb.ToString , "Application Value= " & sActProp & vbCrLf & "Expected Value = " & expPropValue
                        VerifyObjectProperty = False
                        CaptureScreenShot(TC)
                    End If
                End Select
            End If
        End Select
    Else
        reporter.reportEvent micFail, "Object not found on the page for " & expPropertyName & "-" & expPropValue,""
        VerifyObjectProperty = False
        
    End If
End Function