[thrift] branch master updated: THRIFT-5066: Implement testBinary invocation in TestClient.pl Client: perl Patch: Kengo Seki

[jensg]

This is an automated email from the ASF dual-hosted git repository.

jensg pushed a commit to branch master
in repository https://gitbox.apache.org/repos/asf/thrift.git


The following commit(s) were added to refs/heads/master by this push:
     new d858a8d  THRIFT-5066: Implement testBinary invocation in TestClient.pl 
Client: perl Patch: Kengo Seki
d858a8d is described below

commit d858a8d4bcdc8767b4a89e3636e61f486ad9366f
Author: Kengo Seki <sek...@apache.org>
AuthorDate: Mon Jan 13 23:11:10 2020 +0900

    THRIFT-5066: Implement testBinary invocation in TestClient.pl
    Client: perl
    Patch: Kengo Seki
    
    This closes #1984
---
 test/perl/TestClient.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/test/perl/TestClient.pl b/test/perl/TestClient.pl
index 96e3bec..6d49f1d 100755
--- a/test/perl/TestClient.pl
+++ b/test/perl/TestClient.pl
@@ -218,9 +218,12 @@ print(" = $dub\n");
 exit(ERR_BASETYPES) if ($dub ne -852.234234234);
 
 #
-# BINARY TEST   ---  TODO
+# BINARY TEST
 #
-
+print("testBinary(pack('C*', 0..255))");
+my $bin = $testClient->testBinary(pack('C*', 0..255));
+printf(" = %s\n", join ' ', map { sprintf '%02x', $_ } unpack('C*', $bin));
+exit(ERR_BASETYPES) if ($bin ne pack('C*', 0..255));
 
 #
 # STRUCT TEST