commit b360b65d3f5841938361f64c1265d3dddc66d281
author Jens Geyer <jensg@apache.org> Sun Sep 28 01:55:46 2014 +0200
committer Jens Geyer <jensg@apache.org> Sun Sep 28 01:55:46 2014 +0200
tree 23a332bc26fb965997da950f9cc13dc233c7e7ff
parent f8a1b7a29abadf315f4be186fc7dfa4c0a906c42

THRIFT-2718 Align cmdline help and return codes for Thrift test server/client
Client: Delphi
Patch: Jens Geyer

lib/delphi/test/TestClient.pas

diff --git a/lib/delphi/test/TestClient.pas b/lib/delphi/test/TestClient.pas
index 9001411..cbd825e 100644
--- a/lib/delphi/test/TestClient.pas
+++ b/lib/delphi/test/TestClient.pas
@@ -212,38 +212,38 @@
         result := $FF;   // all tests failed
         Exit;
       end
-      else if s = '-host' then begin
-        // -host arg (=localhost)     Host to connect
+      else if s = '--host' then begin
+        // --host arg (=localhost)     Host to connect
         host := args[i];
         Inc( i);
       end
-      else if s = '-port' then begin
-        // -port arg (=9090)          Port number to connect
+      else if s = '--port' then begin
+        // --port arg (=9090)          Port number to connect
         s := args[i];
         Inc( i);
         port := StrToIntDef(s,0);
         if port <= 0 then InvalidArgs;
       end
-      else if s = '-domain-socket' then begin
-        // -domain-socket arg         Domain Socket (e.g. /tmp/ThriftTest.thrift), instead of host and port
+      else if s = '--domain-socket' then begin
+        // --domain-socket arg         Domain Socket (e.g. /tmp/ThriftTest.thrift), instead of host and port
         raise Exception.Create('domain-socket not supported');
       end
-      else if s = '-named-pipe' then begin
-        // -named-pipe arg            Windows Named Pipe (e.g. MyThriftPipe)
+      else if s = '--named-pipe' then begin
+        // --named-pipe arg            Windows Named Pipe (e.g. MyThriftPipe)
         endpoint := trns_NamedPipes;
         sPipeName := args[i];
         Inc( i);
       end
-      else if s = '-anon-pipes' then begin
-        // -anon-pipes hRead hWrite   Windows Anonymous Pipes pair (handles)
+      else if s = '--anon-pipes' then begin
+        // --anon-pipes hRead hWrite   Windows Anonymous Pipes pair (handles)
         endpoint := trns_AnonPipes;
         hAnonRead := THandle( StrToIntDef( args[i], Integer(INVALID_HANDLE_VALUE)));
         Inc( i);
         hAnonWrite := THandle( StrToIntDef( args[i], Integer(INVALID_HANDLE_VALUE)));
         Inc( i);
       end
-      else if s = '-transport' then begin
-        // -transport arg (=sockets)  Transport: buffered, framed, http, evhttp
+      else if s = '--transport' then begin
+        // --transport arg (=sockets)  Transport: buffered, framed, http, evhttp
         s := args[i];
         Inc( i);
 
@@ -253,8 +253,8 @@
         else if s = 'evhttp'   then endpoint := trns_AnonPipes
         else InvalidArgs;
       end
-      else if s = '-protocol' then begin
-        // -protocol arg (=binary)    Protocol: binary, compact, json
+      else if s = '--protocol' then begin
+        // --protocol arg (=binary)    Protocol: binary, compact, json
         s := args[i];
         Inc( i);
 
@@ -263,8 +263,8 @@
         else if s = 'json'     then protType := prot_JSON
         else InvalidArgs;
       end
-      else if s = '-ssl' then begin
-        // -ssl                       Encrypted Transport using SSL
+      else if s = '--ssl' then begin
+        // --ssl                       Encrypted Transport using SSL
         UseSSL := TRUE;
 
       end