commit eab29a0da9eb775bb7e1e7cff6b4eeaecf237151
author Jens Geyer <jensg@apache.org> Sun Nov 09 23:32:50 2014 +0100
committer Jens Geyer <jensg@apache.org> Sat Nov 22 22:06:58 2014 +0100
tree c5ac5392209b947cd54ca4419e0f6ce7b5df4493
parent e50f12a5ff6cd2660d7a4853318dd651ab3794a3

THRIFT-2848 certain Delphi tests do not build if TypeRegistry is used
Client: Delphi
Patch: Jens Geyer

lib/delphi/test/multiplexed/Multiplex.Client.Main.pas

diff --git a/lib/delphi/test/multiplexed/Multiplex.Client.Main.pas b/lib/delphi/test/multiplexed/Multiplex.Client.Main.pas
index 34ee081..35fdf6f 100644
--- a/lib/delphi/test/multiplexed/Multiplex.Client.Main.pas
+++ b/lib/delphi/test/multiplexed/Multiplex.Client.Main.pas
@@ -78,7 +78,7 @@
 
 constructor TTestClient.Create( const args: array of string);
 begin
-  inherited;
+  inherited Create;
   ParseArgs(args);
   Setup;
 end;

lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr

diff --git a/lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr b/lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr
index f7ccba1..95ee486 100644
--- a/lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr
+++ b/lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr
@@ -34,6 +34,7 @@
   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

lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr

diff --git a/lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr b/lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr
index cf03c44..c7a1a19 100644
--- a/lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr
+++ b/lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr
@@ -34,6 +34,7 @@
   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

lib/delphi/test/skip/skiptest_version1.dpr

diff --git a/lib/delphi/test/skip/skiptest_version1.dpr b/lib/delphi/test/skip/skiptest_version1.dpr
index e873f29..caf3023 100644
--- a/lib/delphi/test/skip/skiptest_version1.dpr
+++ b/lib/delphi/test/skip/skiptest_version1.dpr
@@ -32,6 +32,7 @@
   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

lib/delphi/test/skip/skiptest_version2.dpr

diff --git a/lib/delphi/test/skip/skiptest_version2.dpr b/lib/delphi/test/skip/skiptest_version2.dpr
index 7615251..14d6048 100644
--- a/lib/delphi/test/skip/skiptest_version2.dpr
+++ b/lib/delphi/test/skip/skiptest_version2.dpr
@@ -32,6 +32,7 @@
   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