如何使用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;