From 18407e5fbcb190e9ce2fac88a469df5ab9793e8a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Fri, 31 Jan 2025 21:52:16 +0100
Subject: [PATCH] * Add status call

---
 packages/fpcunit/src/fpcunit.pas | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/packages/fpcunit/src/fpcunit.pas b/packages/fpcunit/src/fpcunit.pas
index 8e860ed..1575574 100644
--- a/packages/fpcunit/src/fpcunit.pas
+++ b/packages/fpcunit/src/fpcunit.pas
@@ -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);