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