diff options
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'; +}; |