| commit | 41ad4342c5a0389ab2cf2dbf098086413ac01204 | [log] [tgz] |
|---|---|---|
| author | Roger Meier <roger@apache.org> | Tue Mar 24 22:30:40 2015 +0100 |
| committer | Roger Meier <roger@apache.org> | Tue Mar 24 22:30:40 2015 +0100 |
| tree | 1ce9c7d4e70a7370f132ce5d4fd245a20a68e45e | |
| parent | a2d12b6ee3d9aa66f2c16dc6a5ee6eef5f1eba92 [diff] [blame] |
THRIFT-847 Test Framework harmonization across all languages THRIFT-2946 Enhance usability of cross test framework Patch: Nobuaki Sukegawa This closes: #358
diff --git a/test/perl/TestClient.pl b/test/perl/TestClient.pl index ca1d47e..5a9a6f1 100644 --- a/test/perl/TestClient.pl +++ b/test/perl/TestClient.pl
@@ -41,6 +41,11 @@ my $host = 'localhost'; my $port = 9090; +foreach my $arg (@ARGV) { + if($arg =~ /^--port=([0-9]+)/) { + $port = $1; + } +} my $socket = new Thrift::Socket($host, $port);