2

如何在 VB.Net 中使用 RhinoMocks 模拟一种方法？我找到的参考是在 C# 中：

 Expect.Call(delegate{list.Add(0);}).IgnoreArguments() 
     .Do((Action<int>)delegate(int item) { 
     if (item < 0) throw new ArgumentOutOfRangeException(); 
 });

SharpDevelop 将其转换为：

Expect.Call(Function() Do
            list.Add(0)
            End Function).IgnoreArguments().Do(DirectCast(Function(item As Integer) Do
                        If item < 0 Then
                            Throw New ArgumentOutOfRangeException()
                        End If
                       End Function, Action(Of Integer)))

但这也不起作用（它无法编译）。

这就是我想要做的：创建一个新对象并调用一个方法来设置该方法的一些属性。在现实生活中，此方法将使用在数据库中找到的值填充属性。在测试中，我想使用自定义方法/委托来模拟此方法，以便我可以自己设置属性（无需访问数据库）。

在伪代码中，这就是我想要做的：

 Dim _lookup As LookUp = MockRepository.GenerateMock(Of LookUp)()
 _luvalue.Expect(Function(l As LookUp) l.GetLookUpByName("test")).Do(Function(l As LookUp) l.Property = "value")
4

2 回答 2

3

不幸的是，您正在尝试同时执行 Sub lambda 和 Statement Lambda。VS2008 都不支持（但将在即将发布的 VS 版本中）。这是适用于 VB 的扩展版本

我在猜测 m_list 的类型

Class MockHelper
  Dim m_list as new List(Of Object)

  Public Sub New() 
    Expect(AddressOf CallHelper).IgnoreArguments().Do(AddressOf Do Hepler)
  End Sub

  Private Sub CallHelper() 
    m_list.Add(0)
  End Sub

  Private Sub DoHelper(ByVal item as Integer)
    if item < 0 Then
      Throw New ArgumentOutOfRangeException
    End If
  End Sub
End Class
于 2009-02-13T13:43:40.957 回答
1

我从来没有模拟过带有委托和 lambda 的东西，所以我不能给出这个问题的完整解决方案，但我确实想为 vb 开发人员分享 Rhino Mocks 3.5 中常用的“AssertWasCalled”函数的一些示例代码，因为我花了一些时间试图理解这个......（请记住，为简洁起见，以下内容保持简单）

这是正在测试的方法 - 可能在用户对象的服务类中找到

Public Sub DeleteUserByID(ByVal id As Integer) Implements Interfaces.IUserService.DeleteUserByID
      mRepository.DeleteUserByID(id)
End Sub

这是断言存储库方法被调用的交互式测试

  <TestMethod()> _
  Public Sub Should_Call_Into_Repository_For_DeleteProjectById()
    Dim Repository As IUserRepository = MockRepository.GenerateStub(Of IUserRepository)()
    Dim Service As IUserService = New UserService(Repository)

    Service.DeleteUserByID(Nothing)

    Repository.AssertWasCalled(Function(x) Wrap_DeleteUserByID(x))
  End Sub

这是用于确保这与 vb 一起工作的 wrap 函数

  Function Wrap_DeleteUserByID(ByVal Repository As IUserRepository) As Object
    Repository.DeleteUserByID(Nothing)

    Return Nothing
  End Function

我发现这是一个非常讨厌的解决方案，但是如果它可以帮助遇到我遇到的相同问题的人，那么花时间发布这个是值得的；）

于 2009-02-13T14:18:42.417 回答