commit 7191bc99fe3de1027f7fab21232d5bc6ed1d5db5
author cdwijayarathna <cdwijayarathna@gmail.com> Sat Aug 16 23:36:07 2014 +0530
committer Roger Meier <roger@apache.org> Sun Aug 17 21:48:21 2014 +0200
tree f09a4613eb0c68fef9d751273e97682c750bf325
parent 9ea3d2e75d6ee20af34dca1a60a48f485958603b

THRIFT-847 Test Framework harmonization across all languages

THRIFT-847 Test Framework harmonization across all languages

test/hs/TestClient.hs

diff --git a/test/hs/TestClient.hs b/test/hs/TestClient.hs
index 2b9254b..03314ed 100644
--- a/test/hs/TestClient.hs
+++ b/test/hs/TestClient.hs
@@ -210,12 +210,12 @@
     "--host" : arg : _ -> parseFlags flags opts{ host = arg }
     "--transport" : arg : _ -> parseFlags flags opts{ transport = arg }
     "--protocol" : arg : _ -> parseFlags flags opts{ protocol = getProtocol arg }
+    "-n" : arg : _ -> parseFlags flags opts{ testLoops = read arg }
     "--h" : _ -> Nothing
     "--help" : _ -> Nothing
     "--ssl" : _ -> parseFlags flags opts{ ssl = True }
     "--processor-events" : _ -> parseFlags flags opts
-parseFlags (flag : arg : flags) opts
-  | flag == "-n"                    = parseFlags flags opts{ testLoops = read arg }
+    _ -> Nothing
 parseFlags [] opts = Just opts
 
 showHelp :: IO ()

test/hs/TestServer.hs

diff --git a/test/hs/TestServer.hs b/test/hs/TestServer.hs
old mode 100644
new mode 100755
index e3f3241..ec3891c
--- a/test/hs/TestServer.hs
+++ b/test/hs/TestServer.hs
@@ -248,12 +248,12 @@
     "--transport" : arg : _ -> parseFlags flags opts{ transport = arg }
     "--protocol" : arg : _ -> parseFlags flags opts{ protocol = getProtocol arg }
     "--workers" : arg : _ -> parseFlags flags opts{ workers = read arg }
+    "-n" : arg : _ -> parseFlags flags opts{ workers = read arg }
     "--h" : _ -> Nothing
     "--help" : _ -> Nothing
     "--ssl" : _ -> parseFlags flags opts{ ssl = True }
     "--processor-events" : _ -> parseFlags flags opts
-parseFlags (flag : arg : flags) opts
-  | flag == "-n"                     = parseFlags flags opts{ workers = read arg }
+    _ -> Nothing
 parseFlags [] opts = Just opts
 
 showHelp :: IO ()