diff options
author | Robin Edwards <robin.ge@gmail.com> | 2011-04-20 14:38:43 +0100 |
---|---|---|
committer | Robin Edwards <robin.ge@gmail.com> | 2011-04-20 14:38:43 +0100 |
commit | 79bea382fd2c0753ca9ace79a11bb74c9a1d722b (patch) | |
tree | bde42a47792a27e0a863ee527b88c8c24258f7e9 /t/10_list_buckets.t | |
parent | Merge remote branch 'simon/fix_link_encoding' (diff) | |
download | net-riak-79bea382fd2c0753ca9ace79a11bb74c9a1d722b.tar.gz |
merged pbc branch to master
Diffstat (limited to '')
-rw-r--r-- | t/10_list_buckets.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/t/10_list_buckets.t b/t/10_list_buckets.t new file mode 100644 index 0000000..eaedb4b --- /dev/null +++ b/t/10_list_buckets.t @@ -0,0 +1,15 @@ +use lib 't/lib'; +use Test::More; +use Test::Riak; + +test_riak { + my ($client, $bucket_name) = @_; + + my $bucket = $client->bucket($bucket_name."_1"); + ok $bucket->new_object( "bob" => { 'name' => 'bob', age => 23 } )->store, 'store'; + + $bucket = $client->bucket($bucket_name."_2"); + ok $bucket->new_object( "bob" => { 'name' => 'bob', age => 23 } )->store, 'store'; + + ok scalar( $client->all_buckets) >= 2, 'listed buckets'; +}; |