t/pbc/server_info.t


1
2
3
4
5
6
7
8
9
10

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';
};