CPAN::Groonga

lient) = new_client_pipe_test_in($msg, {});
$res = eval { $client->work('name', {}) };
$err = $@;
isnt($err, '', 'test client bad json result');
like($err, qr/^jsonrpc error:/, 'test client bad json e

against mock server
# 
$res = eval { $client->call('test.classerr', {val => '789'}) };
$err = $@;
isnt($err, '', "test rpctiny classerr err");
is($err->{class}, 'soft', "test rcptiny classerr class");

r
# 
$res = eval { $client->call('test.classtmo', {val => '789'}, {timeout => 0.5}) };
$err = $@;
isnt($err, '', "test rpctiny classtmo err");
is($err->{type}, 'jsonrpc', "test rcptiny classtmo type")

pid => $$, id => '1', start => time(), session => $session};

$res = $cache->session_put($child);
isnt($res, undef, "test session cache put");

my $lru = join(' ', map { $_->{id} } @{$cache->lru_list(

is($lru, $child->{id}, "test session cache lru");

$child = $cache->session_get($session->{id});
isnt($child, undef, "test session cache get");

# test session lru
#
$cache = RPC::Switch::Client::Tin

PF_UNSPEC) or die "socketpair: $!";

my $msg = 'test 123';
my $res = netstring_write($out, $msg);
isnt($res, undef, 'test netstring write');

my $b = eval { netstring_read($in) };
my $err = $@;
is($er