paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 07:19:18 +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 // LCL
Forms, StdCtrls, Dialogs, Spin, Forms, StdCtrls, Dialogs, Spin,
// LazUtils // LazUtils
LazFileCache, LazFileUtils, LazStringUtils, FileUtil, LazFileCache, LazFileUtils, FileUtil,
// IdeIntf // IdeIntf
IDEOptionsIntf, IDEOptEditorIntf, IDEUtils, IDEDialogs, IDEOptionsIntf, IDEOptEditorIntf, IDEUtils,
// FPCUnit // FPCUnit
TestInsightController, strtestcaseopts; TestInsightController, StrTestCaseOpts;
Type Type
{ TTestInsightOptionsFrame } { TTestInsightOptionsFrame }

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

@ -1,11 +1,12 @@
unit fpcunittestinsight; unit FpcUnitTestInsight;
{$mode ObjFPC}{$H+} {$mode ObjFPC}{$H+}
interface interface
uses uses
Classes, SysUtils, types, fpjson, fpcunit, testregistry, testinsightprotocol, testinsightclient; Classes, SysUtils, types, DateUtils, fpjson, fpcunit, testregistry,
TestInsightProtocol, TestInsightClient;
type type
@ -27,7 +28,7 @@ type
Protected Protected
procedure AddFailure(ATest: TTest; aFailure: TTestFailure); virtual; procedure AddFailure(ATest: TTest; aFailure: TTestFailure); virtual;
procedure AddError(ATest: TTest; aError: 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 EndTest(ATest: TTest); virtual;
procedure StartTestSuite(ATestSuite: TTestSuite); virtual; procedure StartTestSuite(ATestSuite: TTestSuite); virtual;
procedure EndTestSuite(ATestSuite: TTestSuite); virtual; procedure EndTestSuite(ATestSuite: TTestSuite); virtual;
@ -45,9 +46,6 @@ Procedure TestSuiteToJSON(aSuite : TTest; aJSON : TJSONObject);
implementation implementation
uses
DateUtils;
Function DefaultTestConfigFileName : String; Function DefaultTestConfigFileName : String;
begin begin
Result:=ExtractFilePath(Paramstr(0)); Result:=ExtractFilePath(Paramstr(0));

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

@ -1,11 +1,12 @@
unit testinsightclient; unit TestInsightClient;
{$mode ObjFPC}{$H+} {$mode ObjFPC}{$H+}
interface interface
uses uses
Classes, SysUtils, types, testinsightprotocol, fphttpclient, fpjson, contnrs, inifiles; Classes, SysUtils, types, fphttpclient, fpjson, contnrs, inifiles,
TestInsightProtocol;
Type Type

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

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