Imports WatiN.Core
Public Class MyAssert
Public Shared Function AreEqual(ByVal whatData As String, ByVal valueOne As String, ByVal valueTwo As String, Optional ByVal whatMessage As String = "", Optional ByVal expectException As Boolean = False) As Boolean
Dim aReturnValue As Boolean = True
Dim m_logger As New Logger
Try
If IsNothing(valueOne) = True Then
valueOne = ""
End If
If IsNothing(valueTwo) = True Then
valueTwo = ""
End If
If valueOne.ToUpper.Equals(valueTwo.ToUpper) Then
m_logger.LogResultToTextFile(whatData & " matched.", True, False)
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & ": [" & valueOne & "] did not match [" & valueTwo & "]" & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
Catch ex As Exception
If expectException = True Then
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & ": [threw an exception " & ex.Message & "]" & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
End Try
Return aReturnValue
End Function
Public Shared Function Contains(ByVal whatData As String, ByVal valueOne As String, ByVal valueTwo As String, Optional ByVal whatMessage As String = "", Optional ByVal expectException As Boolean = False) As Boolean
Dim aReturnValue As Boolean = True
Dim m_logger As New Logger
Try
If IsNothing(valueOne) = True Then
valueOne = ""
End If
If IsNothing(valueTwo) = True Then
valueTwo = ""
End If
If valueOne.ToUpper.IndexOf(valueTwo.ToUpper) > 0 Then
m_logger.LogResultToTextFile(whatData & " contained value.", True, False)
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & ": [" & valueTwo & "] is not contained in [" & valueOne & "]" & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
Catch ex As Exception
If expectException = True Then
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & ": [threw an exception " & ex.Message & "]" & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
End Try
Return aReturnValue
End Function
Public Shared Function IsBlank(ByVal whatData As String, ByVal valueOne As String, Optional ByVal whatMessage As String = "", Optional ByVal expectException As Boolean = False) As Boolean
Dim aReturnValue As Boolean = True
size=3> Dim m_logger As New Logger
Try
If IsNothing(valueOne) = True Then
valueOne = ""
End If
If valueOne.Length = 0 Then
m_logger.LogResultToTextFile(whatData & " correctly found to be blank", True, False)
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & ": contained data when expected to be blank [" & valueOne & "]" & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
Catch ex As Exception
If expectException = True Then
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & ": [threw an exception " & ex.Message & "]" & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
End Try
Return aReturnValue
End Function
Public Shared Function IsFalse(ByVal whatData As String, ByVal valueOne As Boolean, Optional ByVal whatMessage As String = "", Optional ByVal expectException As Boolean = False) As Boolean
Dim aReturnValue As Boolean = True
Dim m_logger As New Logger
Try
If IsNothing(valueOne) = False AndAlso valueOne = False Then
m_logger.LogResultToTextFile(whatData & " was false.", True, False)
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & " was not false." & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
Catch ex As Exception
If expectException = True Then
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & ": [threw an exception " & ex.Message & "]" & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
End Try
Return aReturnValue
End Function
Public Shared Function IsTrue(ByVal whatData As String, ByVal valueOne As Boolean, Optional ByVal whatMessage As String = "", Optional ByVal expectException As Boolean = False) As Boolean
Dim aReturnValue As Boolean = True
Dim m_logger As New Logger
Try
If IsNothing(valueOne) = False AndAlso valueOne = True Then
m_logger.LogResultToTextFile(whatData & " was true.", True, False)
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & " was not true." & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
Catch ex As Exception
If expectException = True Then
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & ": [threw an exception " & ex.Message & "]" & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
End Try
Return aReturnValue
End Function
Public Shared Function NotBlank(ByVal whatData As String, ByVal valueOne As String, Optional ByVal whatMessage As String = "", Optional ByVal expectException As Boolean = False) As Boolean
Dim aReturnValue As Boolean = True
Dim m_logger As New Logger
Try
If IsNothing(valueOne) = False AndAlso valueOne.Length > 0 Then
m_logger.LogResultToTextFile(whatData & " contains data [" & valueOne & "]", True, False)
aReturnValue = True
Else
If IsNothing(valueOne) Then
m_logger.LogResultToTextFile(whatData & ": Value to compare is null." & whatMessage & StrDup(64, "<"), True, True)
m_logger.LogResultToTextFile(whatData & ": Increase pause length." & StrDup(64, "<"), True, True)
Else
m_logger.LogResultToTextFile(whatData & ": did not contain data when expected to do so." & whatMessage & StrDup(64, "<"), True, True)
End If
aReturnValue = False
End If
Catch ex As Exception
If expectException = True Then
aReturnValue = True
Else
m_logger.LogResultToTextFile(whatData & ": [threw an exception " & ex.Message & "]" & whatMessage & StrDup(64, "<"), True, True)
aReturnValue = False
End If
End Try
Return aReturnValue
End Function
Public Shared Function NotContains(ByVal whatData As String, ByVal valueOne As String, ByVal valueTwo As String, Optional ByVal whatMessage As String = "", Optional ByVal expectException As Boolean = False) As Boolean
Dim aReturnValue As Boolean = True
&nb