t/pbc.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

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;