diff options
author | Jens Geyer <jensg@apache.org> | 2015-09-23 21:16:50 +0200 |
---|---|---|
committer | Jens Geyer <jensg@apache.org> | 2015-09-23 21:20:38 +0200 |
commit | d629ea0bb271f625763a4f083602811fc9cf1b61 (patch) | |
tree | 8ef70e68fb9b214fa3bde79d74fb91243f8d6701 /test/perl | |
parent | 68238297100517db0202a7f9698ac637bc8d1c35 (diff) | |
download | thrift-d629ea0bb271f625763a4f083602811fc9cf1b61.tar.gz |
THRIFT-3347 Improve cross test servers and clients
Client: TestSuite, C++, Perl, NodeJS, c_glib, Haskell, Python
Patch: Nobuaki Sukegawa <nsukeg@gmail.com>
This closes #621
Diffstat (limited to 'test/perl')
-rwxr-xr-x | test/perl/TestClient.pl | 22 | ||||
-rw-r--r-- | test/perl/TestServer.pl | 4 |
2 files changed, 16 insertions, 10 deletions
diff --git a/test/perl/TestClient.pl b/test/perl/TestClient.pl index 40f8f59c4..9d4aab2eb 100755 --- a/test/perl/TestClient.pl +++ b/test/perl/TestClient.pl @@ -136,11 +136,11 @@ print(" = \"$s\"\n"); # BOOL TEST # print("testBool(1)"); -my $u8 = $testClient->testBool(1); -print(" = $u8\n"); +my $t = $testClient->testBool(1); +print(" = $t\n"); print("testBool(0)"); -my $u8 = $testClient->testBool(0); -print(" = $u8\n"); +my $f = $testClient->testBool(0); +print(" = $f\n"); # @@ -321,11 +321,17 @@ print("}\n"); my $insane = new ThriftTest::Insanity(); $insane->{userMap}->{ThriftTest::Numberz::FIVE} = 5000; my $truck = new ThriftTest::Xtruct(); -$truck->string_thing("Truck"); -$truck->byte_thing(8); -$truck->i32_thing(8); -$truck->i64_thing(8); +$truck->string_thing("Hello2"); +$truck->byte_thing(2); +$truck->i32_thing(2); +$truck->i64_thing(2); +my $truck2 = new ThriftTest::Xtruct(); +$truck2->string_thing("Goodbye4"); +$truck2->byte_thing(4); +$truck2->i32_thing(4); +$truck2->i64_thing(4); push(@{$insane->{xtructs}}, $truck); +push(@{$insane->{xtructs}}, $truck2); print("testInsanity()"); my $whoa = $testClient->testInsanity($insane); diff --git a/test/perl/TestServer.pl b/test/perl/TestServer.pl index eebebc82d..5bfa640bd 100644 --- a/test/perl/TestServer.pl +++ b/test/perl/TestServer.pl @@ -328,8 +328,8 @@ sub testInsanity() { my @goodbyes; push(@goodbyes, $goodbye); my $crazy = new ThriftTest::Insanity({userMap => { ThriftTest::Numberz::EIGHT => 8 }, xtructs => \@goodbyes}); - my $loony = new ThriftTest::Insanity({userMap => { ThriftTest::Numberz::FIVE => 5 }, xtructs => \@hellos}); - my $result = { 1 => { ThriftTest::Numberz::TWO => $crazy, ThriftTest::Numberz::THREE => $crazy }, + my $loony = new ThriftTest::Insanity(); + my $result = { 1 => { ThriftTest::Numberz::TWO => $argument, ThriftTest::Numberz::THREE => $argument }, 2 => { ThriftTest::Numberz::SIX => $loony } }; return $result; } |