commit d858a8d4bcdc8767b4a89e3636e61f486ad9366f
author Kengo Seki <sekikn@apache.org> Mon Jan 13 23:11:10 2020 +0900
committer Jens Geyer <jensg@apache.org> Fri Feb 21 22:06:09 2020 +0100
tree d774723c4fd8837e78d064f59fad59604cd49947
parent a89036c8c3d05be4e6186de0864335beef01294a

THRIFT-5066: Implement testBinary invocation in TestClient.pl
Client: perl
Patch: Kengo Seki

This closes #1984

test/perl/TestClient.pl

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 @@
 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