vb.net – 如何使用Moq举办活动？

我正在尝试在模拟界面中引发一个事件.我可以在C#中得到这个,但是因为一些痛苦的原因无法让它在VB.Net中运行.如果有人可以帮我解决这个问题,我会很感激.希望我没有错过概念上的船,我所缺少的是一些语法.这类似于我正在使用的代码：

Public Interface ISendable

Event SendMessage(message As String)

End Interface

''**********

Public Interface IPrintable

Sub PrintAnnouncement(announcement As String)

End Interface

'******

Public Class BulletinBoard

Private mPrintable As IPrintable

Public Sub New(sendable As ISendable,printable As IPrintable)
    AddHandler sendable.SendMessage,AddressOf GetItOut
    mPrintable = printable
End Sub

Public Sub GetItOut(message As String)
    'Do some stuff I can verify happened with Moq
    mPrintable.PrintAnnouncement(message)
End Sub
End Class

我希望得到一个看起来像这样的测试运行：

Imports NUnit.Framework
Imports Moq

<TestFixture()> _
Public Class SendMessageTests

<test()> _
Public Sub canRaiseEvent()
    Dim announcement As String = "What the?"
    Dim sendable As New Mock(Of ISendable)()
    Dim printable As New Mock(Of IPrintable)()

    Dim bb As New BulletinBoard(sendable.Object,printable.Object)
    'What is the Syntax for raising sendable's event?
    'sendable.Raise( ....? )

    printable.Verify(Sub(d) d.PrintAnnouncement(announcement),Times.Once())

End Sub

End Class

任何人都可以帮我完成或更正我的测试类中以“sendable.Raise …”开头的行吗？也许我需要做更多的设置,但是Moq网站似乎并没有表明情况如此.

提前致谢.

解决方法

使用此行,您的测试为绿色：

sendable.Raise(Sub(e) AddHandler e.SendMessage,AddressOf MockHandler,announcement)

您还需要创建一个“模拟”事件处理程序以使其工作：

Sub MockHandler()

End Sub

编辑：

我不是VB的人,因此使用内联匿名方法而不是MockHandler,它的语法更短：
：

sendable.Raise(Sub(e) AddHandler e.SendMessage,Function() vbEmpty,announcement)