如何使用Delphi Mocks验证多个模拟期望？

Delphi Mocks是一个用于模拟对象和验证行为的框架。它可以帮助开发人员在测试过程中创建模拟对象，并验证这些对象是否按照预期进行交互。

要验证多个模拟期望，可以按照以下步骤进行操作：

创建模拟对象：使用Delphi Mocks框架的功能，创建需要模拟的对象。例如，可以使用TMock<T>类创建一个模拟对象，其中T是要模拟的对象的类型。
设置模拟期望：对于每个模拟对象，使用WillExecute方法设置期望的行为。可以使用WillReturn方法设置返回值，使用WillRaise方法设置抛出异常，或使用WillExecute方法设置自定义行为。
执行被测试的代码：调用被测试的代码，使其与模拟对象进行交互。
验证模拟期望：使用CheckExpectations方法验证模拟对象是否按照预期进行交互。如果有任何未满足的期望，将抛出异常。

以下是一个示例代码，演示如何使用Delphi Mocks验证多个模拟期望：

uses
  DUnitX.TestFramework,
  DSharp.Core.Mock;

type
  {$M+}
  TMyClass = class
    function GetValue: Integer; virtual; abstract;
    procedure SetValue(AValue: Integer); virtual; abstract;
  end;

  TMyClassTests = class
  private
    FMock: TMock<TMyClass>;
    FValue: Integer;
  public
    [Setup]
    procedure Setup;
    [TearDown]
    procedure TearDown;
    [Test]
    procedure TestGetValue;
    [Test]
    procedure TestSetValue;
  end;

procedure TMyClassTests.Setup;
begin
  FMock := TMock<TMyClass>.Create;
end;

procedure TMyClassTests.TearDown;
begin
  FMock.Free;
end;

procedure TMyClassTests.TestGetValue;
begin
  FMock.Setup.WillReturn(42).When.GetValue;

  FValue := FMock.Instance.GetValue;

  FMock.CheckExpectations;
  Assert.AreEqual(42, FValue);
end;

procedure TMyClassTests.TestSetValue;
begin
  FMock.Setup.WillExecute(procedure(const Args: TArray<TValue>)
    begin
      FValue := Args[0].AsInteger;
    end).When.SetValue(42);

  FMock.Instance.SetValue(42);

  FMock.CheckExpectations;
  Assert.AreEqual(42, FValue);
end;

在上面的示例中，我们创建了一个名为TMyClass的抽象类，并使用Delphi Mocks框架创建了一个模拟对象FMock。然后，我们使用Setup方法设置了两个模拟期望：GetValue方法返回42，SetValue方法将参数值赋给FValue变量。

在TestGetValue和TestSetValue测试方法中，我们调用被测试的代码并与模拟对象进行交互。最后，我们使用CheckExpectations方法验证模拟对象是否按照预期进行交互，并使用断言来验证测试结果。

这是一个简单的示例，演示了如何使用Delphi Mocks验证多个模拟期望。根据具体的测试需求，可以使用更多的模拟期望和验证方法来进行更复杂的测试。