diff options
author | Kengo Seki <sekikn@apache.org> | 2020-01-13 23:11:10 +0900 |
---|---|---|
committer | Jens Geyer <jensg@apache.org> | 2020-02-21 22:06:09 +0100 |
commit | d858a8d4bcdc8767b4a89e3636e61f486ad9366f (patch) | |
tree | d774723c4fd8837e78d064f59fad59604cd49947 /test/perl | |
parent | a89036c8c3d05be4e6186de0864335beef01294a (diff) | |
download | thrift-d858a8d4bcdc8767b4a89e3636e61f486ad9366f.tar.gz |
THRIFT-5066: Implement testBinary invocation in TestClient.pl
Client: perl
Patch: Kengo Seki
This closes #1984
Diffstat (limited to 'test/perl')
-rwxr-xr-x | test/perl/TestClient.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/perl/TestClient.pl b/test/perl/TestClient.pl index 96e3bec77..6d49f1da1 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 |