From 8cd99e43efb2fc67b4a4a47064a75a76601d0454 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 25 Nov 2023 22:26:14 +0100
Subject: [PATCH] fpcunit: less hints

---
 components/fpcunit/ide/fratestinsightopts.pas          |  6 +++---
 components/fpcunit/testinsight/fpcunittestinsight.pas  | 10 ++++------
 components/fpcunit/testinsight/testinsightclient.pas   |  5 +++--
 components/fpcunit/testinsight/testinsightprotocol.pas |  2 +-
 4 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/components/fpcunit/ide/fratestinsightopts.pas b/components/fpcunit/ide/fratestinsightopts.pas
index c42b95dc31..0b565dd0d3 100644
--- a/components/fpcunit/ide/fratestinsightopts.pas
+++ b/components/fpcunit/ide/fratestinsightopts.pas
@@ -14,11 +14,11 @@ uses
   // LCL
   Forms, StdCtrls, Dialogs, Spin,
   // LazUtils
-  LazFileCache, LazFileUtils, LazStringUtils, FileUtil,
+  LazFileCache, LazFileUtils, FileUtil,
   // IdeIntf
-  IDEOptionsIntf, IDEOptEditorIntf, IDEUtils, IDEDialogs,
+  IDEOptionsIntf, IDEOptEditorIntf, IDEUtils,
   // FPCUnit
-  TestInsightController, strtestcaseopts;
+  TestInsightController, StrTestCaseOpts;
 
 Type
   { TTestInsightOptionsFrame }
diff --git a/components/fpcunit/testinsight/fpcunittestinsight.pas b/components/fpcunit/testinsight/fpcunittestinsight.pas
index d0d6a7092d..2f652dba88 100644
--- a/components/fpcunit/testinsight/fpcunittestinsight.pas
+++ b/components/fpcunit/testinsight/fpcunittestinsight.pas
@@ -1,11 +1,12 @@
-unit fpcunittestinsight;
+unit FpcUnitTestInsight;
 
 {$mode ObjFPC}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, types, fpjson, fpcunit, testregistry, testinsightprotocol, testinsightclient;
+  Classes, SysUtils, types, DateUtils, fpjson, fpcunit, testregistry,
+  TestInsightProtocol, TestInsightClient;
 
 type
 
@@ -27,7 +28,7 @@ type
   Protected
     procedure AddFailure(ATest: TTest; aFailure: TTestFailure); virtual;
     procedure AddError(ATest: TTest; aError: TTestFailure); virtual;
-    procedure StartTest(ATest: TTest); virtual;
+    procedure StartTest({%H-}ATest: TTest); virtual;
     procedure EndTest(ATest: TTest); virtual;
     procedure StartTestSuite(ATestSuite: TTestSuite); virtual;
     procedure EndTestSuite(ATestSuite: TTestSuite); virtual;
@@ -45,9 +46,6 @@ Procedure TestSuiteToJSON(aSuite : TTest; aJSON : TJSONObject);
 
 implementation
 
-uses
-  DateUtils;
-
 Function DefaultTestConfigFileName : String;
 begin
   Result:=ExtractFilePath(Paramstr(0));
diff --git a/components/fpcunit/testinsight/testinsightclient.pas b/components/fpcunit/testinsight/testinsightclient.pas
index 59e2d0c4a1..2616eec836 100644
--- a/components/fpcunit/testinsight/testinsightclient.pas
+++ b/components/fpcunit/testinsight/testinsightclient.pas
@@ -1,11 +1,12 @@
-unit testinsightclient;
+unit TestInsightClient;
 
 {$mode ObjFPC}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, types, testinsightprotocol, fphttpclient, fpjson, contnrs, inifiles;
+  Classes, SysUtils, types, fphttpclient, fpjson, contnrs, inifiles,
+  TestInsightProtocol;
 
 Type
 
diff --git a/components/fpcunit/testinsight/testinsightprotocol.pas b/components/fpcunit/testinsight/testinsightprotocol.pas
index 7db413a569..a988cf1b42 100644
--- a/components/fpcunit/testinsight/testinsightprotocol.pas
+++ b/components/fpcunit/testinsight/testinsightprotocol.pas
@@ -1,4 +1,4 @@
-unit testinsightprotocol;
+unit TestInsightProtocol;
 
 {$mode ObjFPC}{$H+}