Тестирование Delphi-кода

// Отделите правило языка от удачного запуска PriceTests.
unit PriceTests;
interface
uses DUnitX.TestFramework;
type
  [TestFixture]
  TPriceTests = class
  public
    [Test]
    procedure TaxIsAdded;
  end;
implementation
procedure TPriceTests.TaxIsAdded;
begin
  Assert.AreEqual<Currency>(120, 100 * 1.2);
end;
initialization
  TDUnitX.RegisterTestFixture(TPriceTests);
end.

// Определите реальную гарантию в TestPortfolio.
unit TestPortfolio;
interface
uses DUnitX.TestFramework;
type
  [TestFixture]
  TOrderRules = class
    [TestCase('zero', '0,False')]
    [TestCase('positive', '10,True')]
    procedure AcceptsOnlyPositive(Value: Integer; Expected: Boolean);
  end;
implementation
procedure TOrderRules.AcceptsOnlyPositive(Value: Integer; Expected: Boolean);
begin
  Assert.AreEqual(Expected, Value > 0);
end;
end.

// Определите реальную гарантию в ExceptionTest.
unit ExceptionTest;
interface
uses DUnitX.TestFramework, System.SysUtils;
type
  [TestFixture]
  TParserTests = class
    [Test] procedure RejectsBrokenNumber;
  end;
implementation
procedure TParserTests.RejectsBrokenNumber;
begin
  Assert.WillRaise(
    procedure begin StrToInt('4x'); end,
    EConvertError);
end;
end.

// Определите реальную гарантию в ServiceTest.
unit ServiceTest;
interface
type
  IClock = interface
    function NowValue: TDateTime;
  end;
  TFakeClock = class(TInterfacedObject, IClock)
    Value: TDateTime;
    function NowValue: TDateTime;
  end;
implementation
function TFakeClock.NowValue: TDateTime;
begin Result := Value; end;
end.

// Проследите фактическое поведение FixtureIsolation.
unit FixtureIsolation;
interface
uses DUnitX.TestFramework, System.Classes;
type
  [TestFixture]
  TListTests = class
  private
    FList: TStringList;
  public
    [Setup] procedure SetUp;
    [TearDown] procedure TearDown;
    [Test] procedure StartsEmpty;
  end;
implementation
procedure TListTests.SetUp; begin FList := TStringList.Create; end;
procedure TListTests.TearDown; begin FList.Free; end;
procedure TListTests.StartsEmpty; begin Assert.AreEqual(0, FList.Count); end;
end.