chevron-thin-right chevron-thin-left brand cancel-circle search youtube-icon google-plus-icon linkedin-icon facebook-icon twitter-icon toolbox download check linkedin phone twitter-old google-plus facebook profile-male chat calendar profile-male
Ask a question
The Unit Testing Company
Development Resources
Knowledge Base
Welcome to Typemock Community! Here you can ask and receive answers from other community members. If you liked or disliked an answer or thread: react with an up- or downvote.

Related questions

VB.Net - WasCalledWithArguments

0 votes 
Hello,

I am trying to make use of the WasCalledWithArguments function but am having problems with the Matching statement. Below is my code:

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

When debugging, the "args" is empty and I get an index out of range exception trying to access args(0). It seems to not be picking up the argument passed into the Add method. What am I doing wrong?

asked by donniedarko
Report User
 (3.8k points)

1 Answer

0 votes

Hi,

The verify call on it's own seems fine.

The methods used in verify must be faked, did you fake _fakeDbContext.OptionEntities.Add?

Note that you should use whenCalled(...).CallOriginal if you want the original behavior of the method.

See example:

Public Class AClass

    Public Sub DoWorkWithParams(num As Integer)

    End Sub

End Class


<TestMethod()>
Public Sub verifyCalledWithParams_CheckType()

    Dim a As New AClass
    Isolate.WhenCalled(Sub() a.DoWorkWithParams(Nothing)).CallOriginal()

    a.DoWorkWithParams(0)

    Isolate.Verify.WasCalledWithArguments _
    (Sub() a.DoWorkWithParams(Nothing)) _
                    .Matching(Function(args) TypeOf (args(0)) Is Integer)

End Sub
 

Let me know if it helps.

answered by alex
Report User
 (17k points)
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!!
commented by donniedarko
Report User
 (3.8k points) 
 <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...

 

commented by donniedarko
Report User
 (3.8k points) 
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

 

commented by donniedarko
Report User
 (3.8k points)

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)

 

commented by eli
Report User
 (5.7k points)
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.
commented by donniedarko
Report User
 (3.8k points)
...

Products

Help

Company

Community

Contact

Typemock Store (US toll FREE 866–895–4680). Copyright © 2006 Typemock Inc. All rights reserved. Terms of Use.