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/lib | |
parent | Bump version for release (diff) | |
download | net-riak-6910b7be19c747c5b8044a58c1877272530957db.tar.gz |
Clean up ws
Diffstat (limited to 't/lib')
-rw-r--r-- | t/lib/Test/Riak.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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"; } |