2

正如标题所示，我正在尝试编写一个测试来验证方法的一个版本是否被调用，而重载版本不是。由于 Delphi-Mocks 似乎在参数匹配上使用索引，我看到失败，并且实际上调用了重载函数，而不是。

样例测试接口

TFoo = class(TObject)
public 
    function Bar(const a, b, c: string) : string; overload;virtual;
    function Bar(const a: string) : string; overload;virtual;
end;

示例测试代码

procedure TestClass.Test
var mock : TMock<TFoo>;
    bar : TBar;
begin
    mock := TMock<TFoo>.Create;
    bar := TBar.Create(mock);
    mock.Setup.Expect.Once.When.Bar('1','2','3');
    mock.Setup.Expect.Never.When.Bar(It(0).IsAny<string>());        

    //Will Wind up down an if-branch calling either bar(1) or bar(3)
    bar.Execute; 

    mock.VerifyAll;        
end;

谢谢！

4

2 回答 2

2

Spring Mocks（即将发布的 1.2 版本的一部分）中的 FWIW 相同的测试如下所示：

procedure TestClass.Test;
var
  mock: Mock<TFoo>;
  bar: TBar;
begin
  foo := TBar.Create(mock);

  bar.Execute; 

  mock.Received(1).Bar('1', '2', '3');
  mock.Received(0).Bar(Arg.IsAny<string>);
end;

正如您所注意到的，这个概念有点不同。如果您使用模拟行为动态（这是默认值）运行，则允许每次调用模拟并返回函数的默认值（如空字符串、0 或 nil）。之后，您可以使用 Received 检查方法是否调用了预期时间。

于 2016-04-06T10:01:33.147 回答
1

您可以使用“WillExecute”来检查这一点。例如：

procedure TestClass.Test;
var
  mock : TMock<TFoo>;
  bar : TBar;
  CheckPassed: Boolean;
begin
  mock := TMock<TFoo>.Create;
  bar := TBar.Create(mock);

  CheckPassed := True;
  mock.Setup.WillExecute('Bar',
    function(const Args: TArray<TValue>; const ReturnType: TRttiType): TValue
    begin
      if Length(Args) = 2 then // one is for "Self"
        CheckPassed := False;
    end);

  //Will Wind up down an if-branch calling either bar(1) or bar(3)
  bar.Execute;

  Assert(CheckPassed);
end;
于 2016-04-06T06:30:10.727 回答