path: root/t/pbc.t

use Net::Riak;
use strict;
use warnings;

use Test::More;

my $r = Net::Riak->new(
        transport => 'PBC',
        host => '10.0.0.40',
        port => 8080
    );

is $r->client->timeout,30, "timeout defaults to 30";

my $r2 = Net::Riak->new(
        transport => 'PBC',
        host => '10.0.0.40',
        port => 8080,
        timeout => 2,
    );

is $r2->client->timeout, 2, "timeout changed";





done_testing;