1use Net::Riak;
2use strict;
3use warnings;
4
5use Test::More;
6
7my $r = Net::Riak->new(
8        transport => 'PBC',
9        host => '10.0.0.40',
10        port => 8080
11    );
12
13is $r->client->timeout,30, "timeout defaults to 30";
14
15my $r2 = Net::Riak->new(
16        transport => 'PBC',
17        host => '10.0.0.40',
18        port => 8080,
19        timeout => 2,
20    );
21
22is $r2->client->timeout, 2, "timeout changed";
23
24
25
26
27
28done_testing;
29