THRIFT-2718 Align cmdline help and return codes for Thrift test server/client
Client: Delphi
Patch: Jens Geyer
diff --git a/lib/delphi/test/client.dpr b/lib/delphi/test/client.dpr
index dc576d9..fd47d8b 100644
--- a/lib/delphi/test/client.dpr
+++ b/lib/delphi/test/client.dpr
@@ -55,12 +55,14 @@
arg := ParamStr( i );
args[i-1] := arg;
end;
- TTestClient.Execute( args );
- Readln;
+ ExitCode := TTestClient.Execute( args);
except
+ on E: EAbort do begin
+ ExitCode := $FF;
+ end;
on E: Exception do begin
Writeln(E.ClassName, ': ', E.Message);
- ExitCode := $FFFF;
+ ExitCode := $FF;
end;
end;
end.