Raise exception if you try to mock a non-virtual method

[Laurensvanrun]

This is a solution for "No warning or error reported for non-virtual method calls. #47"

[vincentparrett]

Nice one thanks

[sglienke]

To be fair the exception only gets raised at the epilogue of the routine because that is the point where the _Release gets called which triggers the exception. This might be way after any other code that relies on the mock behavior and might already fail.

I am also not sure if multiple calls to the mock might disable the exception because they will change FSetupMode.

So this might only succeed in the two synthetic tests.

Confirmed - change the test as below and it will fail:

  Assert.WillRaise(
    procedure
    begin
      mock.Setup.Expect.Once.When.NonVirtualMethod;
      mock.Setup.Expect.Once.When.VirtualMethod;
    end);