THRIFT-4884 Add serialisation performance test for Delphi
Client: Delphi
Patch: Jens Geyer
diff --git a/lib/delphi/test/TestClient.pas b/lib/delphi/test/TestClient.pas
index 677d416..c2660a2 100644
--- a/lib/delphi/test/TestClient.pas
+++ b/lib/delphi/test/TestClient.pas
@@ -40,6 +40,7 @@
Generics.Collections,
TestConstants,
ConsoleHelper,
+ PerfTests,
Thrift,
Thrift.Protocol.Compact,
Thrift.Protocol.JSON,
@@ -199,6 +200,7 @@
+ ' --ssl Encrypted Transport using SSL'#10
+ ' -n [ --testloops ] arg (=1) Number of Tests'#10
+ ' -t [ --threads ] arg (=1) Number of Test threads'#10
+ + ' --performance Run the built-in performance test (no other arguments)'#10
;
begin
Writeln( ChangeFileExt(ExtractFileName(ParamStr(0)),'') + HELPTEXT);
@@ -321,6 +323,10 @@
if FNumThread <= 0
then InvalidArgs;
end
+ else if (s = '--performance') then begin
+ result := TPerformanceTests.Execute;
+ Exit;
+ end
else begin
InvalidArgs;
end;