diff options
Diffstat (limited to 't/90_bug_links.t')
| -rw-r--r-- | t/90_bug_links.t | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/t/90_bug_links.t b/t/90_bug_links.t index f42340e..d1851af 100644 --- a/t/90_bug_links.t +++ b/t/90_bug_links.t @@ -1,16 +1,17 @@ -use Data::Dumper; +use strict; +use warnings; use Net::Riak; use Test::More; BEGIN { - unless ( $ENV{RELEASE_TESTING} ) { + unless ( $ENV{RIAK_REST_HOST} ) { require Test::More; Test::More::plan( - skip_all => 'these tests are for release candidate testing' ); + skip_all => 'RIAK_REST_HOST not set.. skipping' ); } } -ok my $client = Net::Riak->new(host => 'http://127.0.0.1:8098'), 'client created'; +ok my $client = Net::Riak->new(host => $ENV{RIAK_REST_HOST}), 'client created'; # set up a bucket containing two person/user records and store them my $bucket_one = $client->bucket('ONE'); @@ -63,4 +64,7 @@ $test_links->remove_link($links->[0]); $links = $test_links->links; is $links->[0]->key, 'stewie@familyguy.com', 'good owner for second link after a remove link'; +$test_links->remove_link($links->[0]); +$links = $test_links->links; +is $links->[0]->key, 'griffins', 'good owner for second link after a remove link'; done_testing; |