12345678910 use lib 't/lib';use Test::More;use Test::Riak;test_riak_pbc { my ($client) = @_; my $resp = $client->server_info; ok exists $resp->{node}, 'got server node'; ok exists $resp->{server_version}, 'got server version';};
use
lib
't/lib'
;
Test::More;
Test::Riak;
test_riak_pbc {
my
(
$client
) =
@_
$resp
=
->server_info;
ok
exists
->{node},
'got server node'
->{server_version},
'got server version'
};