commit bb6de7aab09e4feb1377bd2486d420855495a11b
author Roger Meier <roger@apache.org> 周五 5月 04 23:35:45 2012 +0000
committer Roger Meier <roger@apache.org> 周五 5月 04 23:35:45 2012 +0000
tree a6a584f70392f1c09260ed4f2679c150527448ab
parent 45320175c5f2266f063315108fd5b4f986e10a0d

THRIFT-1596 Delphi: Test clients should have a return codes that reflect whether they succeeded or not
Patch: Jens Geyer

git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1334250 13f79535-47bb-0310-9956-ffa450edef68

lib/delphi/test/client.dpr

diff --git a/lib/delphi/test/client.dpr b/lib/delphi/test/client.dpr
index 655308d..f12fe84 100644
--- a/lib/delphi/test/client.dpr
+++ b/lib/delphi/test/client.dpr
@@ -56,8 +56,10 @@
     TTestClient.Execute( args );
     Readln;
   except
-    on E: Exception do
+    on E: Exception do begin
       Writeln(E.ClassName, ': ', E.Message);
+      ExitCode := $FFFF;
+    end;
   end;
 end.