dynamicarrays/prj/Delphi/DynamicArraysOTests/BaseTest.pas - master - lasersquad/DynamicArrays

dynamicarrays/prj/Delphi/DynamicArraysOTests/BaseTest.pas

77 строк2 KB

lasersquad0

20 май 2026, 23:19

20 май 2026, 23:197cea8ba

unit BaseTest;

interface

type

 TBaseTest = class
 protected
   procedure CheckEquals(expected, actual: string; msg: string = ''); overload;
   procedure CheckEquals(expected, actual: integer; msg: string = ''); overload;
   procedure CheckEquals(expected, actual: Cardinal; msg: string = ''); overload;
   procedure CheckEquals(expected, actual: int64; msg: string = ''); overload;
   procedure CheckEquals(expected, actual: uint64; msg: string = ''); overload;
   procedure CheckEquals(expected, actual: extended; delta: extended; msg: string = ''); overload;
   procedure CheckEquals(expected, actual: TClass; msg: string = ''); overload;
   procedure CheckTrue(condition: Boolean; msg: string = '');
   procedure Check(condition: Boolean; msg: string = '');
   procedure Fail(msg: string);

 end;


implementation

uses DUnitX.TestFramework;

procedure TBaseTest.CheckEquals(expected, actual, msg: string);
begin
  Assert.AreEqual(expected, actual, msg);
end;

procedure TBaseTest.CheckEquals(expected, actual: integer; msg: string);
begin
  Assert.AreEqual(expected, actual, msg);
end;

procedure TBaseTest.CheckEquals(expected, actual: Cardinal; msg: string);
begin
  Assert.AreEqual(expected, actual, msg);
end;

procedure TBaseTest.CheckEquals(expected, actual: int64; msg: string);
begin
  Assert.AreEqual(expected, actual, msg);
end;

procedure TBaseTest.CheckEquals(expected, actual: uint64; msg: string);
begin
  Assert.AreEqual(expected, actual, msg);
end;

procedure TBaseTest.CheckEquals(expected, actual: TClass; msg: string);
begin
  Assert.AreEqual(expected, actual, msg);
end;

procedure TBaseTest.CheckEquals(expected, actual, delta: extended; msg: string);
begin
  Assert.AreEqual(expected, actual, delta, msg);
end;

procedure TBaseTest.CheckTrue(condition: Boolean; msg: string);
begin
  Assert.IsTrue(condition, msg);
end;

procedure TBaseTest.Check(condition: Boolean; msg: string);
begin
  CheckTrue(condition, msg);
end;

procedure TBaseTest.Fail(msg: string);
begin
  Assert.Fail(msg);
end;

end.