1use strict;
2use warnings;
3use Test::More;
4
5use Net::Riak;
6use HTTP::Response;
7
8my $client = Net::Riak::Client->with_traits('Net::Riak::Transport::REST')->new();
9ok my $bucket = Net::Riak::Bucket->new(name => 'bar', client => $client),
10  'client created';
11
12$bucket->client->useragent->add_handler(
13    request_send => sub {
14        my $response = HTTP::Response->new(200);
15        $response->content(
16            '{"props":{"name":"foo","allow_mult":false,"big_vclock":50,"chash_keyfun":{"mod":"riak_util","fun":"chash_std_keyfun"},"linkfun":{"mod":"jiak_object","fun":"mapreduce_linkfun"},"n_val":3,"old_vclock":86400,"small_vclock":10,"young_vclock":20},"keys":["bar"]}'
17        );
18        $response;
19    }
20);
21
22ok my $props = $bucket->get_properties(), 'fetch properties';
23ok my $keys  = $bucket->get_keys(),       'fetch list of keys';
24
25is_deeply $keys, [qw/bar/], 'keys is bar';
26
27ok my $name = $bucket->get_property('name'), 'get props name';
28is $name, 'foo', 'name is foo';
29
30done_testing;
31