'@TestMethod("Mock")
Private Sub MockTest()

    'mock the factory interface
    Dim sut As Rubberduck.ComMock
    Set sut = Mocks.Mock("IAppTimer", "AmbientContext")
    sut.Setup "ExecuteMacroAsync"

    'invoke SUT method
    Dim mocked As IAppTimer
    Set mocked = sut.Object
    mocked.ExecuteMacroAsync

    'assert that the method was called
    Assert.IsTrue sut.Verify("ExecuteMacroAsync", Mocks.Times.Never)

End Sub

        [Test]
        [TestCase(IID_FileSystem3_String)]
        [TestCase(IID_FileSystem_String)]
        public void Mock_Verify_WithSetup_WithExpectedInvocationCount_Passes(string IID)
        {
            var pUnk = IntPtr.Zero;
            var pProxy = IntPtr.Zero;

            const int expectedAssertsCompleted = 1;
            const Rubberduck.UnitTesting.TestOutcome expectedOutcome = Rubberduck.UnitTesting.TestOutcome.Succeeded;
            var assertsCompleted = 0;
            Rubberduck.UnitTesting.TestOutcome outcome = Rubberduck.UnitTesting.TestOutcome.Unknown;

                foreach (var setupData in setupDatas)
                {
                    var builder = MockExpressionBuilder.Create(Mock);
                    builder.As(setupData.DeclaringType)
                        .Verify(setupData.SetupExpression, Times, setupData.Args)
                        .Execute();
                }

            try
            {
                foreach (var setupData in setupDatas)
                {
                    var builder = MockExpressionBuilder.Create(Mock);
                    builder.As(setupData.DeclaringType)
                        .Verify(setupData.SetupExpression, Times, setupData.Args)
                        .Execute();
                }
            }
            catch (TargetInvocationException exception)
            {
                if (exception.InnerException is MockException)

    var throwingExecutions = 0;
    MockException lastException = null;
    foreach (var setupData in setupDatas)
    {
        try
        {
            var builder = MockExpressionBuilder.Create(Mock);
            builder.As(setupData.DeclaringType)
                .Verify(setupData.SetupExpression, Times, setupData.Args)
                .Execute();
        }
        catch (TargetInvocationException exception)
        {
            if (exception.InnerException is MockException inner)
            {

Private Sub Test1()
    Dim dicMock As ComMock
    Set dicMock = Mocks.Mock("Class1", "VBAProject")
    dicMock.SetupWithReturns "Foo", 42

    Dim idic As Class1
    Set idic = dicMock.Object

'@ModuleInitialize
Private Sub ModuleInitialize()
    'this method runs once per module.
    #If LateBind Then
        Set Assert = CreateObject("Rubberduck.AssertClass")
        Set Fakes = CreateObject("Rubberduck.FakesProvider")
        Set Mocks = CreateObject("Rubberduck.MockProvider")
    #Else
        Set Assert = New Rubberduck.AssertClass
        Set Fakes = New Rubberduck.FakesProvider
        Set Mocks = New Rubberduck.MockProvider
    #End If
End Sub

Public Const Foo As Long = 42

Public Enum ThisEnum
    ThisFoo = Foo
End Enum