diff options
| author | Robin Edwards <robin.ge@gmail.com> | 2013-03-20 12:15:29 +0000 |
|---|---|---|
| committer | Robin Edwards <robin.ge@gmail.com> | 2013-03-20 12:22:48 +0000 |
| commit | 6910b7be19c747c5b8044a58c1877272530957db (patch) | |
| tree | 810c1a9d019b171004b238497d6fe96f928a5257 /t/05_object_siblings.t | |
| parent | Bump version for release (diff) | |
| download | net-riak-6910b7be19c747c5b8044a58c1877272530957db.tar.gz | |
Clean up ws
Diffstat (limited to '')
| -rw-r--r-- | t/05_object_siblings.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/05_object_siblings.t b/t/05_object_siblings.t index 4bdec63..173c669 100644 --- a/t/05_object_siblings.t +++ b/t/05_object_siblings.t @@ -10,7 +10,7 @@ test_riak { ok $bucket->allow_multiples, 'multiples set to 1'; { - # test bucket still has multiples sep li + # test bucket still has multiples sep li my $client = new_riak_client($proto); my $bucket = $client->bucket($bucket_name); ok $bucket->allow_multiples, 'bucket multiples set to 1'; @@ -21,7 +21,7 @@ test_riak { is $obj->has_siblings, 0, 'has no sibilings'; is $obj->count_siblings, 0, 'has no sibilings'; } - + for(1..5) { my $client = new_riak_client($proto); my $bucket = $client->bucket($bucket_name); @@ -33,10 +33,10 @@ test_riak { my $obj = $bucket->get('foo'); ok $obj->has_siblings, 'object has siblings'; is $obj->count_siblings, 5, 'got 5 siblings'; - + my @siblings = $obj->siblings; my $obj3 = $obj->sibling(3); - + is_deeply $obj3->data, $obj->sibling(3)->data, 'sibling data matches'; $obj3 = $obj->sibling(3); $obj3->store; |
