| commit | a649e7473bd0229f160332f0c80407ba49765065 | [log] [tgz] |
|---|---|---|
| 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 [diff] [blame] |
THRIFT-3337 Add testBool method to cross tests This closes #611
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;