THRIFT-5036 buffered transport over sockets may run into unexpected timeouts [ci skip]
Client: Delphi
Patch: Jens Geyer
diff --git a/lib/delphi/test/TestServer.pas b/lib/delphi/test/TestServer.pas
index a9c71fb..da804fd 100644
--- a/lib/delphi/test/TestServer.pas
+++ b/lib/delphi/test/TestServer.pas
@@ -157,13 +157,11 @@
procedure TTestServer.TTestHandlerImpl.testException(const arg: string);
begin
Console.WriteLine('testException(' + arg + ')');
- if ( arg = 'Xception') then
- begin
+ if ( arg = 'Xception') then begin
raise TXception.Create( 1001, arg);
end;
- if (arg = 'TException') then
- begin
+ if (arg = 'TException') then begin
raise TException.Create('TException');
end;