From 7f6a68b1bc8216ff0e34adfabcab2d8fedc680e0 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Wed, 16 Jun 2010 14:17:23 +0200 Subject: more tests - properties --- t/07_properties.t | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 t/07_properties.t diff --git a/t/07_properties.t b/t/07_properties.t new file mode 100644 index 0000000..26a643c --- /dev/null +++ b/t/07_properties.t @@ -0,0 +1,30 @@ +use strict; +use warnings; +use Test::More; + +use Net::Riak; +use HTTP::Response; + +my $client = Net::Riak::Client->new; +ok my $bucket = Net::Riak::Bucket->new(name => 'bar', client => $client), + 'client created'; + +$bucket->client->useragent->add_handler( + request_send => sub { + my $response = HTTP::Response->new(200); + $response->content( + '{"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"]}' + ); + $response; + } +); + +ok my $props = $bucket->get_properties(), 'fetch properties'; +ok my $keys = $bucket->get_keys(), 'fetch list of keys'; + +is_deeply $keys, [qw/bar/], 'keys is bar'; + +ok my $name = $bucket->get_property('name'), 'get props name'; +is $name, 'foo', 'name is foo'; + +done_testing; -- cgit 1.4.1