blob: eaedb4bfe71165f295f7160aa9c7c75551f8c5e5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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';
};
|