THRIFT-2848 certain Delphi tests do not build if TypeRegistry is used

Client: Delphi Patch: Jens Geyer
apache · Nov 22, 2014 · eab29a0 · eab29a0
1 parent e50f12a
commit eab29a0
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 1 deletion.
diff --git a/lib/delphi/test/multiplexed/Multiplex.Client.Main.pas b/lib/delphi/test/multiplexed/Multiplex.Client.Main.pas
@@ -78,7 +78,7 @@ class procedure TTestClient.Execute( const args: array of string);
 
 constructor TTestClient.Create( const args: array of string);
 begin
-  inherited;
+  inherited Create;
   ParseArgs(args);
   Setup;
 end;

diff --git a/lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr b/lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr
@@ -34,6 +34,7 @@ uses
   Thrift.Server in '..\..\src\Thrift.Server.pas',
   Thrift.Stream in '..\..\src\Thrift.Stream.pas',
   Thrift.Console in '..\..\src\Thrift.Console.pas',
+  Thrift.TypeRegistry in '..\..\src\Thrift.TypeRegistry.pas',
   Thrift.Utils in '..\..\src\Thrift.Utils.pas';
 
 var

diff --git a/lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr b/lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr
@@ -34,6 +34,7 @@ uses
   Thrift.Server in '..\..\src\Thrift.Server.pas',
   Thrift.Console in '..\..\src\Thrift.Console.pas',
   Thrift.Utils in '..\..\src\Thrift.Utils.pas',
+  Thrift.TypeRegistry in '..\..\src\Thrift.TypeRegistry.pas',
   Thrift.Stream in '..\..\src\Thrift.Stream.pas';
 
 var

diff --git a/lib/delphi/test/skip/skiptest_version1.dpr b/lib/delphi/test/skip/skiptest_version1.dpr
@@ -32,6 +32,7 @@ uses
   Thrift.Server in '..\..\src\Thrift.Server.pas',
   Thrift.Console in '..\..\src\Thrift.Console.pas',
   Thrift.Utils in '..\..\src\Thrift.Utils.pas',
+  Thrift.TypeRegistry in '..\..\src\Thrift.TypeRegistry.pas',
   Thrift.Stream in '..\..\src\Thrift.Stream.pas';
 
 const

diff --git a/lib/delphi/test/skip/skiptest_version2.dpr b/lib/delphi/test/skip/skiptest_version2.dpr
@@ -32,6 +32,7 @@ uses
   Thrift.Server in '..\..\src\Thrift.Server.pas',
   Thrift.Console in '..\..\src\Thrift.Console.pas',
   Thrift.Utils in '..\..\src\Thrift.Utils.pas',
+  Thrift.TypeRegistry in '..\..\src\Thrift.TypeRegistry.pas',
   Thrift.Stream in '..\..\src\Thrift.Stream.pas';
 
 const