M_clsLogFilterString_Test.def

Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Compare Text
Option Explicit

'AccUnit:TestClass

Dim objFilter As clsLogFilterString

Public Sub Setup()
  Set objFilter = New clsLogFilterString
End Sub

Public Sub Filter_WithCompareEqual_MatchesString()
  Dim result As Boolean
  
   ' Arrange
  With objFilter
    .Entry = "Dummy"
    .Match = IsEqualTo
    .Value = "Very Interesting Value"
  End With
  
  ' Act
  result = objFilter.MatchesString("Very Interesting Value")
  
  ' Assert
  Assert.IsTrue result
End Sub

Public Sub Filter_WithCompareBeginsWith_MatchesString()
  Dim result As Boolean
  
   ' Arrange
  With objFilter
    .Entry = "Dummy"
    .Match = BeginsWith
    .Value = "Very "
  End With
  
  ' Act
  result = objFilter.MatchesString("Very Interesting Value")
  
  ' Assert
  Assert.IsTrue result
End Sub


Public Sub Filter_WithContains_MatchesString()
  Dim result As Boolean
  
   ' Arrange
  With objFilter
    .Entry = "Dummy"
    .MatchFromString = "Contains"
    .Value = "Interesting"
  End With
  
  ' Act
  result = objFilter.MatchesString("Very Interesting Value")
  
  ' Assert
  Assert.IsTrue result
End Sub

' ------------------------------------------------------------------------

Public Sub Filter_ConvertsToString()
  Dim result As String
  
   ' Arrange
  With objFilter
    .Entry = "Dummy"
    .Match = DoesNotContain
    .Value = "Very Interesting Value"
  End With
  
  ' Act
  result = objFilter.ToString
  
  ' Assert
  Assert.AreEqualStrings "Dummy Does Not Contain 'Very Interesting Value'", result
  
End Sub