Jimmy,
When you set m_ConcreteITestInterface to View, you are actually adding an event listener. Because MockObjects are Strict by default (that is all methods must be expected) the test fails.
Here is how you can solve it:
<Test()> _
Public Sub RunTest()
MockManager.Init()
Dim Mock As MockObject = MockManager.MockObject(GetType(ITestInterface))
' Expect the event to be added
Mock.ExpectAddEvent("Save")
Dim ITestInterfaceMock As ITestInterface = Mock.Object
Dim TestClassInstance As New TestClass(ITestInterfaceMock)
End Sub
Once you have that you can take the tests further and actually Raise the event. Here is how:
Save the event handle:
Dim SaveEvent As MockedEvent = Mock.ExpectAddEvent("Save")
Then you can raise the event and verify that your code works by:
SaveEvent.Fire()