* Namespaced version of testinsight units

packages/testinsight/namespaced/TestInsight.Client.pp

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

packages/testinsight/namespaced/TestInsight.FpcUnit.pp

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

packages/testinsight/namespaced/TestInsight.Protocol.pp

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

packages/testinsight/namespaces.lst

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

packages/testinsight/src/fpcunittestinsight.pp

@@ -12,14 +12,20 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit fpcunittestinsight;
+{$ENDIF}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
 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;
+{$ENDIF}
 
 type
 
@@ -60,7 +66,11 @@ Procedure TestSuiteToJSON(aSuite : TTest; aJSON : TJSONObject);
 implementation
 
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  System.DateUtils;
+{$ELSE}  
   DateUtils;
+{$ENDIF}
 
 Function DefaultTestConfigFileName : String;
 begin

packages/testinsight/src/testinsightclient.pp

@@ -12,14 +12,20 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS} 
 unit testinsightclient;
+{$ENDIF}
 
 {$mode ObjFPC}{$H+}
 
 interface
 
 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;
+{$ENDIF}
 
 Type
 

packages/testinsight/src/testinsightprotocol.pp

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