paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 16:58:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add status call

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-31 21:52:16 +01:00
parent 729b61c87e
commit 18407e5fbc
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/fpcunit/src/fpcunit.pas
View File

@ -126,6 +126,7 @@ type
class procedure CheckEquals(expected, actual: double; delta: double; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: string; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: integer; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: NativeInt; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: boolean; msg: string = ''); overload;
class procedure CheckEquals(expected, actual: TClass; msg: string = ''); overload;
class procedure CheckNotEquals(expected, actual: string; msg: string = ''); overload;
@ -224,6 +225,8 @@ type
Public
Class Var CheckAssertCalled : Boolean;
public
procedure Status(const Msg: String);
procedure Status(const Fmt: String; const aArgs : Array of const);
constructor Create; virtual; reintroduce;
constructor CreateWith(const ATestName: string; const ATestSuiteName: string); virtual;
constructor CreateWithName(const AName: string); virtual;
@ -979,6 +982,16 @@ begin
Result:=False;
end;
procedure TTestCase.Status(const Msg: String);
begin
Writeln(msg);
end;
procedure TTestCase.Status(const Fmt: String; const aArgs: array of const);
begin
Status(Format(Fmt,aArgs));
end;
constructor TTestCase.Create;
begin
inherited Create;
@ -1105,7 +1118,7 @@ begin
raise EAssertionFailedError.Create(AMessage);
end;
class procedure TAssert.Fail(const AFmt: string; Args: array of Const);
class procedure TAssert.Fail(const AFmt: string; Args: array of const);
begin
Inc(AssertCount);
raise EAssertionFailedError.CreateFmt(AFmt,Args);
@ -1378,6 +1391,11 @@ begin
AssertEquals(msg, expected, actual);
end;
class procedure TAssert.CheckEquals(expected, actual: NativeInt; msg: string);
begin
AssertEquals(msg, expected, actual);
end;
class procedure TAssert.CheckEquals(expected, actual: boolean; msg: string);
begin
AssertEquals(msg, expected, actual);