1use strict;
2use warnings;
3
4use Test::More;
5
6use Net::Riak;
7use Net::Riak::Client;
8
9my $riak = Net::Riak->new(r => 3, w => 4, dw => 5);
10is $riak->client->r,  3, 'r set to 3';
11is $riak->client->dw, 5, 'r set to 5';
12
13$riak = Net::Riak::Client->new(r => 5, w => 4, dw => 3);
14is $riak->r,  5, 'r set to 5';
15is $riak->dw, 3, 'r set to 3';
16
17ok $riak->client_id, 'id set';
18
19done_testing;
20
21