commit a649e7473bd0229f160332f0c80407ba49765065
author Nobuaki Sukegawa <nsukeg@gmail.com> Mon Sep 21 13:53:25 2015 +0900
committer Roger Meier <roger@apache.org> Mon Sep 21 23:07:39 2015 +0200
tree 44dea5abd7123a132851b6e1e181bf6caf3d3a44
parent 245c347b7374182f8142ac07e43473ddd8c4d0de

THRIFT-3337 Add testBool method to cross tests

This closes #611

test/perl/TestClient.pl

diff --git a/test/perl/TestClient.pl b/test/perl/TestClient.pl
index 0f1ce65..40f8f59 100755
--- a/test/perl/TestClient.pl
+++ b/test/perl/TestClient.pl
@@ -133,6 +133,17 @@
 print(" = \"$s\"\n");
 
 #
+# BOOL TEST
+#
+print("testBool(1)");
+my $u8 = $testClient->testBool(1);
+print(" = $u8\n");
+print("testBool(0)");
+my $u8 = $testClient->testBool(0);
+print(" = $u8\n");
+
+
+#
 # BYTE TEST
 #
 print("testByte(1)");

test/perl/TestServer.pl

diff --git a/test/perl/TestServer.pl b/test/perl/TestServer.pl
index 57a1367..eebebc8 100644
--- a/test/perl/TestServer.pl
+++ b/test/perl/TestServer.pl
@@ -148,6 +148,14 @@
   return $thing;
 }
 
+sub testBool() {
+  my $self = shift;
+  my $thing = shift;
+  my $str = $thing ? "true" : "false";
+  print("testBool($str)\n");
+  return $thing;
+}
+
 sub testByte() {
   my $self = shift;
   my $thing = shift;