THRIFT-2718 Align cmdline help and return codes for Thrift test server/client
Client: Delphi
Patch: Jens Geyer
diff --git a/lib/delphi/test/server.dpr b/lib/delphi/test/server.dpr
index 6dbc914..d30d84b 100644
--- a/lib/delphi/test/server.dpr
+++ b/lib/delphi/test/server.dpr
@@ -56,10 +56,14 @@
args[i-1] := arg;
end;
TTestServer.Execute( args );
- Writeln('Press ENTER to close ... '); Readln;
except
- on E: Exception do
+ on E: EAbort do begin
+ ExitCode := $FF;
+ end;
+ on E: Exception do begin
Writeln(E.ClassName, ': ', E.Message);
+ ExitCode := $FF;
+ end;
end;
end.