paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Namespaced version of testinsight units

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-25 14:57:18 +01:00
parent 952f6ebf23
commit f206de7030
7 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/testinsight/namespaced/TestInsight.Client.pp Normal file
View File

@ -0,0 +1,3 @@
{$DEFINE FPC_DOTTEDUNITS}
unit TestInsight.Client;
{$i testinsightclient.pp}

3
packages/testinsight/namespaced/TestInsight.FpcUnit.pp Normal file
View File

@ -0,0 +1,3 @@
{$DEFINE FPC_DOTTEDUNITS}
unit TestInsight.FpcUnit;
{$i fpcunittestinsight.pp}

3
packages/testinsight/namespaced/TestInsight.Protocol.pp Normal file
View File

@ -0,0 +1,3 @@
{$DEFINE FPC_DOTTEDUNITS}
unit TestInsight.Protocol;
{$i testinsightprotocol.pp}

5
packages/testinsight/namespaces.lst Normal file
View File

@ -0,0 +1,5 @@
{s*:src/}=namespaced/
{i+:src/}
src/fpcunittestinsight.pp=namespaced/TestInsight.FpcUnit.pp
src/testinsightclient.pp=namespaced/TestInsight.Client.pp
src/testinsightprotocol.pp=namespaced/TestInsight.Protocol.pp

10
packages/testinsight/src/fpcunittestinsight.pp
View File

@ -12,14 +12,20 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} **********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit fpcunittestinsight; unit fpcunittestinsight;
{$ENDIF}
{$mode ObjFPC}{$H+} {$mode ObjFPC}{$H+}
interface interface
uses uses
{$IFDEF FPC_DOTTEDUNITS}
System.Classes, System.SysUtils, System.Types, FpJson.Data, FpcUnit.Test, FpcUnit.Registry, TestInsight.Protocol, TestInsight.Client;
{$ELSE}
Classes, SysUtils, types, fpjson, fpcunit, testregistry, testinsightprotocol, testinsightclient; Classes, SysUtils, types, fpjson, fpcunit, testregistry, testinsightprotocol, testinsightclient;
{$ENDIF}
type type
@ -60,7 +66,11 @@ Procedure TestSuiteToJSON(aSuite : TTest; aJSON : TJSONObject);
implementation implementation
uses uses
{$IFDEF FPC_DOTTEDUNITS}
System.DateUtils;
{$ELSE}
DateUtils; DateUtils;
{$ENDIF}
Function DefaultTestConfigFileName : String; Function DefaultTestConfigFileName : String;
begin begin

6
packages/testinsight/src/testinsightclient.pp
View File

@ -12,14 +12,20 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} **********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit testinsightclient; unit testinsightclient;
{$ENDIF}
{$mode ObjFPC}{$H+} {$mode ObjFPC}{$H+}
interface interface
uses uses
{$IFDEF FPC_DOTTEDUNITS}
System.Classes, System.SysUtils, System.Types, TestInsight.Protocol, FpWeb.Http.Client, FpJson.Data, System.Contnrs, System.IniFiles;
{$ELSE}
Classes, SysUtils, types, testinsightprotocol, fphttpclient, fpjson, contnrs, inifiles; Classes, SysUtils, types, testinsightprotocol, fphttpclient, fpjson, contnrs, inifiles;
{$ENDIF}
Type Type

6
packages/testinsight/src/testinsightprotocol.pp
View File

@ -12,14 +12,20 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} **********************************************************************}
{$IFNDEF FPC_DOTTEDUNITS}
unit testinsightprotocol; unit testinsightprotocol;
{$ENDIF}
{$mode ObjFPC}{$H+} {$mode ObjFPC}{$H+}
interface interface
uses uses
{$IFDEF FPC_DOTTEDUNITS}
System.Classes, System.SysUtils, FpJson.Data;
{$ELSE}
Classes, SysUtils, fpJSON; Classes, SysUtils, fpJSON;
{$ENDIF}
Type Type
ETestInsight = class(Exception); ETestInsight = class(Exception);