Clean up ws

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";
     }