Moving from govendor to dep, updated dependencies (#48)
* Moving from govendor to dep. * Making the pull request template more friendly. * Fixing akward space in PR template. * goimports run on whole project using ` goimports -w $(find . -type f -name '*.go' -not -path "./vendor/*" -not -path "./gen-go/*")` source of command: https://gist.github.com/bgentry/fd1ffef7dbde01857f66
This commit is contained in:
Renan DelValle
GitHub
parent
9631aa3aab
commit
8d445c1c77
2186 changed files with 400410 additions and 352 deletions
31
vendor/git.apache.org/thrift.git/test/perl/Makefile.am
generated
vendored
Normal file
31
vendor/git.apache.org/thrift.git/test/perl/Makefile.am
generated
vendored
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
#
|
||||
# Licensed to the Apache Software Foundation (ASF) under one
|
||||
# or more contributor license agreements. See the NOTICE file
|
||||
# distributed with this work for additional information
|
||||
# regarding copyright ownership. The ASF licenses this file
|
||||
# to you under the Apache License, Version 2.0 (the
|
||||
# "License"); you may not use this file except in compliance
|
||||
# with the License. You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing,
|
||||
# software distributed under the License is distributed on an
|
||||
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
||||
# KIND, either express or implied. See the License for the
|
||||
# specific language governing permissions and limitations
|
||||
# under the License.
|
||||
#
|
||||
|
||||
THRIFT = $(top_builddir)/compiler/cpp/thrift
|
||||
|
||||
stubs: ../ThriftTest.thrift
|
||||
$(THRIFT) --gen perl ../ThriftTest.thrift
|
||||
|
||||
precross: stubs
|
||||
|
||||
check: stubs
|
||||
|
||||
clean-local:
|
||||
$(RM) -r gen-perl
|
||||
|
||||
427
vendor/git.apache.org/thrift.git/test/perl/TestClient.pl
generated
vendored
Executable file
427
vendor/git.apache.org/thrift.git/test/perl/TestClient.pl
generated
vendored
Executable file
|
|
@ -0,0 +1,427 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
#
|
||||
# Licensed to the Apache Software Foundation (ASF) under one
|
||||
# or more contributor license agreements. See the NOTICE file
|
||||
# distributed with this work for additional information
|
||||
# regarding copyright ownership. The ASF licenses this file
|
||||
# to you under the Apache License, Version 2.0 (the
|
||||
# "License"); you may not use this file except in compliance
|
||||
# with the License. You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing,
|
||||
# software distributed under the License is distributed on an
|
||||
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
||||
# KIND, either express or implied. See the License for the
|
||||
# specific language governing permissions and limitations
|
||||
# under the License.
|
||||
#
|
||||
|
||||
require 5.6.0;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Data::Dumper;
|
||||
use Getopt::Long qw(GetOptions);
|
||||
use Time::HiRes qw(gettimeofday);
|
||||
|
||||
use lib '../../lib/perl/lib';
|
||||
use lib 'gen-perl';
|
||||
|
||||
use Thrift;
|
||||
use Thrift::BinaryProtocol;
|
||||
use Thrift::BufferedTransport;
|
||||
use Thrift::FramedTransport;
|
||||
use Thrift::SSLSocket;
|
||||
use Thrift::Socket;
|
||||
use Thrift::UnixSocket;
|
||||
|
||||
use ThriftTest::ThriftTest;
|
||||
use ThriftTest::Types;
|
||||
|
||||
$|++;
|
||||
|
||||
sub usage {
|
||||
print <<EOF;
|
||||
Usage: $0 [OPTIONS]
|
||||
|
||||
Options: (default)
|
||||
--cert Certificate to use.
|
||||
Required if using --ssl.
|
||||
--domain-socket <file> Use a unix domain socket.
|
||||
--help Show usage.
|
||||
--port <portnum> 9090 Port to use.
|
||||
--protocol {binary} binary Protocol to use.
|
||||
--ssl If present, use SSL.
|
||||
--transport {buffered|framed} buffered Transport to use.
|
||||
|
||||
EOF
|
||||
}
|
||||
|
||||
my %opts = (
|
||||
'port' => 9090,
|
||||
'protocol' => 'binary',
|
||||
'transport' => 'buffered'
|
||||
);
|
||||
|
||||
GetOptions(\%opts, qw (
|
||||
cert=s
|
||||
domain-socket=s
|
||||
help
|
||||
host=s
|
||||
port=i
|
||||
protocol=s
|
||||
ssl
|
||||
transport=s
|
||||
)) || exit 1;
|
||||
|
||||
if ($opts{help}) {
|
||||
usage();
|
||||
exit 0;
|
||||
}
|
||||
|
||||
if ($opts{ssl} and not defined $opts{cert}) {
|
||||
usage();
|
||||
exit 1;
|
||||
}
|
||||
|
||||
my $socket = undef;
|
||||
if ($opts{"domain-socket"}) {
|
||||
$socket = new Thrift::UnixSocket($opts{"domain-socket"});
|
||||
} elsif ($opts{ssl}) {
|
||||
$socket = new Thrift::SSLSocket($opts{host}, $opts{port});
|
||||
} else {
|
||||
$socket = new Thrift::Socket($opts{host}, $opts{port});
|
||||
}
|
||||
|
||||
my $transport;
|
||||
if ($opts{transport} eq 'buffered') {
|
||||
$transport = new Thrift::BufferedTransport($socket, 1024, 1024);
|
||||
} elsif ($opts{transport} eq 'framed') {
|
||||
$transport = new Thrift::FramedTransport($socket);
|
||||
} else {
|
||||
usage();
|
||||
exit 1;
|
||||
}
|
||||
|
||||
my $protocol;
|
||||
if ($opts{protocol} eq 'binary') {
|
||||
$protocol = new Thrift::BinaryProtocol($transport);
|
||||
} else {
|
||||
usage();
|
||||
exit 1;
|
||||
}
|
||||
|
||||
my $testClient = new ThriftTest::ThriftTestClient($protocol);
|
||||
|
||||
eval {
|
||||
$transport->open();
|
||||
};
|
||||
if($@){
|
||||
die(Dumper($@));
|
||||
}
|
||||
my $start = gettimeofday();
|
||||
|
||||
#
|
||||
# VOID TEST
|
||||
#
|
||||
print("testVoid()");
|
||||
$testClient->testVoid();
|
||||
print(" = void\n");
|
||||
|
||||
#
|
||||
# STRING TEST
|
||||
#
|
||||
print("testString(\"Test\")");
|
||||
my $s = $testClient->testString("Test");
|
||||
print(" = \"$s\"\n");
|
||||
|
||||
#
|
||||
# BOOL TEST
|
||||
#
|
||||
print("testBool(1)");
|
||||
my $t = $testClient->testBool(1);
|
||||
print(" = $t\n");
|
||||
print("testBool(0)");
|
||||
my $f = $testClient->testBool(0);
|
||||
print(" = $f\n");
|
||||
|
||||
|
||||
#
|
||||
# BYTE TEST
|
||||
#
|
||||
print("testByte(1)");
|
||||
my $u8 = $testClient->testByte(1);
|
||||
print(" = $u8\n");
|
||||
|
||||
#
|
||||
# I32 TEST
|
||||
#
|
||||
print("testI32(-1)");
|
||||
my $i32 = $testClient->testI32(-1);
|
||||
print(" = $i32\n");
|
||||
|
||||
#
|
||||
#I64 TEST
|
||||
#
|
||||
print("testI64(-34359738368)");
|
||||
my $i64 = $testClient->testI64(-34359738368);
|
||||
print(" = $i64\n");
|
||||
|
||||
#
|
||||
# DOUBLE TEST
|
||||
#
|
||||
print("testDouble(-852.234234234)");
|
||||
my $dub = $testClient->testDouble(-852.234234234);
|
||||
print(" = $dub\n");
|
||||
|
||||
#
|
||||
# BINARY TEST --- TODO
|
||||
#
|
||||
|
||||
|
||||
#
|
||||
# STRUCT TEST
|
||||
#
|
||||
print("testStruct({\"Zero\", 1, -3, -5})");
|
||||
my $out = new ThriftTest::Xtruct();
|
||||
$out->string_thing("Zero");
|
||||
$out->byte_thing(1);
|
||||
$out->i32_thing(-3);
|
||||
$out->i64_thing(-5);
|
||||
my $in = $testClient->testStruct($out);
|
||||
print(" = {\"".$in->string_thing."\", ".
|
||||
$in->byte_thing.", ".
|
||||
$in->i32_thing.", ".
|
||||
$in->i64_thing."}\n");
|
||||
|
||||
#
|
||||
# NESTED STRUCT TEST
|
||||
#
|
||||
print("testNest({1, {\"Zero\", 1, -3, -5}, 5}");
|
||||
my $out2 = new ThriftTest::Xtruct2();
|
||||
$out2->byte_thing(1);
|
||||
$out2->struct_thing($out);
|
||||
$out2->i32_thing(5);
|
||||
my $in2 = $testClient->testNest($out2);
|
||||
$in = $in2->struct_thing;
|
||||
print(" = {".$in2->byte_thing.", {\"".
|
||||
$in->string_thing."\", ".
|
||||
$in->byte_thing.", ".
|
||||
$in->i32_thing.", ".
|
||||
$in->i64_thing."}, ".
|
||||
$in2->i32_thing."}\n");
|
||||
|
||||
#
|
||||
# MAP TEST
|
||||
#
|
||||
my $mapout = {};
|
||||
for (my $i = 0; $i < 5; ++$i) {
|
||||
$mapout->{$i} = $i-10;
|
||||
}
|
||||
print("testMap({");
|
||||
my $first = 1;
|
||||
while( my($key,$val) = each %$mapout) {
|
||||
if ($first) {
|
||||
$first = 0;
|
||||
} else {
|
||||
print(", ");
|
||||
}
|
||||
print("$key => $val");
|
||||
}
|
||||
print("})");
|
||||
|
||||
|
||||
my $mapin = $testClient->testMap($mapout);
|
||||
print(" = {");
|
||||
|
||||
$first = 1;
|
||||
while( my($key,$val) = each %$mapin){
|
||||
if ($first) {
|
||||
$first = 0;
|
||||
} else {
|
||||
print(", ");
|
||||
}
|
||||
print("$key => $val");
|
||||
}
|
||||
print("}\n");
|
||||
|
||||
#
|
||||
# SET TEST
|
||||
#
|
||||
my $setout = [];
|
||||
for (my $i = -2; $i < 3; ++$i) {
|
||||
push(@$setout, $i);
|
||||
}
|
||||
|
||||
print("testSet({".join(",",@$setout)."})");
|
||||
|
||||
my $setin = $testClient->testSet($setout);
|
||||
|
||||
print(" = {".join(",",@$setout)."}\n");
|
||||
|
||||
#
|
||||
# LIST TEST
|
||||
#
|
||||
my $listout = [];
|
||||
for (my $i = -2; $i < 3; ++$i) {
|
||||
push(@$listout, $i);
|
||||
}
|
||||
|
||||
print("testList({".join(",",@$listout)."})");
|
||||
|
||||
my $listin = $testClient->testList($listout);
|
||||
|
||||
print(" = {".join(",",@$listin)."}\n");
|
||||
|
||||
#
|
||||
# ENUM TEST
|
||||
#
|
||||
print("testEnum(ONE)");
|
||||
my $ret = $testClient->testEnum(ThriftTest::Numberz::ONE);
|
||||
print(" = $ret\n");
|
||||
|
||||
print("testEnum(TWO)");
|
||||
$ret = $testClient->testEnum(ThriftTest::Numberz::TWO);
|
||||
print(" = $ret\n");
|
||||
|
||||
print("testEnum(THREE)");
|
||||
$ret = $testClient->testEnum(ThriftTest::Numberz::THREE);
|
||||
print(" = $ret\n");
|
||||
|
||||
print("testEnum(FIVE)");
|
||||
$ret = $testClient->testEnum(ThriftTest::Numberz::FIVE);
|
||||
print(" = $ret\n");
|
||||
|
||||
print("testEnum(EIGHT)");
|
||||
$ret = $testClient->testEnum(ThriftTest::Numberz::EIGHT);
|
||||
print(" = $ret\n");
|
||||
|
||||
#
|
||||
# TYPEDEF TEST
|
||||
#
|
||||
print("testTypedef(309858235082523)");
|
||||
my $uid = $testClient->testTypedef(309858235082523);
|
||||
print(" = $uid\n");
|
||||
|
||||
#
|
||||
# NESTED MAP TEST
|
||||
#
|
||||
print("testMapMap(1)");
|
||||
my $mm = $testClient->testMapMap(1);
|
||||
print(" = {");
|
||||
while( my ($key,$val) = each %$mm) {
|
||||
print("$key => {");
|
||||
while( my($k2,$v2) = each %$val) {
|
||||
print("$k2 => $v2, ");
|
||||
}
|
||||
print("}, ");
|
||||
}
|
||||
print("}\n");
|
||||
|
||||
#
|
||||
# INSANITY TEST
|
||||
#
|
||||
my $insane = new ThriftTest::Insanity();
|
||||
$insane->{userMap}->{ThriftTest::Numberz::FIVE} = 5000;
|
||||
my $truck = new ThriftTest::Xtruct();
|
||||
$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);
|
||||
print(" = {");
|
||||
while( my ($key,$val) = each %$whoa) {
|
||||
print("$key => {");
|
||||
while( my($k2,$v2) = each %$val) {
|
||||
print("$k2 => {");
|
||||
my $userMap = $v2->{userMap};
|
||||
print("{");
|
||||
if (ref($userMap) eq "HASH") {
|
||||
while( my($k3,$v3) = each %$userMap) {
|
||||
print("$k3 => $v3, ");
|
||||
}
|
||||
}
|
||||
print("}, ");
|
||||
|
||||
my $xtructs = $v2->{xtructs};
|
||||
print("{");
|
||||
if (ref($xtructs) eq "ARRAY") {
|
||||
foreach my $x (@$xtructs) {
|
||||
print("{\"".$x->{string_thing}."\", ".
|
||||
$x->{byte_thing}.", ".$x->{i32_thing}.", ".$x->{i64_thing}."}, ");
|
||||
}
|
||||
}
|
||||
print("}");
|
||||
|
||||
print("}, ");
|
||||
}
|
||||
print("}, ");
|
||||
}
|
||||
print("}\n");
|
||||
|
||||
#
|
||||
# EXCEPTION TEST
|
||||
#
|
||||
print("testException('Xception')");
|
||||
eval {
|
||||
$testClient->testException('Xception');
|
||||
print(" void\nFAILURE\n");
|
||||
}; if($@ && $@->UNIVERSAL::isa('ThriftTest::Xception')) {
|
||||
print(' caught xception '.$@->{errorCode}.': '.$@->{message}."\n");
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# Normal tests done.
|
||||
#
|
||||
my $stop = gettimeofday();
|
||||
my $elp = sprintf("%d",1000*($stop - $start), 0);
|
||||
print("Total time: $elp ms\n");
|
||||
|
||||
#
|
||||
# Extraneous "I don't trust PHP to pack/unpack integer" tests
|
||||
#
|
||||
|
||||
# Max I32
|
||||
my $num = 2**30 + 2**30 - 1;
|
||||
my $num2 = $testClient->testI32($num);
|
||||
if ($num != $num2) {
|
||||
print "Missed max32 $num = $num2\n";
|
||||
}
|
||||
|
||||
# Min I32
|
||||
$num = 0 - 2**31;
|
||||
$num2 = $testClient->testI32($num);
|
||||
if ($num != $num2) {
|
||||
print "Missed min32 $num = $num2\n";
|
||||
}
|
||||
|
||||
# Max Number I can get out of my perl
|
||||
$num = 2**40;
|
||||
$num2 = $testClient->testI64($num);
|
||||
if ($num != $num2) {
|
||||
print "Missed max64 $num = $num2\n";
|
||||
}
|
||||
|
||||
# Max Number I can get out of my perl
|
||||
$num = 0 - 2**40;
|
||||
$num2 = $testClient->testI64($num);
|
||||
if ($num != $num2) {
|
||||
print "Missed min64 $num = $num2\n";
|
||||
}
|
||||
|
||||
$transport->close();
|
||||
|
||||
|
||||
|
||||
398
vendor/git.apache.org/thrift.git/test/perl/TestServer.pl
generated
vendored
Normal file
398
vendor/git.apache.org/thrift.git/test/perl/TestServer.pl
generated
vendored
Normal file
|
|
@ -0,0 +1,398 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
#
|
||||
# Licensed to the Apache Software Foundation (ASF) under one
|
||||
# or more contributor license agreements. See the NOTICE file
|
||||
# distributed with this work for additional information
|
||||
# regarding copyright ownership. The ASF licenses this file
|
||||
# to you under the Apache License, Version 2.0 (the
|
||||
# "License"); you may not use this file except in compliance
|
||||
# with the License. You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing,
|
||||
# software distributed under the License is distributed on an
|
||||
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
||||
# KIND, either express or implied. See the License for the
|
||||
# specific language governing permissions and limitations
|
||||
# under the License.
|
||||
#
|
||||
|
||||
require 5.6.0;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Data::Dumper;
|
||||
use Getopt::Long qw(GetOptions);
|
||||
use Time::HiRes qw(gettimeofday);
|
||||
|
||||
use lib '../../lib/perl/lib';
|
||||
use lib 'gen-perl';
|
||||
|
||||
use Thrift;
|
||||
use Thrift::BinaryProtocol;
|
||||
use Thrift::BufferedTransport;
|
||||
use Thrift::FramedTransport;
|
||||
use Thrift::SSLServerSocket;
|
||||
use Thrift::ServerSocket;
|
||||
use Thrift::Server;
|
||||
use Thrift::UnixServerSocket;
|
||||
|
||||
use ThriftTest::ThriftTest;
|
||||
use ThriftTest::Types;
|
||||
|
||||
$|++;
|
||||
|
||||
sub usage {
|
||||
print <<EOF;
|
||||
Usage: $0 [OPTIONS]
|
||||
|
||||
Options: (default)
|
||||
--ca Certificate authority file (optional).
|
||||
--cert Certificate file.
|
||||
Required if using --ssl.
|
||||
--domain-socket <file> Use a unix domain socket.
|
||||
--help Show usage.
|
||||
--key Private key file for certificate.
|
||||
Required if using --ssl and private key is
|
||||
not in the certificate file.
|
||||
--port <portnum> 9090 Port to use.
|
||||
--protocol {binary} binary Protocol to use.
|
||||
--ssl If present, use SSL/TLS.
|
||||
--transport {buffered|framed} buffered Transport to use.
|
||||
|
||||
EOF
|
||||
}
|
||||
|
||||
my %opts = (
|
||||
'port' => 9090,
|
||||
'protocol' => 'binary',
|
||||
'transport' => 'buffered'
|
||||
);
|
||||
|
||||
GetOptions(\%opts, qw (
|
||||
ca=s
|
||||
cert=s
|
||||
domain-socket=s
|
||||
help
|
||||
host=s
|
||||
key=s
|
||||
port=i
|
||||
protocol=s
|
||||
ssl
|
||||
transport=s
|
||||
)) || exit 1;
|
||||
|
||||
if ($opts{help}) {
|
||||
usage();
|
||||
exit 0;
|
||||
}
|
||||
|
||||
if ($opts{ssl} and not defined $opts{cert}) {
|
||||
usage();
|
||||
exit 1;
|
||||
}
|
||||
|
||||
my $handler = new ThriftTestHandler();
|
||||
my $processor = new ThriftTest::ThriftTestProcessor($handler);
|
||||
my $serversocket;
|
||||
if ($opts{"domain-socket"}) {
|
||||
unlink($opts{"domain-socket"});
|
||||
$serversocket = new Thrift::UnixServerSocket($opts{"domain-socket"});
|
||||
} elsif ($opts{ssl}) {
|
||||
$serversocket = new Thrift::SSLServerSocket(\%opts);
|
||||
} else {
|
||||
$serversocket = new Thrift::ServerSocket(\%opts);
|
||||
}
|
||||
my $transport;
|
||||
if ($opts{transport} eq 'buffered') {
|
||||
$transport = new Thrift::BufferedTransportFactory();
|
||||
} elsif ($opts{transport} eq 'framed') {
|
||||
$transport = new Thrift::FramedTransportFactory();
|
||||
} else {
|
||||
usage();
|
||||
exit 1;
|
||||
}
|
||||
my $protocol;
|
||||
if ($opts{protocol} eq 'binary') {
|
||||
$protocol = new Thrift::BinaryProtocolFactory();
|
||||
} else {
|
||||
usage();
|
||||
exit 1;
|
||||
}
|
||||
|
||||
my $ssltag = '';
|
||||
if ($opts{ssl}) {
|
||||
$ssltag = "(SSL)";
|
||||
}
|
||||
my $listening_on = "$opts{port} $ssltag";
|
||||
if ($opts{"domain-socket"}) {
|
||||
$listening_on = $opts{"domain-socket"};
|
||||
}
|
||||
my $server = new Thrift::SimpleServer($processor, $serversocket, $transport, $protocol);
|
||||
print "Starting \"simple\" server ($opts{transport}/$opts{protocol}) listen on: $listening_on\n";
|
||||
$server->serve();
|
||||
|
||||
###
|
||||
### Test server implementation
|
||||
###
|
||||
|
||||
package ThriftTestHandler;
|
||||
|
||||
use base qw( ThriftTest::ThriftTestIf );
|
||||
|
||||
sub new {
|
||||
my $classname = shift;
|
||||
my $self = {};
|
||||
return bless($self, $classname);
|
||||
}
|
||||
|
||||
sub testVoid() {
|
||||
print("testVoid()\n");
|
||||
}
|
||||
|
||||
sub testString() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
print("testString($thing)\n");
|
||||
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;
|
||||
print("testByte($thing)\n");
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testI32() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
print("testI32($thing)\n");
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testI64() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
print("testI64($thing)\n");
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testDouble() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
print("testDouble($thing)\n");
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testBinary() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
my @bytes = split //, $thing;
|
||||
print("testBinary(");
|
||||
foreach (@bytes)
|
||||
{
|
||||
printf "%02lx", ord $_;
|
||||
}
|
||||
print(")\n");
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testStruct() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
printf("testStruct({\"%s\", %d, %d, %lld})\n",
|
||||
$thing->{string_thing},
|
||||
$thing->{byte_thing},
|
||||
$thing->{i32_thing},
|
||||
$thing->{i64_thing});
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testNest() {
|
||||
my $self = shift;
|
||||
my $nest = shift;
|
||||
my $thing = $nest->{struct_thing};
|
||||
printf("testNest({%d, {\"%s\", %d, %d, %lld}, %d})\n",
|
||||
$nest->{byte_thing},
|
||||
$thing->{string_thing},
|
||||
$thing->{byte_thing},
|
||||
$thing->{i32_thing},
|
||||
$thing->{i64_thing},
|
||||
$nest->{i32_thing});
|
||||
return $nest;
|
||||
}
|
||||
|
||||
sub testMap() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
print("testMap({");
|
||||
my $first = 1;
|
||||
foreach my $key (keys %$thing) {
|
||||
if ($first) {
|
||||
$first = 0;
|
||||
} else {
|
||||
print(", ");
|
||||
}
|
||||
print("$key => $thing->{$key}");
|
||||
}
|
||||
print("})\n");
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testStringMap() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
print("testStringMap({");
|
||||
my $first = 1;
|
||||
foreach my $key (keys %$thing) {
|
||||
if ($first) {
|
||||
$first = 0;
|
||||
} else {
|
||||
print(", ");
|
||||
}
|
||||
print("$key => $thing->{$key}");
|
||||
}
|
||||
print("})\n");
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testSet() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
my @arr;
|
||||
my $result = \@arr;
|
||||
print("testSet({");
|
||||
my $first = 1;
|
||||
foreach my $key (keys %$thing) {
|
||||
if ($first) {
|
||||
$first = 0;
|
||||
} else {
|
||||
print(", ");
|
||||
}
|
||||
print("$key");
|
||||
push($result, $key);
|
||||
}
|
||||
print("})\n");
|
||||
return $result;
|
||||
}
|
||||
|
||||
sub testList() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
print("testList({");
|
||||
my $first = 1;
|
||||
foreach my $key (@$thing) {
|
||||
if ($first) {
|
||||
$first = 0;
|
||||
} else {
|
||||
print(", ");
|
||||
}
|
||||
print("$key");
|
||||
}
|
||||
print("})\n");
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testEnum() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
print("testEnum($thing)\n");
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testTypedef() {
|
||||
my $self = shift;
|
||||
my $thing = shift;
|
||||
print("testTypedef($thing)\n");
|
||||
return $thing;
|
||||
}
|
||||
|
||||
sub testMapMap() {
|
||||
my $self = shift;
|
||||
my $hello = shift;
|
||||
|
||||
printf("testMapMap(%d)\n", $hello);
|
||||
my $result = { 4 => { 1 => 1, 2 => 2, 3 => 3, 4 => 4 }, -4 => { -1 => -1, -2 => -2, -3 => -3, -4 => -4 } };
|
||||
return $result;
|
||||
}
|
||||
|
||||
sub testInsanity() {
|
||||
my $self = shift;
|
||||
my $argument = shift;
|
||||
print("testInsanity()\n");
|
||||
|
||||
my $hello = new ThriftTest::Xtruct({string_thing => "Hello2", byte_thing => 2, i32_thing => 2, i64_thing => 2});
|
||||
my @hellos;
|
||||
push(@hellos, $hello);
|
||||
my $goodbye = new ThriftTest::Xtruct({string_thing => "Goodbye4", byte_thing => 4, i32_thing => 4, i64_thing => 4});
|
||||
my @goodbyes;
|
||||
push(@goodbyes, $goodbye);
|
||||
my $crazy = new ThriftTest::Insanity({userMap => { ThriftTest::Numberz::EIGHT => 8 }, xtructs => \@goodbyes});
|
||||
my $loony = new ThriftTest::Insanity();
|
||||
my $result = { 1 => { ThriftTest::Numberz::TWO => $argument, ThriftTest::Numberz::THREE => $argument },
|
||||
2 => { ThriftTest::Numberz::SIX => $loony } };
|
||||
return $result;
|
||||
}
|
||||
|
||||
sub testMulti() {
|
||||
my $self = shift;
|
||||
my $arg0 = shift;
|
||||
my $arg1 = shift;
|
||||
my $arg2 = shift;
|
||||
my $arg3 = shift;
|
||||
my $arg4 = shift;
|
||||
my $arg5 = shift;
|
||||
|
||||
print("testMulti()\n");
|
||||
return new ThriftTest::Xtruct({string_thing => "Hello2", byte_thing => $arg0, i32_thing => $arg1, i64_thing => $arg2});
|
||||
}
|
||||
|
||||
sub testException() {
|
||||
my $self = shift;
|
||||
my $arg = shift;
|
||||
print("testException($arg)\n");
|
||||
if ($arg eq "Xception") {
|
||||
die new ThriftTest::Xception({errorCode => 1001, message => $arg});
|
||||
} elsif ($arg eq "TException") {
|
||||
die "astring"; # all unhandled exceptions become TExceptions
|
||||
} else {
|
||||
return new ThriftTest::Xtruct({string_thing => $arg});
|
||||
}
|
||||
}
|
||||
|
||||
sub testMultiException() {
|
||||
my $self = shift;
|
||||
my $arg0 = shift;
|
||||
my $arg1 = shift;
|
||||
|
||||
printf("testMultiException(%s, %s)\n", $arg0, $arg1);
|
||||
if ($arg0 eq "Xception") {
|
||||
die new ThriftTest::Xception({errorCode => 1001, message => "This is an Xception"});
|
||||
} elsif ($arg0 eq "Xception2") {
|
||||
my $struct_thing = new ThriftTest::Xtruct({string_thing => "This is an Xception2"});
|
||||
die new ThriftTest::Xception2({errorCode => 2002, struct_thing => $struct_thing});
|
||||
} else {
|
||||
return new ThriftTest::Xtruct({string_thing => $arg1});
|
||||
}
|
||||
}
|
||||
|
||||
sub testOneway() {
|
||||
my $self = shift;
|
||||
my $sleepFor = shift;
|
||||
print("testOneway($sleepFor): Sleeping...\n");
|
||||
sleep $sleepFor;
|
||||
print("testOneway($sleepFor): done sleeping!\n");
|
||||
}
|
||||
|
||||
|
||||
1;
|
||||
Loading…
Add table
Add a link
Reference in a new issue