diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/03_delete_object.t | 2 | ||||
| -rw-r--r-- | t/05_object_siblings.t | 8 | ||||
| -rw-r--r-- | t/11_get_keys.t | 6 | ||||
| -rw-r--r-- | t/lib/Test/Riak.pm | 6 |
4 files changed, 11 insertions, 11 deletions
diff --git a/t/03_delete_object.t b/t/03_delete_object.t index f2d6d10..d2cccf4 100644 --- a/t/03_delete_object.t +++ b/t/03_delete_object.t @@ -16,5 +16,5 @@ test_riak { ok $obj->exists, " exists after delete"; $obj->load; ok !$obj->exists, "object don't exists after load"; - is scalar(@{$bucket->get_keys}), 0, "no keys left in bucket"; + is scalar(@{$bucket->get_keys}), 0, "no keys left in bucket"; }; 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; diff --git a/t/11_get_keys.t b/t/11_get_keys.t index 3c771a6..c19f82d 100644 --- a/t/11_get_keys.t +++ b/t/11_get_keys.t @@ -6,7 +6,7 @@ test_riak { my ($client, $bucket_name) = @_; my $bucket = $client->bucket($bucket_name); - + for (1..4) { my $obj = $bucket->new_object("foo$_", [ "foo_test" ]); ok $obj->store, 'object is stored'; @@ -14,13 +14,13 @@ test_riak { my $keys = $bucket->get_keys; - is_deeply [sort @$keys], [ map { "foo$_" } 1..4 ], "got keys"; + is_deeply [sort @$keys], [ map { "foo$_" } 1..4 ], "got keys"; my @keys2; $bucket->get_keys( { - stream => 'true', + stream => 'true', cb => sub { ok 1, "call back called for $_[0]"; push @keys2, $_[0]; diff --git a/t/lib/Test/Riak.pm b/t/lib/Test/Riak.pm index 6ec13ab..f36526f 100644 --- a/t/lib/Test/Riak.pm +++ b/t/lib/Test/Riak.pm @@ -22,7 +22,7 @@ sub test_riak (&) { sub test_riak_rest (&) { my ($test_case) = @_; - + if ($ENV{RIAK_REST_HOST}) { diag "Running for REST"; my $client = Net::Riak->new(host => $ENV{RIAK_REST_HOST}, r => 1, w => 1, dw => 1); @@ -37,7 +37,7 @@ sub test_riak_rest (&) { sub test_riak_pbc (&) { my ($test_case) = @_; - + if ($ENV{RIAK_PBC_HOST}) { diag "Running for PBC"; @@ -55,7 +55,7 @@ sub test_riak_pbc (&) { isa_ok $client, 'Net::Riak'; is $client->is_alive, 1, 'connected'; run_test_case($test_case, $client, 'PBC'); - } + } else { diag "Skipping PBC tests - RIAK_PBC_HOST not set"; } |