VB.Net - WasCalledWithArguments

Ok thanks, I wasn't aware I had to fake the method in the first place in order to get this to work. I will give it a shot, thanks!!

 <TestMethod()>
    Public Sub AddOption()

        ' Arrange
        Dim criteria As New OptionCriteria

        criteria.OptionKey = OptionKeys.AssessorTabLabel
        criteria.OptionValue = "ASSESSOR"

        ' So that we can verify the method call with the proper criteria
        Isolate.WhenCalled(Function() _fakeDbContext.OptionEntities.Add(Nothing)).CallOriginal()

        ' Act 
        _optionsDal.AddOption(criteria)

        ' Assert/Verify
        Dim optionEntity As New OptionEntity

        Isolate.Verify.WasCalledWithArguments(Function() _fakeDbContext.OptionEntities.Add(Nothing)).Matching(Function(args) TypeOf args(0) Is OptionEntity)

    End Sub

I tried and got the same exception...

 

Method being tested. "MyDataContext" is being mocked.

Public Sub AddOption(ByVal criteria As OptionCriteria)

            Using dbContext As New MyDataContext(_connectionString)

                Dim optionEntity As New OptionEntity

                If criteria.UserId.HasValue Then

                    optionEntity.UserId = criteria.UserId.Value

                End If

                If Not String.IsNullOrWhiteSpace(optionEntity.Workstation) Then

                    optionEntity.Workstation = criteria.WorkstationName

                End If

                optionEntity.OptionKey = criteria.OptionKey
                optionEntity.OptionValue = criteria.OptionValue

                dbContext.OptionEntities.Add(optionEntity)
                dbContext.SaveChanges()

            End Using

        End Sub

 

Hi,

Some Questions

1. How are you faking _fakeDbContext?

2. How is OptionEntities defined?

3. How is Add defined?

Note: if the Add is part of mscorlib (List for example) then the best way to test this is to actually grab the list and check for the result.

e.g. 

_fakeDbContext.OptionEntities = New List(Of OptionEntities)
...

Dim optionEntity = _fakeDbContext.OptionEntities(0)

 

1) I am faking the _fakeDbContext like this:

     _fakeDbContext = Isolate.Fake.AllInstances(Of MyDataContext)

2) OptionEntities is defined as such in the unit test method:

     Dim optionEntities as New List(Of OptionEntity)

dbContext.OptionEntities is defined like this:

    Public Property OptionEntities as DbSet(Of OptionEntity)

3) Add is just off of a list as you mentioned.

I have tried to check the result but once executed the "OptionEntities" in my unit test method is still empty.