paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 13:39:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit: less hints

Browse Source
This commit is contained in:
mattias 2023-11-25 22:26:14 +01:00
parent 82c00b3c28
commit 8cd99e43ef
4 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpcunit/ide/fratestinsightopts.pas
View File

@ -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 }

10
components/fpcunit/testinsight/fpcunittestinsight.pas
View File

@ -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));

5
components/fpcunit/testinsight/testinsightclient.pas
View File

@ -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

2
components/fpcunit/testinsight/testinsightprotocol.pas
View File

@ -1,4 +1,4 @@
unit testinsightprotocol;
unit TestInsightProtocol;
{$mode ObjFPC}{$H+}